%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/language/
Upload File :
Create Path :
Current File : //usr/local/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#\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)

Zerion Mini Shell 1.0