Mercurial > hg > xemacs-beta

comparison lisp/mule/chinese.el @ 4145:edb00a8b4eff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-08-26 20:00:29 by aidan] Generally make the language environments and coding systems a little more sane.
author aidan
date Sun, 26 Aug 2007 20:00:42 +0000
parents 476d0799d704
children 1d74a1d115ee
comparison
equal deleted inserted replaced
4144:4a08a9219456 4145:edb00a8b4eff
223 "Chinese-GB" '((setup-function . setup-chinese-gb-environment-internal) 223 "Chinese-GB" '((setup-function . setup-chinese-gb-environment-internal)
224 (charset chinese-gb2312 chinese-sisheng) 224 (charset chinese-gb2312 chinese-sisheng)
225 (coding-system cn-gb-2312 iso-2022-7bit hz-gb-2312) 225 (coding-system cn-gb-2312 iso-2022-7bit hz-gb-2312)
226 (coding-priority cn-gb-2312 big5 iso-2022-7bit) 226 (coding-priority cn-gb-2312 big5 iso-2022-7bit)
227 (cygwin-locale "zh") 227 (cygwin-locale "zh")
228 (locale "zh_CN.eucCN" "zh_CN.EUC" "zh_CN"
229 "chinese-s" "zh"
230 (lambda (arg)
231 (and arg (let ((case-fold-search t))
232 (string-match "^zh_.*.GB.*" arg)))))
233 (mswindows-locale ("CHINESE" . "CHINESE_SIMPLIFIED")) 228 (mswindows-locale ("CHINESE" . "CHINESE_SIMPLIFIED"))
234 (native-coding-system cn-gb-2312) 229 (native-coding-system cn-gb-2312)
235 (input-method . "chinese-py-punct") 230 (input-method . "chinese-py-punct")
236 (features china-util) 231 (features china-util)
237 (sample-text . "Chinese ($AVPND(B,$AFUM(;0(B,$A::So(B) $ADc:C(B") 232 (sample-text . "Chinese ($AVPND(B,$AFUM(;0(B,$A::So(B) $ADc:C(B")
238 (documentation . 233 (documentation .
239 "Supports Simplified Chinese, used in mainland China. 234 "Supports Simplified Chinese, used in mainland China.
240 Uses the GB2312 character set.")) 235 Uses the GB2312 character set."))
241 '("Chinese")) 236 '("Chinese"))
237
238 ;; Set the locale information separately so that the lambda gets compiled.
239 (set-language-info "Chinese-GB"
240 'locale
241 (list "zh_CN.eucCN" "zh_CN.EUC" "zh_CN" "chinese-s" "zh"
242 (lambda (arg)
243 (and arg (let ((case-fold-search t))
244 (string-match "^zh_.*.GB.*" arg))))))
242 245
243 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 246 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
244 ;; Chinese BIG5 (traditional) 247 ;; Chinese BIG5 (traditional)
245 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 248 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
246 249
293 (set-language-info-alist 296 (set-language-info-alist
294 "Chinese-BIG5" '((charset chinese-big5-1 chinese-big5-2) 297 "Chinese-BIG5" '((charset chinese-big5-1 chinese-big5-2)
295 (coding-system big5 iso-2022-7bit) 298 (coding-system big5 iso-2022-7bit)
296 (coding-priority big5 cn-gb-2312 iso-2022-7bit) 299 (coding-priority big5 cn-gb-2312 iso-2022-7bit)
297 (cygwin-locale "zh_TW") 300 (cygwin-locale "zh_TW")
298 (locale "zh_TW.Big5" "zh_TW.big5" "zh_CN.big5" "zh_TW"
299 "chinese-t"
300 (lambda (arg)
301 (and arg (let ((case-fold-search t))
302 (string-match "^zh_.*.BIG5.*" arg)))))
303 (mswindows-locale ("CHINESE" . "CHINESE_TRADITIONAL")) 301 (mswindows-locale ("CHINESE" . "CHINESE_TRADITIONAL"))
304 (native-coding-system big5) 302 (native-coding-system big5)
305 (input-method . "chinese-py-punct-b5") 303 (input-method . "chinese-py-punct-b5")
306 (features china-util) 304 (features china-util)
307 (sample-text . "Cantonese ($(0GnM$(B,$(0N]0*Hd(B) $(0*/=((B, $(0+$)p(B") 305 (sample-text . "Cantonese ($(0GnM$(B,$(0N]0*Hd(B) $(0*/=((B, $(0+$)p(B")
308 (documentation . 306 (documentation .
309 "Supports Traditional Chinese, used in Taiwan, Hong Kong, and Singapore. 307 "Supports Traditional Chinese, used in Taiwan, Hong Kong, and Singapore.
310 Uses the Chinese Big5 character set." 308 Uses the Chinese Big5 character set."
311 )) 309 ))
312 '("Chinese")) 310 '("Chinese"))
311
312 ;; Set the locale information separately so that the lambda gets compiled.
313 (set-language-info "Chinese-BIG5"
314 'locale
315 (list "zh_TW.Big5" "zh_TW.big5" "zh_CN.big5" "zh_TW"
316 "chinese-t"
317 (lambda (arg)
318 (and arg (let ((case-fold-search t))
319 (string-match "^zh_.*.BIG5.*" arg))))))
313 320
314 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 321 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
315 ;; Chinese CNS11643 (traditional) 322 ;; Chinese CNS11643 (traditional)
316 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 323 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
317 324