Mercurial > emacs
comparison lisp/language/chinese.el @ 17841:084d922fcd78
Coding system names changed as follows:
internal -> emacs-mule, automatic-conversion -> undecided.
Coding category name changes as follows:
coding-category-internal -> coding-category-emacs-mule.
Delete functions describe-LANGUAGE-support.
Delete describe-function entries and change documentation
entries in each language specific information.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 16 May 1997 00:59:09 +0000 |
parents | 9c4845e8101d |
children | 73869115ae0a |
comparison
equal
deleted
inserted
replaced
17840:2517414676ed | 17841:084d922fcd78 |
---|---|
44 nil ascii-eol ascii-cntl seven locking-shift single-shift nil nil nil | 44 nil ascii-eol ascii-cntl seven locking-shift single-shift nil nil nil |
45 init-bol)) | 45 init-bol)) |
46 | 46 |
47 (define-coding-system-alias 'iso-2022-cn 'iso-2022-cn-ext) | 47 (define-coding-system-alias 'iso-2022-cn 'iso-2022-cn-ext) |
48 | 48 |
49 (defun describe-chinese-support () | 49 (set-language-info-alist |
50 "Describe how Emacs supports Chinese." | 50 "Chinese" '((documentation . "\ |
51 (interactive) | |
52 (with-output-to-temp-buffer "*Help*" | |
53 (princ (get-language-info "Chinese" 'documentation)) | |
54 (princ "\n"))) | |
55 | |
56 (set-language-info-alist | |
57 "Chinese" '((describe-function . describe-chinese-support) | |
58 (documentation . "\ | |
59 Emacs provides the following three kinds of Chinese support: | 51 Emacs provides the following three kinds of Chinese support: |
60 Chinese-GB: for users of the charset GB2312 | 52 Chinese-GB: for users of the charset GB2312 |
61 Chinese-BIG5: for users of the charset Big5 | 53 Chinese-BIG5: for users of the charset Big5 |
62 Chinese-CNS: for users of the charset CNS11643 family | 54 Chinese-CNS: for users of the charset CNS11643 family |
63 Please specify one of them to get more information.") | 55 Please specify/select one of them to get more information.") |
64 )) | 56 )) |
65 | 57 |
66 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 58 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
67 ;;; Chinese GB2312 (simplified) | 59 ;;; Chinese GB2312 (simplified) |
68 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 60 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
129 '(coding-category-iso-7 | 121 '(coding-category-iso-7 |
130 coding-category-iso-else | 122 coding-category-iso-else |
131 coding-category-iso-8-2 | 123 coding-category-iso-8-2 |
132 coding-category-big5 | 124 coding-category-big5 |
133 coding-category-iso-8-1 | 125 coding-category-iso-8-1 |
134 coding-category-internal | 126 coding-category-emacs-mule |
135 )) | 127 )) |
136 | 128 |
137 (setq-default buffer-file-coding-system 'cn-gb-2312) | 129 (setq-default buffer-file-coding-system 'cn-gb-2312) |
138 (set-terminal-coding-system 'cn-gb-2312) | 130 (set-terminal-coding-system 'cn-gb-2312) |
139 (set-keyboard-coding-system 'cn-gb-2312) | 131 (set-keyboard-coding-system 'cn-gb-2312) |
140 | 132 |
141 (setq default-input-method '("Chinese-GB" . "quail-py")) | 133 (setq default-input-method '("Chinese-GB" . "quail-py")) |
142 ) | 134 ) |
143 | 135 |
144 (defun describe-chinese-gb-support () | |
145 "Describe how Emacs supports Chinese for GB2312 users." | |
146 (interactive) | |
147 (describe-language-support-internal "Chinese-GB")) | |
148 | |
149 (set-language-info-alist | 136 (set-language-info-alist |
150 "Chinese-GB" '((setup-function . setup-chinese-gb-environment) | 137 "Chinese-GB" '((setup-function . setup-chinese-gb-environment) |
151 (describe-function . describe-chinese-gb-support) | |
152 (charset . (chinese-gb2312 chinese-sisheng)) | 138 (charset . (chinese-gb2312 chinese-sisheng)) |
153 (coding-system . (cn-gb-2312 hz-gb-2312 iso-2022-cn)) | 139 (coding-system . (cn-gb-2312 hz-gb-2312 iso-2022-cn)) |
154 (sample-text . "Chinese ($AVPND(B,$AFUM(;0(B,$A::So(B) $ADc:C(B") | 140 (sample-text . "Chinese ($AVPND(B,$AFUM(;0(B,$A::So(B) $ADc:C(B") |
155 (documentation . nil))) | 141 (documentation . t))) |
156 | 142 |
157 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 143 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
158 ;; Chinese BIG5 (traditional) | 144 ;; Chinese BIG5 (traditional) |
159 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 145 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
160 | 146 |
223 (set-keyboard-coding-system 'cn-big5) | 209 (set-keyboard-coding-system 'cn-big5) |
224 | 210 |
225 (setq default-input-method '("Chinese-BIG5" . "quail-py-b5")) | 211 (setq default-input-method '("Chinese-BIG5" . "quail-py-b5")) |
226 ) | 212 ) |
227 | 213 |
228 (defun describe-chinese-big5-support () | |
229 "Describe how Emacs supports Chinese for Big5 users." | |
230 (interactive) | |
231 (describe-language-support-internal "Chinese-BIG5")) | |
232 | |
233 (set-language-info-alist | 214 (set-language-info-alist |
234 "Chinese-BIG5" '((setup-function . setup-chinese-big5-environment) | 215 "Chinese-BIG5" '((setup-function . setup-chinese-big5-environment) |
235 (describe-function . describe-chinese-big5-support) | |
236 (charset . (chinese-big5-1 chinese-big5-2)) | 216 (charset . (chinese-big5-1 chinese-big5-2)) |
237 (coding-system . (cn-big5 iso-2022-cn)) | 217 (coding-system . (cn-big5 iso-2022-cn)) |
238 (sample-text . "Cantonese ($(0GnM$(B,$(0N]0*Hd(B) $(0*/=((B, $(0+$)p(B") | 218 (sample-text . "Cantonese ($(0GnM$(B,$(0N]0*Hd(B) $(0*/=((B, $(0+$)p(B") |
239 (documentation . nil))) | 219 (documentation . t))) |
240 | 220 |
241 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 221 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
242 ;; Chinese CNS11643 (traditional) | 222 ;; Chinese CNS11643 (traditional) |
243 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 223 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
244 | 224 |
267 (set-keyboard-coding-system 'iso-2022-cn) | 247 (set-keyboard-coding-system 'iso-2022-cn) |
268 | 248 |
269 (setq default-input-method '("Chinese-CNS" . "quail-quick-cns")) | 249 (setq default-input-method '("Chinese-CNS" . "quail-quick-cns")) |
270 ) | 250 ) |
271 | 251 |
272 (defun describe-chinese-cns-support () | |
273 "Describe how Emacs supports Chinese for CNS11643 family users." | |
274 (interactive) | |
275 (describe-language-support-internal "Chinese-CNS")) | |
276 | |
277 (set-language-info-alist | 252 (set-language-info-alist |
278 "Chinese-CNS" '((setup-function . setup-chinese-cns-environment) | 253 "Chinese-CNS" '((setup-function . setup-chinese-cns-environment) |
279 (describe-function . describe-chinese-cns-support) | |
280 (charset . (chinese-cns11643-1 chinese-cns11643-2 | 254 (charset . (chinese-cns11643-1 chinese-cns11643-2 |
281 chinese-cns11643-3 chinese-cns11643-4 | 255 chinese-cns11643-3 chinese-cns11643-4 |
282 chinese-cns11643-5 chinese-cns11643-6 | 256 chinese-cns11643-5 chinese-cns11643-6 |
283 chinese-cns11643-7)) | 257 chinese-cns11643-7)) |
284 (coding-system . (iso-2022-cn)) | 258 (coding-system . (iso-2022-cn)) |
285 (documentation . nil))) | 259 (documentation . t))) |
286 | 260 |
287 ;;; chinese.el ends here | 261 ;;; chinese.el ends here |