Mercurial > hg > xemacs-beta

comparison lisp/mule/chinese.el @ 778:2923009caf47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-03-16 10:38:59 by ben] cm.c, file-coding.c: fix warnings. .cvsignore: Those pesky *.tmp files. mule\arabic.el, mule\canna-leim.el, mule\china-util.el, mule\chinese.el, mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\devanagari.el, mule\english.el, mule\ethio-util.el, mule\ethiopic.el, mule\european.el, mule\greek.el, mule\hebrew.el, mule\indian.el, mule\japan-util.el, mule\japanese.el, mule\korea-util.el, mule\korean.el, mule\lao-util.el, mule\lao.el, mule\misc-lang.el, mule\mule-charset.el, mule\mule-cmds.el, mule\thai-util.el, mule\thai.el, mule\tibet-util.el, mule\tibetan.el, mule\viet-util.el, mule\vietnamese.el, unicode.el: Fix lots of warnings. Sync up some files to FSF 21.1. Copy over all charset definitions from FSF 21.1, convert them to our format, and stick them in the relevant files. Eventually we will actually be able to dump these files (though they may not quite work). autoload.el: Support defun*, defmacro*. mule/mule-composite.el, mule/mule-composite-stub.el: New file, stubs for nonexistent composition funs/vars. mule/viet-chars.el, dumped-lisp.el: Account for these changes. font.el, mouse.el, msw-font-menu.el, printer.el, startup.el: fix warnings.
author ben
date Sat, 16 Mar 2002 10:39:19 +0000
parents 79940b592197
children 0f42d0a17667
comparison
equal deleted inserted replaced
777:e65d9cf16707 778:2923009caf47
31 31
32 ;;; Code: 32 ;;; Code:
33 33
34 (eval-when-compile 34 (eval-when-compile
35 (require 'china-util)) 35 (require 'china-util))
36
37 ; (make-charset 'chinese-gb2312
38 ; "GB2312 Chinese simplified: ISO-IR-58"
39 ; '(dimension
40 ; 2
41 ; registry "GB2312.1980"
42 ; chars 94
43 ; columns 2
44 ; direction l2r
45 ; final ?A
46 ; graphic 0
47 ; short-name "GB2312"
48 ; long-name "GB2312: ISO-IR-58"
49 ; ))
50
51 ; (make-charset 'chinese-cns11643-1
52 ; "CNS11643 Plane 1 Chinese traditional: ISO-IR-171"
53 ; '(dimension
54 ; 2
55 ; registry "CNS11643.1992-1"
56 ; chars 94
57 ; columns 2
58 ; direction l2r
59 ; final ?G
60 ; graphic 0
61 ; short-name "CNS11643-1"
62 ; long-name "CNS11643-1 (Chinese traditional): ISO-IR-171"
63 ; ))
64
65 ; (make-charset 'chinese-cns11643-2
66 ; "CNS11643 Plane 2 Chinese traditional: ISO-IR-172"
67 ; '(dimension
68 ; 2
69 ; registry "CNS11643.1992-2"
70 ; chars 94
71 ; columns 2
72 ; direction l2r
73 ; final ?H
74 ; graphic 0
75 ; short-name "CNS11643-2"
76 ; long-name "CNS11643-2 (Chinese traditional): ISO-IR-172"
77 ; ))
78
79 ; (make-charset 'chinese-big5-1
80 ; "Frequently used part (A141-C67F) of Big5 (Chinese traditional)"
81 ; '(dimension
82 ; 2
83 ; registry "Big5"
84 ; chars 94
85 ; columns 2
86 ; direction l2r
87 ; final ?0
88 ; graphic 0
89 ; short-name "Big5 (Level-1)"
90 ; long-name "Big5 (Level-1) A141-C67F"
91 ; ))
92
93 ; (make-charset 'chinese-big5-2
94 ; "Less frequently used part (C940-FEFE) of Big5 (Chinese traditional)"
95 ; '(dimension
96 ; 2
97 ; registry "Big5"
98 ; chars 94
99 ; columns 2
100 ; direction l2r
101 ; final ?1
102 ; graphic 0
103 ; short-name "Big5 (Level-2)"
104 ; long-name "Big5 (Level-2) C940-FEFE"
105 ; ))
36 106
37 ;; Syntax of Chinese characters. 107 ;; Syntax of Chinese characters.
38 (modify-syntax-entry 'chinese-gb2312 "w") 108 (modify-syntax-entry 'chinese-gb2312 "w")
39 (loop for row in '(33 34 41) 109 (loop for row in '(33 34 41)
40 do (modify-syntax-entry `[chinese-gb2312 ,row] ".")) 110 do (modify-syntax-entry `[chinese-gb2312 ,row] "."))
45 115
46 (modify-syntax-entry 'chinese-cns11643-1 "w") 116 (modify-syntax-entry 'chinese-cns11643-1 "w")
47 (modify-syntax-entry 'chinese-cns11643-2 "w") 117 (modify-syntax-entry 'chinese-cns11643-2 "w")
48 (modify-syntax-entry 'chinese-big5-1 "w") 118 (modify-syntax-entry 'chinese-big5-1 "w")
49 (modify-syntax-entry 'chinese-big5-2 "w") 119 (modify-syntax-entry 'chinese-big5-2 "w")
120
121 ; ;; Chinese CNS11643 Plane3 thru Plane7. Although these are official
122 ; ;; character sets, the use is rare and don't have to be treated
123 ; ;; space-efficiently in the buffer.
124 ; (make-charset 'chinese-cns11643-3
125 ; "CNS11643 Plane 3 Chinese Traditional: ISO-IR-183"
126 ; '(dimension
127 ; 2
128 ; registry "CNS11643.1992-3"
129 ; chars 94
130 ; columns 2
131 ; direction l2r
132 ; final ?I
133 ; graphic 0
134 ; short-name "CNS11643-3"
135 ; long-name "CNS11643-3 (Chinese traditional): ISO-IR-183"
136 ; ))
50 137
51 ;; CNS11643 Plane3 thru Plane7 138 ;; CNS11643 Plane3 thru Plane7
52 ;; These represent more and more obscure Chinese characters. 139 ;; These represent more and more obscure Chinese characters.
53 ;; By the time you get to Plane 7, we're talking about characters 140 ;; By the time you get to Plane 7, we're talking about characters
54 ;; that appear once in some ancient manuscript and whose meaning 141 ;; that appear once in some ancient manuscript and whose meaning
62 `(registry 149 `(registry
63 ,(concat "CNS11643[.-]\\(.*[.-]\\)?" plane "$") 150 ,(concat "CNS11643[.-]\\(.*[.-]\\)?" plane "$")
64 dimension 2 151 dimension 2
65 chars 94 152 chars 94
66 final ,final 153 final ,final
67 graphic 0)) 154 graphic 0
155 short-name ,(concat "CNS11643-" plane)
156 long-name ,(format "CNS11643-%s (Chinese traditional): ISO-IR-183"
157 plane)))
68 (modify-syntax-entry name "w") 158 (modify-syntax-entry name "w")
69 (modify-category-entry name ?t) 159 (modify-category-entry name ?t)
70 )) 160 ))
71 (make-chinese-cns11643-charset 'chinese-cns11643-3 "3" ?I) 161 (make-chinese-cns11643-charset 'chinese-cns11643-3 "3" ?I)
72 (make-chinese-cns11643-charset 'chinese-cns11643-4 "4" ?J) 162 (make-chinese-cns11643-charset 'chinese-cns11643-4 "4" ?J)
76 ) 166 )
77 167
78 ;; ISO-IR-165 (CCITT Extended GB) 168 ;; ISO-IR-165 (CCITT Extended GB)
79 ;; It is based on CCITT Recommendation T.101, includes GB 2312-80 + 169 ;; It is based on CCITT Recommendation T.101, includes GB 2312-80 +
80 ;; GB 8565-88 table A4 + 293 characters. 170 ;; GB 8565-88 table A4 + 293 characters.
81 (make-charset 171 (make-charset ;; not in FSF 21.1
82 'chinese-isoir165 172 'chinese-isoir165
83 "ISO-IR-165 (CCITT Extended GB; Chinese simplified)" 173 "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
84 `(registry "isoir165" 174 `(registry "isoir165"
85 dimension 2 175 dimension 2
86 chars 94 176 chars 94
87 final ?E 177 final ?E
88 graphic 0)) 178 graphic 0
179 short-name "ISO-IR-165"
180 long-name "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"))
89 181
90 ;; PinYin-ZhuYin 182 ;; PinYin-ZhuYin
91 (make-charset 'sisheng "PinYin-ZhuYin" 183 (make-charset 'chinese-sisheng
92 '(registry "sisheng_cwnn\\|OMRON_UDC_ZH" 184 "SiSheng characters for PinYin/ZhuYin"
93 dimension 1 185 '(dimension
186 1
187 ;; XEmacs addition: second half of registry spec
188 registry "sisheng_cwnn\\|OMRON_UDC_ZH"
94 chars 94 189 chars 94
190 columns 1
191 direction l2r
95 final ?0 192 final ?0
96 graphic 0 193 graphic 0
194 short-name "SiSheng"
195 long-name "SiSheng (PinYin/ZhuYin)"
97 )) 196 ))
98 197
99 ;; If you prefer QUAIL to EGG, please modify below as you wish. 198 ;; If you prefer QUAIL to EGG, please modify below as you wish.
100 ;;(when (and (featurep 'egg) (featurep 'wnn)) 199 ;;(when (and (featurep 'egg) (featurep 'wnn))
101 ;; (setq wnn-server-type 'cserver) 200 ;; (setq wnn-server-type 'cserver)
152 (make-coding-system 251 (make-coding-system
153 'cn-gb-2312 'iso2022 252 'cn-gb-2312 'iso2022
154 "Chinese EUC" 253 "Chinese EUC"
155 '(charset-g0 ascii 254 '(charset-g0 ascii
156 charset-g1 chinese-gb2312 255 charset-g1 chinese-gb2312
157 charset-g2 sisheng 256 charset-g2 chinese-sisheng
158 charset-g3 t 257 charset-g3 t
159 mnemonic "Zh-GB/EUC" 258 mnemonic "Zh-GB/EUC"
160 documentation 259 documentation
161 "Chinese EUC (Extended Unix Code), the standard Chinese encoding on Unix. 260 "Chinese EUC (Extended Unix Code), the standard Chinese encoding on Unix.
162 This follows the same overall EUC principles as Japanese EUC (see the 261 This follows the same overall EUC principles as Japanese EUC (see the
219 (encode-hz-region 1 (point-max)) 318 (encode-hz-region 1 (point-max))
220 nil)) 319 nil))
221 320
222 (set-language-info-alist 321 (set-language-info-alist
223 "Chinese-GB" '((setup-function . setup-chinese-gb-environment-internal) 322 "Chinese-GB" '((setup-function . setup-chinese-gb-environment-internal)
224 (charset chinese-gb2312 sisheng) 323 (charset chinese-gb2312 chinese-sisheng)
225 (coding-system cn-gb-2312 iso-2022-7bit hz-gb-2312) 324 (coding-system cn-gb-2312 iso-2022-7bit hz-gb-2312)
226 (coding-priority cn-gb-2312 big5 iso-2022-7bit) 325 (coding-priority cn-gb-2312 big5 iso-2022-7bit)
227 (cygwin-locale "zh") 326 (cygwin-locale "zh")
228 (locale "zh_CN.eucCN" "zh_CN.EUC" "zh_CN" 327 (locale "zh_CN.eucCN" "zh_CN.EUC" "zh_CN"
229 "chinese-s" "zh" 328 "chinese-s" "zh"