;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:42:24 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/chinese.el ;;; emacs version 19.34. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`chinese.el' was compiled for Emacs 19.29 or later")) (byte-code "! B! B!! BLJ" [boundp hz2gb-gb-designation "$A" current-load-list hz2gb-ascii-designation "(B" hz2gb-line-continuation nil] 2) #@89 Convert whole text in the current buffer from HZ/ZW encoding to mule internal encoding. (defalias 'hz2gb-buffer #[nil "ed\"" [hz2gb-region] 3 (#$ . 657) nil]) #@71 Convert text in the current region from HZ/ZW encoding to *internal*. (defalias 'hz2gb-region #[(beg end) " }eb#%gU!m u eb\n#}͔fUM!ccw!c#wɔj!wwՔbc\n+\ned$)eb#!*" [beg end search-forward "~" nil t 10 delete-char -1 1 chinese-found re-search-forward "~{\\|^zW" 0 122 -2 hz2gb-gb-designation hz2gb-ascii-designation "\\(~}\\)\\|\\(\n\\)" replace-match hz2gb-line-continuation 2 code-convert-region *junet* *internal* "~~"] 5 (#$ . 824) "r"]) #@86 Convert whole text in the current buffer from mule internal encoding to HZ encoding. (defalias 'gb2hz-buffer #[nil "ed\"" [gb2hz-region] 3 (#$ . 1379) nil]) #@80 Convert text in the current region from mule internal encoding to HZ encoding. (defalias 'gb2hz-region #[(beg end) " }eb#c eb#kĉ \n˔b`  d $ b#P!c= b#g!cT b**" [beg end search-forward "~" nil t 126 re-search-forward "\\cc" p mc-flag 0 code-convert-region *internal* *junet* hz2gb-gb-designation delete-char -3 "~{" hz2gb-ascii-designation "~}"] 5 (#$ . 1544) "r"]) #@434 Convert Big5 code B1 to Mule's internal character code. You can supply B1 as integer (character) or string. If optional arg B2 is non nil, B1 is regarded as the first byte, B2 as the second byte of Big5 code. If optional arg TYPE is not supplied, the returned value is a vector, and the 1st, 2nd, and 3rd elements show Mule's internal code. If TYPE is 'character, returns character code, else if TYPE is 'string, returns string. (defalias 'b2g #[(b1 &optional b2 type) "\n\"\f \fIB\n' \nǥI \nǦIB\n;= \nHI \nHIB\n\" \"\f=] H H H#t\f=s H H H$t )" [make-vector 8 b1 vec b2 1 0 256 error "Invalid argument %s" exec-ccl ccl-big5-to-internal type character make-character 2 string format "%c%c%c"] 6 (#$ . 1984)]) #@447 Convert internal code C0 to Big5 code. You can supply C0 as integer (character) or string. If optional arg C1 and C2 are non nil, C0 is regarded as the leading char, C1 as the first byte, C2 as the second byte of internal code. If optional arg TYPE is not supplied, the returned value is a vector, and the 1st and 2nd elements show Mule's internal code. If TYPE is 'character, returns character code, else if TYPE is 'string, returns string. (defalias 'g2b #[(c0 &optional c1 c2 type) " \" \fIA\"!;<H\fHI\fHIA\" UNP\f\"=h\fH\"\fH\"|={\fH\fH#|\f*" [c0 make-vector 8 c1 vec lc c2 1 char-to-string 0 2 error "Invalid argument %s" exec-ccl lc-big5-1 ccl-internal-to-big5-1 ccl-internal-to-big5-2 type character logior lsh string format "%c%c"] 5 (#$ . 2763)]) (provide (quote chinese))