Mercurial > emacs

comparison lisp/language/chinese.el @ 17841:084d922fcd78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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