Mercurial > hg > xemacs-beta

comparison lisp/mule/chinese.el @ 357:4711e16a8e49 r21-1-8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-8
author cvs
date Mon, 13 Aug 2007 10:57:04 +0200
parents 4f79e16b1112
children
comparison
equal deleted inserted replaced
356:e85f639a32f3 357:4711e16a8e49
198 (sample-text . "Chinese ($AVPND(B,$AFUM(;0(B,$A::So(B) $ADc:C(B") 198 (sample-text . "Chinese ($AVPND(B,$AFUM(;0(B,$A::So(B) $ADc:C(B")
199 (documentation . ("Support for Chinese GB2312 character set." 199 (documentation . ("Support for Chinese GB2312 character set."
200 . describe-chinese-environment-map)) 200 . describe-chinese-environment-map))
201 )) 201 ))
202 202
203 (defun setup-chinese-gb-environment ()
204 "Setup multilingual environment (MULE) for Chinese GB2312 users."
205 (interactive)
206 (setup-english-environment)
207 (set-coding-category-system 'iso-8-2 'cn-gb-2312)
208 (set-coding-category-system 'big5 'big5)
209 (set-coding-category-system 'iso-7 'iso-2022-7bit)
210 (set-coding-priority-list
211 '(iso-8-2
212 big5
213 iso-7))
214 (set-default-coding-systems 'cn-gb-2312))
215
203 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 216 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
204 ;; Chinese BIG5 (traditional) 217 ;; Chinese BIG5 (traditional)
205 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 218 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
206 219
207 ;; (make-coding-system 220 ;; (make-coding-system
247 (sample-text . "Cantonese ($(0GnM$(B,$(0N]0*Hd(B) $(0*/=((B, $(0+$)p(B") 260 (sample-text . "Cantonese ($(0GnM$(B,$(0N]0*Hd(B) $(0*/=((B, $(0+$)p(B")
248 (documentation . ("Support for Chinese Big5 character set." 261 (documentation . ("Support for Chinese Big5 character set."
249 . describe-chinese-environment-map)) 262 . describe-chinese-environment-map))
250 )) 263 ))
251 264
265 (defun setup-chinese-big5-environment ()
266 "Setup multilingual environment (MULE) for Chinese Big5 users."
267 (interactive)
268 (setup-english-environment)
269 (set-coding-category-system 'big5 'big5)
270 (set-coding-category-system 'iso-8-2 'cn-gb-2312)
271 (set-coding-category-system 'iso-7 'iso-2022-7bit)
272 (set-coding-priority-list
273 '(big5
274 iso-8-2
275 iso-7))
276 (set-default-coding-systems 'big5))
277
252 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 278 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
253 ;; Chinese CNS11643 (traditional) 279 ;; Chinese CNS11643 (traditional)
254 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 280 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
255 281
256 ;; (set-language-info-alist 282 ;; (set-language-info-alist