Mercurial > emacs
comparison lisp/language/chinese.el @ 24298:c10e64cb7fb1
(chinese-big5): Add charset-origin-alist property.
("Chinese-CNS"): Remove charset-origin-alist property.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 12 Feb 1999 07:46:42 +0000 |
| parents | b922cc2b350a |
| children | 6d966e8b4bbe |
comparison
equal
deleted
inserted
replaced
| 24297:a5b2e26efe7c | 24298:c10e64cb7fb1 |
|---|---|
| 125 | 125 |
| 126 (make-coding-system | 126 (make-coding-system |
| 127 'chinese-big5 3 ?B "BIG5 8-bit encoding for Chinese (MIME:CN-BIG5)" | 127 'chinese-big5 3 ?B "BIG5 8-bit encoding for Chinese (MIME:CN-BIG5)" |
| 128 nil | 128 nil |
| 129 '((safe-charsets ascii chinese-big5-1 chinese-big5-2) | 129 '((safe-charsets ascii chinese-big5-1 chinese-big5-2) |
| 130 (mime-charset . cn-big5))) | 130 (mime-charset . cn-big5) |
| 131 (charset-origin-alist (chinese-big5-1 "BIG5" encode-big5-char) | |
| 132 (chinese-big5-2 "BIG5" encode-big5-char)))) | |
| 131 | 133 |
| 132 (define-coding-system-alias 'big5 'chinese-big5) | 134 (define-coding-system-alias 'big5 'chinese-big5) |
| 133 (define-coding-system-alias 'cn-big5 'chinese-big5) | 135 (define-coding-system-alias 'cn-big5 'chinese-big5) |
| 134 | 136 |
| 135 ;; Big5 font requires special encoding. | 137 ;; Big5 font requires special encoding. |
| 151 (cons (cons "big5" ccl-encode-big5-font) font-ccl-encoder-alist)) | 153 (cons (cons "big5" ccl-encode-big5-font) font-ccl-encoder-alist)) |
| 152 | 154 |
| 153 (set-language-info-alist | 155 (set-language-info-alist |
| 154 "Chinese-BIG5" '((charset chinese-big5-1 chinese-big5-2) | 156 "Chinese-BIG5" '((charset chinese-big5-1 chinese-big5-2) |
| 155 (coding-system chinese-big5 chinese-iso-7bit) | 157 (coding-system chinese-big5 chinese-iso-7bit) |
| 156 (charset-origin-alist | |
| 157 (chinese-big5-1 "BIG5" encode-big5-char) | |
| 158 (chinese-big5-2 "BIG5" encode-big5-char)) | |
| 159 (coding-priority chinese-big5 iso-2022-cn chinese-iso-8bit) | 158 (coding-priority chinese-big5 iso-2022-cn chinese-iso-8bit) |
| 160 (input-method . "chinese-py-punct-b5") | 159 (input-method . "chinese-py-punct-b5") |
| 161 (features china-util) | 160 (features china-util) |
| 162 (sample-text . "Cantonese ($(0GnM$(B,$(0N]0*Hd(B) $(0*/=((B, $(0+$)p(B") | 161 (sample-text . "Cantonese ($(0GnM$(B,$(0N]0*Hd(B) $(0*/=((B, $(0+$)p(B") |
| 163 (documentation . "Support for Chinese Big5 character set.")) | 162 (documentation . "Support for Chinese Big5 character set.")) |