ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/language/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/language/china-util.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 664))
(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#\203* g\211\312U\204# \313U\203
\314\315!\210\202
eb\210\306\316\f\306\311#\203\211 \317\224\211f\n\204C \306\210`\320Y\204/ b\210\314\321!\210 \321Z\322U\203k \323`
#\210 b\210\202/ \307?\205u \311#\203~ \314\324!\210`\323 `
#\210\202/ \n\203\223 \325\n \326#\210*deZ*\207" [ch pos beg end hz/zw-start-gb hz-set-msb-table nil search-forward "~" t 10 126 delete-char -1 re-search-forward 0 128 2 122 translate-region -2 decode-coding-region euc-china hz-ascii-designation decode-hz-line-continuation] 5 (#$ . 1231) "r"])
#@50 Decode HZ/ZW encoded text in the current buffer.
(defalias 'decode-hz-buffer #[nil "\300ed\"\207" [decode-hz-region] 3 (#$ . 1956) nil])
#@83 Encode the text in the current region to HZ.
Return the length of resulting text.
(defalias 'encode-hz-region #[(beg end) "\212\214 }\210eb\210\306\307\310\311#\203 \312c\210\202 eb\210\313\314\310\311#\203\\ \310\315\224\211b\210\316\nd\317#\210\nb\210\306 \310\311#\203E \320\321!\210\fc\210\2023 \nb\210\306
\310\311#\203[ \320\321!\210c\210\202H )deZ*\207" [beg end pos iso2022-gb-designation hz-gb-designation iso2022-ascii-designation search-forward "~" nil t 126 re-search-forward "\\cc" 0 encode-coding-region iso-2022-7bit delete-char -3 hz-ascii-designation] 4 (#$ . 2099) "r"])
#@46 Encode the text in the current buffer to HZ.
(defalias 'encode-hz-buffer #[nil "\300ed\"\207" [encode-hz-region] 3 (#$ . 2701) 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)
Kontol Shell Bypass