;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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 (#$ . 338))
(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")
#@101 Decode HZ/ZW encoded text in the current region.
Return the length of resulting text.

(fn BEG END)
(defalias 'decode-hz-region #[514 "\212\214\304\211}\210eb\210\305\306\304\307#\203pg\262
\211\310U\203J`S`T|\210`\262c\210\311\312!\2032\313\225b\210\311	!\203>\313\224\313\225|\210\nc\210\314`\315#\210\202\211\316U\203W\317\320!\210\202\211\321U\203j\203j`S`T|\210\202\320u\210\202\266deZ*\207" [iso2022-gb-designation hz-ascii-designation iso2022-ascii-designation decode-hz-line-continuation nil search-forward "~" t 123 looking-at "\\([!-}][!-~]\\)*" 0 decode-coding-region iso-2022-7bit 126 delete-char 1 10] 8 (#$ . 906) "r"])
#@50 Decode HZ/ZW encoded text in the current buffer.
(defalias 'decode-hz-buffer #[0 "\300ed\"\207" [decode-hz-region] 3 (#$ . 1568) nil])
(defvar hz-category-table nil)
#@97 Encode the text in the current region to HZ.
Return the length of resulting text.

(fn BEG END)
(defalias 'encode-hz-region #[514 "\204(\304 \305 p\306\307#\216\310!\210\311\312\313\"\210\314\315\316\312#\210\314\315\317\312#\210)\266\212\214

}\210\305 p\306\320#\216\310!\210eb\210\321\322\323\324#\203L\325c\210\202>eb\210\321\326\323\324#\203]\327c\210\202Oeb\210\330\331\323\324#\203\201h\332\333!\210\334
\335W\203x\336\202y\337\"c\266\202`\340ed\341\317$\210\342ed\343#\210eb\210\321\326\323\324#\203\312g\327U\203\246\332\344!\210\202\221\333u\210\345\346!\203\221\347\224\347\225|\210	c\210\321\n\323\350#\210\347\224\347\225|\210c\210\202\221)\266deZ*\207" [hz-category-table hz-gb-designation iso2022-ascii-designation hz-ascii-designation make-category-table category-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-category-table] 2] set-category-table define-category 99 "hz encodable" map-charset-chars modify-category-entry ascii chinese-gb2312 #[0 "r\301q\210\302\300!)\207" [V0 V1 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] 9 (#$ . 1740) "r"])
#@46 Encode the text in the current buffer to HZ.
(defalias 'encode-hz-buffer #[0 "\300ed\"\207" [encode-hz-region] 3 (#$ . 3027) nil])
#@12 

(fn LEN)
(defalias 'post-read-decode-hz #[257 "`\301 \302\303\211\\\"\304!\210)\207" [last-coding-system-used buffer-modified-p nil decode-hz-region set-buffer-modified-p] 7 (#$ . 3164)])
#@16 

(fn FROM TO)
(defalias 'pre-write-encode-hz #[514 "p\301\302!q\210;\203c\210\202\303
#\210\304\305\306d\"\210)\304\207" [last-coding-system-used generate-new-buffer " *temp*" insert-buffer-substring nil encode-hz-region 1] 7 (#$ . 3364)])
(provide 'china-util)