Mercurial > hg > xemacs-beta

comparison lisp/mule/chinese.el @ 3659:98af8a976fc3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-11-05 22:31:31 by aidan] Support specifying fonts for particular character sets in Mule; support translation to ISO 10646-1 for Mule character sets without an otherwise matching font; move to a vector of X11-charset-X11-registry instead of a regex for the charset-registry property.
author aidan
date Sun, 05 Nov 2006 22:31:46 +0000
parents 588878f5a654
children aa28d959af41
comparison
equal deleted inserted replaced
3658:0db1aaedbbef 3659:98af8a976fc3
144 (flet 144 (flet
145 ((make-chinese-cns11643-charset 145 ((make-chinese-cns11643-charset
146 (name plane final) 146 (name plane final)
147 (make-charset 147 (make-charset
148 name (concat "CNS 11643 Plane " plane " (Chinese traditional)") 148 name (concat "CNS 11643 Plane " plane " (Chinese traditional)")
149 `(registry 149 `(registries
150 ,(concat "CNS11643[.-]\\(.*[.-]\\)?" plane "$") 150 ,(vector (concat "cns11643.1992-" plane ))
151 dimension 2 151 dimension 2
152 chars 94 152 chars 94
153 final ,final 153 final ,final
154 graphic 0 154 graphic 0
155 short-name ,(concat "CNS11643-" plane) 155 short-name ,(concat "CNS11643-" plane)
169 ;; 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 +
170 ;; GB 8565-88 table A4 + 293 characters. 170 ;; GB 8565-88 table A4 + 293 characters.
171 (make-charset ;; not in FSF 21.1 171 (make-charset ;; not in FSF 21.1
172 'chinese-isoir165 172 'chinese-isoir165
173 "ISO-IR-165 (CCITT Extended GB; Chinese simplified)" 173 "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
174 `(registry "isoir165" 174 `(registries ["isoir165-0"]
175 dimension 2 175 dimension 2
176 chars 94 176 chars 94
177 final ?E 177 final ?E
178 graphic 0 178 graphic 0
179 short-name "ISO-IR-165" 179 short-name "ISO-IR-165"
183 (make-charset 'chinese-sisheng 183 (make-charset 'chinese-sisheng
184 "SiSheng characters for PinYin/ZhuYin" 184 "SiSheng characters for PinYin/ZhuYin"
185 '(dimension 185 '(dimension
186 1 186 1
187 ;; XEmacs addition: second half of registry spec 187 ;; XEmacs addition: second half of registry spec
188 registry "sisheng_cwnn\\|OMRON_UDC_ZH" 188 registries ["omron_udc_zh-0" "sisheng_cwnn-0"]
189 chars 94 189 chars 94
190 columns 1 190 columns 1
191 direction l2r 191 direction l2r
192 final ?0 192 final ?0
193 graphic 0 193 graphic 0