;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar iso2022-gb-designation "$A") (defvar hz-gb-designation "~{") (defvar iso2022-ascii-designation "(B") (defvar hz-ascii-designation "~}") (defvar zw-start-gb "^zW") (defvar hz/zw-start-gb (concat hz-gb-designation "\\|" zw-start-gb "\\|[^-]")) #@68 Flag to tell if we should care line continuation convention of Hz. (defvar decode-hz-line-continuation nil (#$ . 662)) (defconst hz-set-msb-table " \n \f  \241\242\243\244\245\246\247\250\251\252\253\254\255\256\257\260\261\262\263\264\265\266\267\270\271\272\273\274\275\276\277\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376") #@87 Decode HZ/ZW encoded text in the current region. Return the length of resulting text. (defalias 'decode-hz-region #[(beg end) "\212\214\306\211\n }\210eb\210\307\310\306\311#\203rg\211\312U\203K`S`T|\210`\fc\210\313\314!\2032\315\225b\210\313 !\203>\315\224\315\225|\210c\210\316 `\317#\210\202 \320U\203X\321\322!\210\202 \323U\203l\203l`S`T|\210\202 \322u\210\202 *deZ*\207" [ch pos beg end iso2022-gb-designation hz-ascii-designation nil search-forward "~" t 123 looking-at "\\([!-}][!-~]\\)*" 0 decode-coding-region iso-2022-7bit 126 delete-char 1 10 iso2022-ascii-designation decode-hz-line-continuation] 5 (#$ . 1229) "r"]) #@50 Decode HZ/ZW encoded text in the current buffer. (defalias 'decode-hz-buffer #[nil "\300ed\"\207" [decode-hz-region] 3 (#$ . 1886) nil]) (defvar hz-category-table nil) #@83 Encode the text in the current region to HZ. Return the length of resulting text. (defalias 'encode-hz-region #[(beg end) "\204$\306 \307 p\310\216\311!\210\312\313\314\"\210\315\316\317\313#\210\315\316\320\313#\210+\212\214 \f}\210\307 p*\321\216\311!\210eb\210\322\323\324\325#\203G\326c\210\2029eb\210\322\327\324\325#\203X\330c\210\202Jeb\210\331\332\324\325#\203\200h+\333\334!\210\335+\336W\203v\337\202w\340+\"c\210)\202[\341ed\342\320$\210\343ed\344#\210eb\210\322\327\324\325#\203\314g\330U\203\245\333\345!\210\202\220\334u\210\346\347!\203\220\350\224\350\225|\210,c\210\322-\324\351#\210\350\224\350\225|\210.c\210\202\220+deZ*\207" [hz-category-table #1=#:old-buffer #2=#:old-table beg end #3=#:old-buffer make-category-table category-table #[nil "rq\210\302 !)\207" [#1# #2# set-category-table] 2] set-category-table define-category 99 "hz encodable" map-charset-chars modify-category-entry ascii chinese-gb2312 #[nil "rq\210\302 !)\207" [#3# #4=#:old-table set-category-table] 2] search-forward "~" nil t 126 "" 27 re-search-forward "\\Cc" delete-char -1 format 65536 "\\u%04X" "\\U%08X" put-text-property charset encode-coding-region iso-2022-7bit 1 looking-at "\\$A" 0 move #4# ch hz-gb-designation iso2022-ascii-designation hz-ascii-designation] 5 (#$ . 2060) "r"]) #@46 Encode the text in the current buffer to HZ. (defalias 'encode-hz-buffer #[nil "\300ed\"\207" [encode-hz-region] 3 (#$ . 3383) nil]) (defalias 'post-read-decode-hz #[(len) "`\301 \304\305\n\211 \\\"\306 !\210+\207" [last-coding-system-used buffer-modified-p pos len nil decode-hz-region set-buffer-modified-p] 4]) (defalias 'pre-write-encode-hz #[(from to) "p\304\305!q\210 ;\203 c\210\202\306 \n#\210\307\310\311d\"\210*\307\207" [buf from to last-coding-system-used generate-new-buffer " *temp*" insert-buffer-substring nil encode-hz-region 1] 4]) (provide 'china-util)