| Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/language/china-util.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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#\203r g\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\2029 eb\210\322\327\324\325#\203X \330c\210\202J eb\210\331\332\324\325#\203\200 h +\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\314 g\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)