1 ;;; mule-conf.el --- configure multilingual environment
3 ;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 1997, 1999, 2000, 2002, 2003, 2004, 2005, 2006, 2008,
6 ;; 2009, 2010, 2011, 2012, 2013 MORIOKA Tomohiko
8 ;; Keywords: mule, multilingual, character set, coding system
10 ;; This file is part of XEmacs.
12 ;; XEmacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation; either version 2, or (at your option)
17 ;; XEmacs is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with XEmacs; see the file COPYING. If not, write to the
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25 ;; Boston, MA 02111-1307, USA.
33 "Adobe-Japan1 Character Collection for CID-Keyed Fonts"
34 `(long-name "Adobe-Japan1"
40 registry "AdobeJapan1-[0-6]$"
41 min-code ,(lsh #x6300 16)
42 max-code ,(+ (lsh #x6300 16) 23057)
43 code-offset ,(lsh #x6300 16)))
46 "Adobe-Japan1-0 Character Collection for CID-Keyed Fonts"
47 '(long-name "Adobe-Japan1-0"
53 mother =adobe-japan1-base
56 registry "AdobeJapan1-0$"))
59 "Adobe-Japan1-1 Character Collection for CID-Keyed Fonts"
60 '(long-name "Adobe-Japan1-1"
66 mother =adobe-japan1-0
69 registry "AdobeJapan1-1$"))
72 "Adobe-Japan1-2 Character Collection for CID-Keyed Fonts"
73 '(long-name "Adobe-Japan1-2"
79 mother =adobe-japan1-1
82 registry "AdobeJapan1-2$"))
85 "Adobe-Japan1-3 Character Collection for CID-Keyed Fonts"
86 '(long-name "Adobe-Japan1-3"
92 mother =adobe-japan1-2
95 registry "AdobeJapan1-3$"))
98 "Adobe-Japan1-4 Character Collection for CID-Keyed Fonts"
99 '(long-name "Adobe-Japan1-4"
105 mother =adobe-japan1-3
108 registry "AdobeJapan1-4$"))
111 "Adobe-Japan1-5 Character Collection for CID-Keyed Fonts"
112 '(long-name "Adobe-Japan1-5"
118 mother =adobe-japan1-4
121 registry "AdobeJapan1-5$"))
124 "Adobe-Japan1-6 Character Collection for CID-Keyed Fonts"
125 '(long-name "Adobe-Japan1-6"
131 mother =adobe-japan1-5
134 registry "AdobeJapan1-6$"))
135 (define-charset-alias '=adobe-japan1 '=adobe-japan1-6)
139 "Adobe-Japan1-0 abstract glyph-forms"
140 '(long-name "Adobe-Japan1-0 abstract glyph-forms"
146 mother =adobe-japan1-0
147 registry "AdobeJapan1-0$"))
150 "Adobe-Japan1-1 abstract glyph-forms"
151 '(long-name "Adobe-Japan1-1 abstract glyph-forms"
157 mother =>>>adobe-japan1-0
158 registry "AdobeJapan1-1$"))
161 "Adobe-Japan1-2 abstract glyph-forms"
162 '(long-name "Adobe-Japan1-2 abstract glyph-forms"
168 mother =>>>adobe-japan1-1
169 registry "AdobeJapan1-2$"))
172 "Adobe-Japan1-3 abstract glyph-forms"
173 '(long-name "Adobe-Japan1-3 abstract glyph-forms"
179 mother =>>>adobe-japan1-2
180 registry "AdobeJapan1-3$"))
183 "Adobe-Japan1-4 abstract glyph-forms"
184 '(long-name "Adobe-Japan1-4 abstract glyph-forms"
190 mother =>>>adobe-japan1-3
191 registry "AdobeJapan1-4$"))
194 "Adobe-Japan1-5 abstract glyph-forms"
195 '(long-name "Adobe-Japan1-5 abstract glyph-forms"
201 mother =>>>adobe-japan1-4
202 registry "AdobeJapan1-5$"))
205 "Adobe-Japan1-6 abstract glyph-forms"
206 '(long-name "Adobe-Japan1-6 abstract glyph-forms"
212 mother =>>>adobe-japan1-5
213 registry "AdobeJapan1-6$"))
214 (define-charset-alias '=>>>adobe-japan1 '=>>>adobe-japan1-6)
218 "Adobe-Japan1-0 abstract glyphs"
219 '(long-name "Adobe-Japan1-0 abstract glyphs"
225 mother =>>>adobe-japan1
226 registry "AdobeJapan1-0$"))
229 "Adobe-Japan1-1 abstract glyphs"
230 '(long-name "Adobe-Japan1-1 abstract glyphs"
236 mother =>>adobe-japan1-0
237 registry "AdobeJapan1-1"))
240 "Adobe-Japan1-2 abstract glyphs"
241 '(long-name "Adobe-Japan1-2 abstract glyphs"
247 mother =>>adobe-japan1-1
248 registry "AdobeJapan1-2"))
251 "Adobe-Japan1-3 abstract glyphs"
252 '(long-name "Adobe-Japan1-3 abstract glyphs"
258 mother =>>adobe-japan1-2
259 registry "AdobeJapan1-3"))
262 "Adobe-Japan1-4 abstract glyphs"
263 '(long-name "Adobe-Japan1-4 abstract glyphs"
269 mother =>>adobe-japan1-3
270 registry "AdobeJapan1-4"))
273 "Adobe-Japan1-5 abstract glyphs"
274 '(long-name "Adobe-Japan1-5 abstract glyphs"
280 mother =>>adobe-japan1-4
281 registry "AdobeJapan1-5"))
284 "Adobe-Japan1-6 abstract glyphs"
285 '(long-name "Adobe-Japan1-6 abstract glyphs"
291 mother =>>adobe-japan1-5
292 registry "AdobeJapan1-6"))
293 (define-charset-alias '=>>adobe-japan1 '=>>adobe-japan1-6)
297 "Adobe-Japan1-0 unified abstract glyphs"
298 '(long-name "Adobe-Japan1-0 unified abstract glyphs"
304 mother =>>adobe-japan1
305 registry "AdobeJapan1-0$"))
308 "Adobe-Japan1-1 unified abstract glyphs"
309 '(long-name "Adobe-Japan1-1 unified abstract glyphs"
315 mother =+>adobe-japan1-0
316 registry "AdobeJapan1-1"))
319 "Adobe-Japan1-2 unified abstract glyphs"
320 '(long-name "Adobe-Japan1-2 unified abstract glyphs"
326 mother =+>adobe-japan1-1
327 registry "AdobeJapan1-2"))
330 "Adobe-Japan1-3 unified abstract glyphs"
331 '(long-name "Adobe-Japan1-3 unified abstract glyphs"
337 mother =+>adobe-japan1-2
338 registry "AdobeJapan1-3"))
341 "Adobe-Japan1-4 unified abstract glyphs"
342 '(long-name "Adobe-Japan1-4 unified abstract glyphs"
348 mother =+>adobe-japan1-3
349 registry "AdobeJapan1-4"))
352 "Adobe-Japan1-5 unified abstract glyphs"
353 '(long-name "Adobe-Japan1-5 unified abstract glyphs"
359 mother =+>adobe-japan1-4
360 registry "AdobeJapan1-5"))
363 "Adobe-Japan1-6 unified abstract glyphs"
364 '(long-name "Adobe-Japan1-6 unified abstract glyphs"
370 mother =+>adobe-japan1-5
371 registry "AdobeJapan1-6"))
372 (define-charset-alias '=+>adobe-japan1 '=+>adobe-japan1-6)
376 "JIS X 0208:1978, unchanged part."
377 '(registry "jisx0208\\.1978"
386 '=jis-x0208@1978/-4pr
387 "JIS X 0208:1978, 1st - 3rd impressions."
388 '(registry "jisx0208\\.1978"
391 mother =jis-x0208@1978
398 "JIS X 0208:1978, 1st impression."
400 registry "jisx0208\\.1978"
403 mother =jis-x0208@1978/-4pr
407 '=jis-x0208@1978/1pr/fixed
408 "JIS X 0208:1978, correct glyph in the errata of 1st impression."
409 '(registry "jisx0208\\.1978"
412 mother =jis-x0208@1978/1pr
419 "JIS X 0208:1978, index before the 4th impression."
420 '(registry "jisx0208\\.1978"
423 mother =jis-x0208@1978
429 ;; '=jis-x0208@1978/1er-pr
430 ;; "JIS X 0208:1978, fixed by errata [Nov 1978]."
431 ;; '(registry "jisx0208\\.1978"
434 ;; mother =jis-x0208@1978
440 '=jis-x0208@1978/2-pr
441 "JIS X 0208:1978, 2nd impression or later."
442 '(registry "jisx0208\\.1978"
445 ;; mother =jis-x0208@1978/1er-pr
446 mother =jis-x0208@1978
453 "JIS X 0208:1978, replaced by errata of 4th impression."
454 '(registry "jisx0208\\.1978"
457 mother =jis-x0208@1978/2-pr
463 '=jis-x0208@1978/4-pr
464 "JIS X 0208:1978, 4th impression or later."
465 '(registry "jisx0208\\.1978"
468 mother =jis-x0208@1978/2-pr
475 "JIS X 0208:1978, 5th impression."
476 '(registry "jisx0208\\.1978"
479 mother =jis-x0208@1978/4-pr
484 (define-charset-alias '=jis-x0208@1978/i1 '=jis-x0208@1978/1pr)
485 (define-charset-alias '=jis-x0208@1978/i-4 '=jis-x0208@1978/-4pr)
486 (define-charset-alias '=jis-x0208@1978/i4- '=jis-x0208@1978/4-pr)
491 "JIS X0208:1978 Japanese Kanji (so called \"old JIS\")."
493 registry "jisx0208\\.1978"
501 (define-charset-alias '=jis-x0208-1978 '=jis-x0208@1978)
502 (define-charset-alias 'japanese-jisx0208-1978 '=jis-x0208@1978)
503 (define-charset-alias 'chinese-gb2312 '=gb2312)
504 (define-charset-alias '=jis-x0208-1983 '=jis-x0208@1983)
505 (define-charset-alias 'japanese-jisx0208 '=jis-x0208@1983)
506 (define-charset-alias 'korean-ksc5601 '=ks-x1001)
507 (define-charset-alias 'japanese-jisx0212 '=jis-x0212)
508 (define-charset-alias 'chinese-cns11643-1 '=cns11643-1)
509 (define-charset-alias 'chinese-cns11643-2 '=cns11643-2)
510 (define-charset-alias 'chinese-gb12345 '=gb12345)
511 (define-charset-alias 'chinese-big5 '=big5)
514 (make-charset 'sisheng "PinYin-ZhuYin"
515 '(registry "sisheng_cwnn\\|OMRON_UDC_ZH"
523 ;; ISO10646's 0x0E80..0x0EDF are mapped to 0x20..0x7F.
524 (make-charset 'lao "Lao script"
525 '(registry "MuleLao-1"
531 ;; IPA (International Phonetic Alphabet)
532 (make-charset 'ipa "International Phonetic Alphabet"
540 (make-charset 'ethiopic "Ethiopic"
548 ;; ISO-IR-165 (CCITT Extended GB)
549 ;; It is based on CCITT Recommendation T.101, includes GB 2312-80 +
550 ;; GB 8565-88 table A4 + 293 characters.
551 (if (featurep 'utf-2000)
553 (make-charset '=iso-ir165
554 "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
562 (define-charset-alias 'chinese-isoir165 '=iso-ir165))
563 (make-charset 'chinese-isoir165
564 "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
572 ;; CNS11643 Plane3 thru Plane7
573 ;; These represent more and more obscure Chinese characters.
574 ;; By the time you get to Plane 7, we're talking about characters
575 ;; that appear once in some ancient manuscript and whose meaning
579 ((make-chinese-cns11643-charset
580 (name iso-ir plane final)
582 name (concat "CNS 11643 Plane " plane " (Chinese traditional)")
585 ,(concat "CNS11643[.-]\\(.*[.-]\\)?" plane "$")
591 (make-chinese-cns11643-charset '=cns11643-3 183 "3" ?I)
592 (make-chinese-cns11643-charset '=cns11643-4 184 "4" ?J)
593 (make-chinese-cns11643-charset '=cns11643-5 185 "5" ?K)
594 (make-chinese-cns11643-charset '=cns11643-6 186 "6" ?L)
595 (make-chinese-cns11643-charset '=cns11643-7 187 "7" ?M)
596 (define-charset-alias 'chinese-cns11643-3 '=cns11643-3)
597 (define-charset-alias 'chinese-cns11643-4 '=cns11643-4)
598 (define-charset-alias 'chinese-cns11643-5 '=cns11643-5)
599 (define-charset-alias 'chinese-cns11643-6 '=cns11643-6)
600 (define-charset-alias 'chinese-cns11643-7 '=cns11643-7)
605 ((featurep 'utf-2000)
608 "JIS X 0213 Plain 1 (unchanged part)"
609 '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
619 "JIS X 0213:2000 Plain 1"
621 registry "jisx0213\\(\\.2000\\)-1"
631 registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
639 "JIS X 0213:2004 Plain 1"
641 registry "jisx0213\\(\\.2004\\)-1"
648 (define-charset-alias 'japanese-jisx0213-1 '=jis-x0213-1@2000)
649 (define-charset-alias 'japanese-jisx0213-2 '=jis-x0213-2)
650 (define-charset-alias '=jis-x0213-1-2000 '=jis-x0213-1@2000)
651 (define-charset-alias '=jis-x0213-2-2000 '=jis-x0213-2)
656 "JIS X 0213:2000 Plain 1"
657 '(registry "jisx0213\\(\\.2000\\)-1"
664 "JIS X 0213:2000 Plain 2"
665 '(registry "jisx0213\\(\\.2000\\)-2"
672 (when (featurep 'utf-2000)
673 (define-charset-alias 'ucs '=ucs)
674 (define-charset-alias '=jis-x0208-1990 '=jis-x0208@1990)
675 (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208@1990)
679 "JIS X 0208 abstract glyph-forms (unchanged part)."
680 '(registry "jisx0208\\.1990"
689 "JIS X 0208:1978 abstract glyph-forms."
690 '(registry "jisx0208\\.1978"
699 "JIS X 0208:1983 abstract glyph-forms."
700 '(registry "jisx0208\\.1983"
708 "JIS X 0208:1990 abstract glyph-forms."
709 '(registry "jisx0208\\.1990"
718 "JIS X 0213 Plain 1 abstract glyph-forms (unchanged part)"
719 '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
729 '=>>>jis-x0213-1@2000
730 "JIS X 0213:2000 Plain 1 abstract glyph-forms"
731 '(registry "jisx0213\\(\\.2000\\)-1"
734 mother =>>>jis-x0213-1
741 '=>>>jis-x0213-1@2004
742 "JIS X 0213:2004 Plain 1 abstract glyph-forms"
743 '(mother =>>>jis-x0213-1
745 ;; registry "jisx0213\\(\\.2004\\)-1"
751 "JIS X 0213 Plain 2 abstract glyph-forms"
752 '(mother =jis-x0213-2
754 registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
761 "JIS X 0208 abstract glyphs (unchanged part)."
762 '(registry "jisx0208\\.1990"
771 "JIS X 0208:1978 abstract glyphs."
772 '(registry "jisx0208\\.1978"
781 "JIS X 0208:1983 abstract glyphs."
782 '(registry "jisx0208\\.1983"
790 "JIS X 0208:1990 abstract glyphs."
791 '(registry "jisx0208\\.1990"
800 "JIS X 0213 Plain 1 abstract glyphs (unchanged part)"
801 '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
804 mother =>>>jis-x0213-1
812 "JIS X 0213:2000 Plain 1 abstract glyphs"
813 '(registry "jisx0213\\(\\.2000\\)-1"
816 mother =>>jis-x0213-1
824 "JIS X 0213 Plain 2 abstract glyphs"
825 '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
828 mother =>>>jis-x0213-2
834 "JIS X 0213:2004 Plain 1 abstract glyphs"
835 '(registry "jisx0213\\(\\.2004\\)-1"
838 mother =>>jis-x0213-1
847 "JIS X 0208 based on usual unification."
848 '(registry "jisx0208\\.1990"
855 (define-charset-alias '=>jis-x0208@usual '=+>jis-x0208)
858 "JIS X 0208:1978 unified abstract glyphs."
859 '(registry "jisx0208\\.1978"
868 "JIS X 0208:1983 unified abstract glyphs."
869 '(registry "jisx0208\\.1983"
877 "JIS X 0208:1990 unified abstract glyphs."
878 '(registry "jisx0208\\.1990"
886 "JIS X 0213 Plain 1 unified abstract glyphs (unchanged part)"
887 '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
890 mother =>>jis-x0213-1
898 "JIS X 0213:2000 Plain 1 unified abstract glyphs"
899 '(registry "jisx0213\\(\\.2000\\)-1"
902 mother =+>jis-x0213-1
910 "JIS X 0213:2004 Plain 1 unified abstract glyphs"
911 '(registry "jisx0213\\(\\.2004\\)-1"
914 mother =+>jis-x0213-1
923 "JIS X 0208 based on the unchanged unification rules."
924 '(registry "jisx0208\\.1990"
931 (define-charset-alias '<=>jis-x0208 '=>jis-x0208)
934 "JIS X 0208 based on the unification rule of 1997 edition."
935 '(registry "jisx0208\\.1990"
942 (define-charset-alias '<=>jis-x0208@1997 '=>jis-x0208@1997)
943 (define-charset-alias ' =jis-x0208@1997 '=>jis-x0208@1997)
947 "JIS X 0213 Plain 1 abstract characters (unchanged part)"
948 '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
951 mother =+>jis-x0213-1
957 (define-charset-alias '<=>jis-x0213-1 '=>jis-x0213-1)
960 "JIS X 0213:2000 Plain 1 abstract characters"
961 '(registry "jisx0213\\(\\.2000\\)-1"
970 (define-charset-alias '<=>jis-x0213-1@2000 '=>jis-x0213-1@2000)
973 "JIS X 0213:2004 Plain 1 abstract characters"
974 '(registry "jisx0213\\(\\.2004\\)-1"
983 (define-charset-alias '<=>jis-x0213-1@2004 '=>jis-x0213-1@2004)
986 "JIS X 0213 Plain 2 based on usual unification."
987 '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
990 mother =>>jis-x0213-2
994 (define-charset-alias '=>jis-x0213-2@usual '=+>jis-x0213-2)
997 "JIS X 0213 Plain 2 abstract characters"
998 '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1001 mother =+>jis-x0213-2
1008 "CNS 11643 Plane 4 abstract glyphs."
1009 '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
1018 "CNS 11643 Plane 2 abstract characters."
1019 '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1027 "CNS 11643 Plane 6 abstract characters."
1028 '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
1036 "CNS 11643 Plane 7 abstract characters."
1037 '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
1044 (make-charset '=big5-eten
1046 '(long-name "Big5-ETEN"
1055 registry "Big5\\.ETEN"))
1056 (define-charset-alias 'chinese-big5-eten '=big5-eten)
1057 (make-charset 'chinese-big5-eten-a
1058 "Big5 ETEN (#xF9D6 .. #xF9FE)"
1059 '(long-name "Big5-ETEN-a"
1068 registry "Big5\\.ETEN"))
1069 (make-charset 'chinese-big5-eten-b
1070 "Big5 ETEN (#xC6A1 .. #xC8FE)"
1071 '(long-name "Big5-ETEN-b"
1080 registry "Big5\\.ETEN"))
1082 (make-charset '=big5-cdp
1083 "Big5 with CDP extension"
1084 '(long-name "Big5-CDP"
1090 registry "big5\\.cdp-0"
1094 (define-charset-alias 'chinese-big5-cdp '=big5-cdp)
1096 (make-charset '=>>big5-cdp
1097 "Abstract glyphs of Big5-CDP"
1098 '(long-name "Big5-CDP glyphs"
1104 registry "big5\\.cdp-0"
1107 (make-charset '=>big5-cdp
1108 "Big5-CDP abstract characters"
1109 '(long-name "Big5-CDP abstract characters"
1115 registry "big5\\.cdp-0"
1116 mother =>>big5-cdp))
1120 "JA (JIS X0208) part of Han'you-Denshi characters"
1121 `(long-name "Han'you-Denshi/JA"
1127 registry "HanyoDenshi\\.JA-0$"
1128 min-code ,(lsh #x6400 16)
1129 max-code ,(+ (lsh #x6400 16) (1- (* 94 94)))
1130 code-offset ,(lsh #x6400 16)))
1133 "JB (JIS X0212) part of Han'you-Denshi characters"
1134 `(long-name "Han'you-Denshi/JB"
1140 registry "HanyoDenshi\\.JB-0$"
1141 min-code ,(+ (lsh #x6400 16) (* 94 94))
1142 max-code ,(+ (lsh #x6400 16) (1- (* 94 94 2)))
1143 code-offset ,(+ (lsh #x6400 16) (* 94 94))))
1146 "JC (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
1147 `(long-name "Han'you-Denshi/JC"
1153 registry "HanyoDenshi\\.JC-0$"
1154 min-code ,(+ (lsh #x6400 16) (* 94 94 2))
1155 max-code ,(+ (lsh #x6400 16) (1- (* 94 94 3)))
1156 code-offset ,(+ (lsh #x6400 16) (* 94 94 2))))
1159 "JD (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
1160 `(long-name "Han'you-Denshi/JD"
1166 registry "HanyoDenshi\\.JD-0$"
1167 min-code ,(+ (lsh #x6400 16) (* 94 94 3))
1168 max-code ,(+ (lsh #x6400 16) (1- (* 94 94 4)))
1169 code-offset ,(+ (lsh #x6400 16) (* 94 94 3))))
1172 "FT (FDPC additional) part of Han'you-Denshi characters"
1173 `(long-name "Han'you-Denshi/FT"
1179 registry "HanyoDenshi\\.FT-0$"
1180 min-code ,(+ (lsh #x6400 16) (* 94 94 4))
1181 max-code ,(+ (lsh #x6400 16) (1- (* 94 94 5)))
1182 code-offset ,(+ (lsh #x6400 16) (* 94 94 4))))
1185 "IA part of Han'you-Denshi characters"
1186 `(long-name "Han'you-Denshi/IA"
1192 registry "HanyoDenshi\\.IA-0$"
1193 min-code ,(+ (lsh #x6400 16) (* 94 94 5))
1194 max-code ,(+ (lsh #x6400 16) (1- (* 94 94 6)))
1195 code-offset ,(+ (lsh #x6400 16) (* 94 94 5))))
1198 "IB part of Han'you-Denshi characters"
1199 `(long-name "Han'you-Denshi/IB"
1205 registry "HanyoDenshi\\.IB-0$"
1206 min-code ,(+ (lsh #x6400 16) (* 94 94 6))
1207 max-code ,(+ (lsh #x6400 16) (1- (* 94 94 7)))
1208 code-offset ,(+ (lsh #x6400 16) (* 94 94 6))))
1211 "HG (HyouGai Kanji) part of Han'you-Denshi characters"
1212 `(long-name "Han'you-Denshi/HG"
1218 registry "HanyoDenshi\\.HG-0$"
1219 min-code ,(+ (lsh #x6400 16) (* 94 94 7))
1220 max-code ,(+ (lsh #x6400 16) (1- (* 94 94 8)))
1221 code-offset ,(+ (lsh #x6400 16) (* 94 94 7))))
1224 "IP (for IPA) part of Han'you-Denshi characters"
1225 `(long-name "Han'you-Denshi/IP"
1231 registry "HanyoDenshi\\.IP-0$"
1232 min-code ,(+ (lsh #x6402 16) #x4E00)
1233 max-code ,(+ (lsh #x6402 16) #x9FFF)
1234 code-offset ,(+ (lsh #x6402 16))))
1237 "JT (Juuki Touitsu Moji) part of Han'you-Denshi characters"
1238 `(long-name "Han'you-Denshi/JT"
1244 registry "HanyoDenshi\\.JT-0$"
1245 min-code ,(+ (lsh #x6402 16) #xAC00)
1246 max-code ,(+ (lsh #x6402 16) #xD7AF)
1247 code-offset ,(+ (lsh #x6402 16))))
1250 "KS (KoSeki) part of Han'you-Denshi characters"
1251 `(long-name "Han'you-Denshi/KS font encoding"
1258 '=hanyo-denshi/ks/mf
1259 "font encoding for KS (KoSeki) characters"
1260 `(long-name "Han'you-Denshi/KS font encoding"
1266 registry "HanyoDenshi\\.KSMF-0$"
1267 min-code ,(lsh #x6403 16)
1268 max-code ,(+ (lsh #x6403 16) #xFFFF)
1269 code-offset ,(lsh #x6403 16)))
1272 '=>>>hanyo-denshi/ja
1273 "Han'you-Denshi/JA abstract glyph-forms"
1274 '(long-name "Han'you-Denshi/JA glyph-forms"
1280 registry "HanyoDenshi\\.JA-0$"
1281 mother =hanyo-denshi/ja))
1283 '=>>>hanyo-denshi/jb
1284 "Han'you-Denshi/JB abstract glyph-forms"
1285 '(long-name "Han'you-Denshi/JB glyph-forms"
1291 registry "HanyoDenshi\\.JB-0$"
1292 mother =hanyo-denshi/jb))
1294 '=>>>hanyo-denshi/jc
1295 "Han'you-Denshi/JC abstract glyph-forms"
1296 '(long-name "Han'you-Denshi/JC glyph-forms"
1302 registry "HanyoDenshi\\.JC-0$"
1303 mother =hanyo-denshi/jc))
1305 '=>>>hanyo-denshi/jd
1306 "Han'you-Denshi/JD abstract glyph-forms"
1307 '(long-name "Han'you-Denshi/JD glyph-forms"
1313 registry "HanyoDenshi\\.JD-0$"
1314 mother =hanyo-denshi/jd))
1316 '=>>>hanyo-denshi/ft
1317 "Han'you-Denshi/FT abstract glyph-forms"
1318 '(long-name "Han'you-Denshi/FT glyph-forms"
1324 registry "HanyoDenshi\\.FT-0$"
1325 mother =hanyo-denshi/ft))
1327 '=>>>hanyo-denshi/ib
1328 "Han'you-Denshi/IB abstract glyph-forms"
1329 '(long-name "Han'you-Denshi/IB glyph-forms"
1335 registry "HanyoDenshi\\.IB-0$"
1336 mother =hanyo-denshi/ib))
1338 '=>>>hanyo-denshi/hg
1339 "Han'you-Denshi/HG abstract glyph-forms"
1340 '(long-name "Han'you-Denshi/HG glyph-forms"
1346 registry "HanyoDenshi\\.HG-0$"
1347 mother =hanyo-denshi/hg))
1349 '=>>>hanyo-denshi/jt
1350 "JT (Juuki Touitsu Moji) abstract glyph-forms"
1351 '(long-name "Han'you-Denshi/JT glyph-forms"
1357 registry "HanyoDenshi\\.JT-0$"
1358 mother =hanyo-denshi/jt))
1360 '=>>>hanyo-denshi/ks
1361 "KoSeki-touitsu-moji abstract glyph-forms"
1362 '(long-name "Han'you-Denshi/KS glyph-forms"
1368 mother =hanyo-denshi/ks))
1372 "Han'you-Denshi/JA abstract glyphs"
1373 '(long-name "Han'you-Denshi/JA glyphs"
1379 registry "HanyoDenshi\\.JA-0$"
1380 mother =>>>hanyo-denshi/ja))
1383 "Han'you-Denshi/JB abstract glyphs"
1384 '(long-name "Han'you-Denshi/JB glyphs"
1390 registry "HanyoDenshi\\.JB-0$"
1391 mother =>>>hanyo-denshi/jb))
1394 "Han'you-Denshi/JC abstract glyphs"
1395 '(long-name "Han'you-Denshi/JC glyphs"
1401 registry "HanyoDenshi\\.JC-0$"
1402 mother =>>>hanyo-denshi/jc))
1405 "Han'you-Denshi/JD abstract glyphs"
1406 '(long-name "Han'you-Denshi/JD glyphs"
1412 registry "HanyoDenshi\\.JD-0$"
1413 mother =>>>hanyo-denshi/jd))
1416 "Han'you-Denshi/FT abstract glyphs"
1417 '(long-name "Han'you-Denshi/FT glyphs"
1423 registry "HanyoDenshi\\.FT-0$"
1424 mother =>>>hanyo-denshi/ft))
1427 "Han'you-Denshi/IA abstract glyphs"
1428 '(long-name "Han'you-Denshi/IA glyphs"
1434 registry "HanyoDenshi\\.IA-0$"
1435 mother =hanyo-denshi/ia))
1438 "Han'you-Denshi/IB abstract glyphs"
1439 '(long-name "Han'you-Denshi/IB abstract glyphs"
1445 registry "HanyoDenshi\\.IB-0$"
1446 mother =>>>hanyo-denshi/ib))
1449 "Han'you-Denshi/HG abstract glyphs"
1450 '(long-name "Han'you-Denshi/HG abstract glyphs"
1456 registry "HanyoDenshi\\.HG-0$"
1457 mother =>>>hanyo-denshi/hg))
1460 "Han'you-Denshi/IP abstract glyphs"
1461 '(long-name "Han'you-Denshi/IP abstract glyphs"
1467 registry "HanyoDenshi\\.IP-0$"
1468 mother =hanyo-denshi/ip))
1471 "JT (Juuki Touitsu Moji) abstract glyphs"
1472 '(long-name "Han'you-Denshi/JT glyphs"
1478 registry "HanyoDenshi\\.JT-0$"
1479 mother =>>>hanyo-denshi/jt))
1482 "Han'you-Denshi/KS abstract glyphs"
1483 '(long-name "Han'you-Denshi/KS glyphs"
1489 mother =>>>hanyo-denshi/ks))
1500 min-code ,(lsh #x6100 16)
1501 max-code ,(+ (lsh #x6100 16) 67547)
1502 code-offset ,(lsh #x6100 16)))
1503 (define-charset-alias 'ideograph-gt '=gt)
1504 (make-charset '=>>>gt
1505 "GT 2000 abstract glyph-forms"
1506 '(long-name "GT abstract glyph-forms"
1513 (make-charset '=>>gt
1514 "GT 2000 abstract glyphs"
1515 '(long-name "GT abstract glyphs"
1522 (define-charset-alias '<=>gt '=>>gt)
1523 (define-charset-alias '<==>gt '=>>gt)
1524 (make-charset '=+>gt
1525 "GT 2000 unified abstract glyphs"
1526 '(long-name "Unified abstract GT glyphs"
1534 "GT 2000 abstract characters"
1535 '(long-name "abstract GT characters"
1542 (make-charset '=gt-k
1543 "Ideographic components of GT"
1544 `(long-name "GT components"
1551 min-code ,(lsh #x6110 16)
1552 max-code ,(+ (lsh #x6110 16) 17090)
1553 code-offset ,(lsh #x6110 16)))
1554 (define-charset-alias 'ideograph-gt-k '=gt-k)
1555 (make-charset '=>>gt-k
1556 "abstract glyphs of GT-K"
1557 '(long-name "GT-K abstract glyphs"
1564 (make-charset '=>gt-k
1565 "GT-K abstract characters"
1566 '(long-name "GT-K abstract characters"
1576 (intern (format "=gt-pj-%d" i))
1577 (format "GT 2000 (pseudo JIS encoding) part %d" i)
1578 `(long-name ,(format "GT PJ %d" i)
1584 registry ,(format "\\(GTpj-%d\\|jisx0208\\.GT-%d\\)$" i i)))
1585 (define-charset-alias
1586 (intern (format "ideograph-gt-pj-%d" i))
1587 (intern (format "=gt-pj-%d" i)))
1591 "Ideographic parts of GT (pseudo JIS encoding) part 1"
1598 registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$"))
1599 (define-charset-alias 'ideograph-gt-pj-k1 '=gt-pj-k1)
1602 "Ideographic parts of GT (pseudo JIS encoding) part 2"
1609 registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$"))
1610 (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2)
1612 (make-charset '=daikanwa
1613 "Daikanwa dictionary (unchanged part)"
1614 `(long-name "Daikanwa"
1620 registry "Daikanwa\\(\\.[0-9]+\\)?-3"
1622 max-code ,(+ #xE00000 50100)
1623 code-offset #xE00000))
1624 (define-charset-alias 'ideograph-daikanwa '=daikanwa)
1626 (make-charset '=daikanwa@rev1
1627 "Daikanwa dictionary (revised version)"
1628 '(long-name "Daikanwa Rev."
1634 registry "Daikanwa\\(\\.[0-9]+\\)?-2"
1636 (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa@rev1)
1637 (define-charset-alias '=daikanwa-rev1 '=daikanwa@rev1)
1639 (make-charset '=daikanwa@rev2
1640 "Daikanwa dictionary (revised version 2)"
1641 '(long-name "Daikanwa"
1647 registry "Daikanwa\\(\\.[0-9]+\\)?-3"
1651 (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2)
1653 (make-charset '=daikanwa/+p
1654 "Daikanwa dictionary (ddddd')"
1655 '(long-name "Daikanwa ddddd'"
1661 (make-charset '=daikanwa/+2p
1662 "Daikanwa dictionary (ddddd'')"
1663 '(long-name "Daikanwa ddddd''"
1669 (make-charset '=daikanwa/ho
1670 "Daikanwa dictionary (Hokan)"
1671 '(long-name "Daikanwa-ho"
1678 (make-charset '=>>daikanwa
1679 "Daikanwa abstract glyphs"
1680 '(long-name "Daikanwa glyphs"
1686 registry "Daikanwa\\(\\.[0-9]+\\)?-3"
1688 (make-charset '=>>daikanwa/+p
1689 "Daikanwa abstract glyphs (ddddd')"
1690 '(long-name "Daikanwa glyphs (ddddd')"
1696 mother =daikanwa/+p))
1697 (make-charset '=>>daikanwa/+2p
1698 "Daikanwa abstract glyphs (ddddd'')"
1699 '(long-name "Daikanwa glyphs (ddddd'')"
1705 mother =daikanwa/+2p))
1706 (make-charset '=>>daikanwa/ho
1707 "Daikanwa abstract glyphs (Hokan)"
1708 '(long-name "Daikanwa-ho glyph"
1714 mother =daikanwa/ho))
1716 (make-charset '=>daikanwa
1717 "Daikanwa abstract characters"
1718 '(long-name "abstract Daikanwa"
1724 registry "Daikanwa\\(\\.[0-9]+\\)?-3"
1725 mother =>>daikanwa))
1726 (make-charset '=>daikanwa/ho
1727 "Daikanwa abstract characters (Hokan)"
1728 '(long-name "abstract Daikanwa-ho"
1734 mother =>>daikanwa/ho))
1736 (make-charset '=shinjigen
1737 "Kadokawa ShinJigen dictionary (common parts)"
1738 `(long-name "Shinjigen common parts"
1744 registry "Shinjigen\\(\\.[0-9]+\\)?-*"))
1746 (make-charset '=shinjigen@1ed
1747 "Kadokawa ShinJigen dictionary (the first edition)"
1748 `(long-name "Shinjigen-1"
1755 registry "Shinjigen\\(\\.[0-9]+\\)?-1"))
1756 (define-charset-alias 'shinjigen-1 '=shinjigen@1ed)
1758 (make-charset '=shinjigen@1ed/24pr
1759 "Kadokawa ShinJigen dictionary (the 24th impression)"
1760 `(long-name "Shinjigen-1 24pr"
1766 mother =shinjigen@1ed))
1768 (make-charset '=shinjigen@rev
1769 "Kadokawa ShinJigen dictionary (the revised edition)"
1770 `(long-name "Shinjigen-2"
1777 registry "Shinjigen\\(\\.[0-9]+\\)?-2"))
1778 (define-charset-alias 'shinjigen-2 '=shinjigen@rev)
1779 (make-charset '=shinjigen/+p@rev
1780 "ShinJigen (the second edition) number with '"
1781 `(long-name "Shinjigen-2 with '"
1787 (define-charset-alias 'shinjigen-2-p '=shinjigen/+p@rev)
1789 (make-charset '=big5-pua
1790 "Big5 with private used area"
1791 '(long-name "Big5-PUA"
1798 registry "Big5\\.ETEN"))
1799 (define-charset-alias 'chinese-big5-pua '=big5-pua)
1802 (hzk-min (+ (lsh #x6200 16) 65536))
1803 (hzk-max (+ hzk-min 65535)))
1806 (intern (format "=hanziku-%d" i))
1807 (format "HANZIKU (pseudo BIG5 encoding) part %d" i)
1808 `(long-name ,(format "HANZIKU-%d" i)
1814 registry ,(format "hanziku-%d$" i i)
1817 code-offset ,hzk-min))
1818 (define-charset-alias
1819 (intern (format "ideograph-hanziku-%d" i))
1820 (intern (format "=hanziku-%d" i)))
1821 (setq hzk-min (1+ hzk-max)
1822 hzk-max (+ hzk-min 65535))
1825 (make-charset '=cbeta "CBETA private characters"
1826 '(long-name "CBETA PUA"
1833 code-offset #xE20000
1836 (define-charset-alias 'ideograph-cbeta '=cbeta)
1838 (make-charset '=>>cbeta "CBETA abstract glyphs"
1839 '(long-name "CBETA glyphs"
1848 (make-charset '=zinbun-oracle
1849 "Oracle Bones Script"
1850 `(long-name "Oracle Bones Script in Zinbun, Kyoto Univ."
1853 registry "zob1968-0"
1856 max-code ,(+ #xE70000 8192)
1857 code-offset #xE70000
1861 (make-charset '=>zinbun-oracle
1862 "Abstract Oracle Bones"
1863 '(long-name "Abstract characters of Zinbun Oracle Bones."
1866 mother =zinbun-oracle
1867 registry "zob1968-0"
1872 (make-charset '=jef-china3
1873 "JEF + CHINA3 private characters"
1874 '(long-name "JEF + CHINA3"
1880 registry "china3jef-0"
1883 code-offset #xE80000))
1884 (define-charset-alias 'china3-jef '=jef-china3)
1886 (make-charset '=ruimoku-v6
1887 "private characters used in RUIMOKU Version.6"
1896 min-code #xE90000 ; #xE000
1897 max-code #xE908FF ; #xE8FF
1898 code-offset ,(- #xE90000 #xE000)))
1899 (make-charset '=>>ruimoku-v6
1900 "RUIMOKU Version.6 glyphs"
1901 '(long-name "RUI6 glyphs"
1908 mother =ruimoku-v6))
1912 ;; "ZhongHua-ZiHai glyph-images"
1913 ;; '(long-name "ZhongHua-ZiHai (pppp-nn)"
1922 ;; "ZhongHua-ZiHai (pp.1700
\e$B!A
\e(B1781) glyph-images"
1923 ;; '(long-name "ZhongHua-ZiHai pp.17xx"
1929 ;; registry "zihai\\.cp-17$"))
1931 (make-charset '=big5-cdp-var-3
1932 "Big5-CDP-var-3 glyph-images of GlyphWiki"
1933 '(long-name "Big5-CDP-var-3"
1939 registry "cdp\\.var-3$"
1942 (make-charset '=big5-cdp-var-5
1943 "Big5-CDP-var-5 glyph-images of GlyphWiki"
1944 '(long-name "Big5-CDP-var-5"
1950 registry "cdp\\.var-5$"
1953 (make-charset '==>ucs@bucs
1954 "Basic Subset of Coded Character Sets (BUCS)"
1955 '(long-name "BUCS abstract characters"
1964 (make-charset '=>ucs@iso
1965 "Abstract characters of ISO/IEC 10646 representatives"
1966 '(long-name "UCS characters for ISO"
1974 (make-charset '=>ucs@unicode
1975 "Abstract characters of Unicode representatives"
1976 '(long-name "UCS characters for Unicode"
1984 (make-charset '=>ucs@jis
1985 "UCS representative characters for JIS X0208/0212/0213"
1986 '(long-name "UCS characters for JIS"
1993 mother =>ucs@unicode))
1994 (make-charset '=>ucs@ks
1995 "UCS representative characters for Korean Standards"
1996 '(long-name "UCS characters for KS"
2003 mother =>ucs@unicode))
2004 (make-charset '=>ucs@cns
2005 "UCS representatives characters for CNS 11643 sources"
2006 '(long-name "UCS characters for CNS 11643"
2013 mother =>ucs@unicode))
2015 (make-charset '=+>ucs@iso
2016 "UCS based on ISO/IEC 10646 representative glyphs"
2017 '(long-name "Unified abstract glyphs of UCS"
2025 (make-charset '=+>ucs@unicode
2026 "Unicode representative unified abstract glyphs"
2027 '(long-name "UCS unified abstract glyphs for Unicode"
2035 (make-charset '=+>ucs@jis
2036 "UCS based on Japanese usual unification"
2037 '(long-name "UCS unified abstract glyphs for JP"
2044 mother =+>ucs@unicode))
2045 (define-charset-alias '=>ucs@JP '=+>ucs@jis)
2046 (make-charset '=+>ucs@jis/1990
2047 "UCS representative characters for JIS X0208/0212:1990"
2048 '(long-name "UCS characters for JIS:1990"
2056 (define-charset-alias '=>ucs@jis/1990 '=+>ucs@jis/1990)
2057 (make-charset '=+>ucs@jis/2004
2058 "UCS representative characters for JIS X 0213:2004"
2059 '(long-name "UCS characters for JIS:2004"
2067 (make-charset '=+>ucs@ks
2068 "UCS representative unified abstract glyphs for Korean Standards"
2069 '(long-name "UCS unified abstract glyphs for KS"
2076 mother =+>ucs@unicode))
2077 (make-charset '=+>ucs@cns
2078 "UCS representatives unified abstract glyphs for CNS 11643 sources"
2079 '(long-name "UCS unified abstract glyphs for CNS"
2086 mother =+>ucs@unicode))
2088 (make-charset '=>>ucs@iso
2089 "Representative abstract-glyphs of ISO/IEC 10646"
2090 '(long-name "UCS abstract glyphs for UCS"
2098 (make-charset '=>>ucs@unicode
2099 "Representative abstract-glyphs of Unicode"
2100 '(long-name "Unicode abstract glyphs"
2108 (make-charset '=>>ucs@jis
2109 "UCS Representative abstract-glyphs for JIS X0208/0212/0213"
2110 '(long-name "UCS abstract glyphs for JIS"
2117 mother =>>ucs@unicode))
2118 (make-charset '=>>ucs@jis/1990
2119 "UCS Representative glyphs for JIS X 0208/0212:1990"
2120 '(long-name "UCS glyphs for JIS:1990"
2128 (make-charset '=>>ucs@jis/2000
2129 "UCS Representative glyphs for JIS X 0213:2000"
2130 '(long-name "UCS glyphs for JIS:2000"
2138 (make-charset '=>>ucs@jis/2004
2139 "UCS Representative glyphs for JIS X 0213:2004"
2140 '(long-name "UCS glyphs for JIS:2004"
2148 (make-charset '=>>ucs@JP
2149 "UCS abstract-glyphs based on Japanese style glyphs"
2150 '(long-name "UCS glyphs for JP"
2157 mother =>>ucs@jis/2004))
2158 (make-charset '=>>ucs@ks
2159 "UCS Representative glyphs for Korean Standards"
2160 '(long-name "UCS glyphs for KS"
2167 mother =>>ucs@unicode))
2168 (make-charset '=>>ucs@cns
2169 "UCS Representative glyphs for CNS 11643 sources"
2170 '(long-name "UCS glyphs for CNS"
2177 mother =>>ucs@unicode))
2179 (make-charset '=>>>ucs@iso
2180 "Representative glyph-forms of ISO/IEC 10646"
2181 '(long-name "UCS glyph-forms for UCS"
2189 (make-charset '=>>>ucs@unicode
2190 "Representative glyph-forms of Unicode"
2191 '(long-name "UCS glyph-forms for Unicode"
2198 mother =>>>ucs@iso))
2199 (make-charset '=>>>ucs@jis
2200 "UCS Representative glyph-forms for JIS X0208/0212/0213"
2201 '(long-name "UCS glyph-forms for JIS"
2208 mother =>>>ucs@unicode))
2209 (make-charset '=>>>ucs@jis/1990
2210 "UCS Representative glyph-forms for JIS X 0208/0212:1990"
2211 '(long-name "UCS glyph-forms for JIS:1990"
2218 mother =>>>ucs@jis))
2219 (make-charset '=>>>ucs@jis/2000
2220 "UCS Representative glyph-forms for JIS X 0213:2000"
2221 '(long-name "UCS glyph-forms for JIS:2000"
2228 mother =>>>ucs@jis))
2229 (make-charset '=>>>ucs@jis/2004
2230 "UCS Representative glyph-forms for JIS X 0213:2004"
2231 '(long-name "UCS glyph-forms for JIS:2004"
2238 mother =>>>ucs@jis))
2239 (make-charset '=>>>ucs@ks
2240 "UCS Representative glyph-forms for Korean Standards"
2241 '(long-name "UCS glyph-forms for KS"
2248 mother =>>>ucs@unicode))
2249 (make-charset '=>>>ucs@cns
2250 "UCS Representative glyph-forms for CNS 11643 sources"
2251 '(long-name "UCS glyph-forms for CNS"
2258 mother =>>>ucs@unicode))
2260 (make-charset '=ucs@iso
2261 "ISO/IEC 10646 for its representative glyphs"
2262 '(long-name "UCS for ISO"
2269 mother =>>>ucs@iso))
2270 (make-charset '=ucs@unicode
2271 "Unicode for its representative glyphs"
2272 '(long-name "UCS for Unicode"
2280 (make-charset '=ucs@gb
2281 "ISO/IEC 10646 for GB"
2282 '(long-name "UCS for GB"
2289 mother =ucs@unicode))
2290 (define-charset-alias 'ucs-gb '=ucs@gb)
2291 (make-charset '=ucs@gb/fw
2292 "ISO/IEC 10646 for GB with fullwidth"
2293 '(long-name "UCS for GB-fullwidth"
2301 (make-charset '=ucs-bmp@gb
2302 "ISO/IEC 10646 BMP for GB"
2303 '(long-name "BMP for GB"
2312 (make-charset '=ucs@cns
2313 "ISO/IEC 10646 for CNS 11643"
2314 '(long-name "UCS for CNS"
2321 mother =ucs@unicode))
2322 (define-charset-alias 'ucs-cns '=ucs@cns)
2323 (make-charset '=ucs@cns/fw
2324 "ISO/IEC 10646 for CNS 11643 with fullwidth"
2325 '(long-name "UCS for CNS-fullwidth"
2333 (make-charset '=ucs-bmp@cns
2334 "ISO/IEC 10646 BMP for CNS"
2335 '(long-name "BMP for CNS"
2344 (make-charset '=ucs@jis
2345 "ISO/IEC 10646 for JIS X0208/0212/0213"
2346 '(long-name "UCS for JIS"
2353 mother =ucs@unicode))
2354 (define-charset-alias 'ucs-jis '=ucs@jis)
2355 (make-charset '=ucs@jis/fw
2356 "ISO/IEC 10646 for JIS X0208/0212/0213 with fullwidth"
2357 '(long-name "UCS for JIS-fullwidth"
2365 (make-charset '=ucs-bmp@jis
2366 "ISO/IEC 10646 BMP for JIS"
2367 '(long-name "BMP for JIS"
2376 ;; (make-charset '=ucs@jis/1983
2377 ;; "ISO/IEC 10646 for JIS X 0208:1983"
2378 ;; '(long-name "UCS for JIS:1983"
2385 ;; mother =ucs@jis))
2386 (make-charset '=ucs@jis/1990
2387 "ISO/IEC 10646 for JIS X 0208/0212:1990"
2388 '(long-name "UCS for JIS:1990"
2396 (define-charset-alias '=ucs@jis-1990 '=ucs@jis/1990)
2397 (define-charset-alias '=ucs-jis-1990 '=ucs@jis/1990)
2398 (make-charset '=ucs@jis/2000
2399 "ISO/IEC 10646 for JIS X 0213:2000"
2400 '(long-name "UCS for JIS:2000"
2408 (define-charset-alias '=ucs@jis-2000 '=ucs@jis/2000)
2409 (define-charset-alias '=ucs-jis-2000 '=ucs@jis/2000)
2410 (make-charset '=ucs@jis/2004
2411 "ISO/IEC 10646 for JIS X 0213:2004"
2412 '(long-name "UCS for JIS:2004"
2420 (make-charset '=ucs@JP
2421 "UCS for common glyphs used in Japan"
2422 '(long-name "UCS for Japan"
2429 mother =ucs@jis/2004))
2430 (define-charset-alias '=ucs@jp '=ucs@JP)
2431 (make-charset '=ucs@JP/hanazono
2432 "Japanese glyph-images of Hanazono Mincho"
2433 '(long-name "UCS for Hana-Min"
2441 (make-charset '=ucs@ks
2442 "ISO/IEC 10646 for Korean Standards"
2443 '(long-name "UCS for KS"
2450 mother =ucs@unicode))
2451 (define-charset-alias 'ucs-ks '=ucs@ks)
2452 (make-charset '=ucs-bmp@ks
2453 "ISO/IEC 10646 BMP for KS"
2454 '(long-name "BMP for KS"
2463 (make-charset '=ucs@cns11643
2464 "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw"
2465 '(long-name "UCS for CNS11643"
2473 (make-charset '=ucs@big5
2474 "ISO/IEC 10646 for Big5"
2475 '(long-name "UCS for Big5"
2483 (define-charset-alias 'ucs-big5 '=ucs@big5)
2484 (make-charset '=ucs@big5/cns11643
2485 "ISO/IEC 10646 for Big5 based on www.cns11643.gov.tw"
2486 '(long-name "UCS for Big5@CNS11643"
2495 (make-charset '=ucs-itaiji-084
2496 "uXXXX-itaiji-084 glyph-images of GlyphWiki"
2497 '(long-name "UCS-itaiji-084"
2505 (make-charset '=ucs-bmp-itaiji-084
2506 "uXXXX-itaiji-084 glyph-images in BMP"
2507 '(long-name "UCS-BMP-itaiji-084"
2514 mother =ucs-itaiji-084
2517 registry "ucs\\.itaiji084-0"))
2521 "CJK Radicals of UCS"
2522 '(long-name "UCS-Radicals"
2528 registry "-zhRadicals-.*-ucs-0"
2530 min-code #x2E00 max-code #x2FFF))
2532 '=ucs-radicals@unicode
2533 "CJK Radicals of UCS"
2534 '(long-name "UCS-Radicals"
2540 registry "-zhRadicals-.*-ucs-0"
2542 min-code #x2E00 max-code #x2FFF))
2545 "Hangul Syllables of UCS"
2546 '(long-name "UCS-Hangul-Syllables"
2552 registry "-Hangul-.*-ucs-0"
2554 min-code #xAC00 max-code #xD7AF))
2557 "CJK Characters in BMP of UCS"
2558 '(long-name "UCS-BMP-CJK"
2564 registry "-zh-.*-ucs-0"
2572 "CJK Characters in BMP with GB representative glyph-images."
2573 '(long-name "CJK in BMP@GB"
2579 registry "-zh-.*-ucs-0"
2587 "CJK Characters in BMP with JIS representative glyphs"
2588 '(long-name "CJK in BMP@JP"
2594 registry "-ja-.*-ucs-0"
2601 '=ucs-bmp-cjk@JP/hanazono
2602 "CJK Characters in BMP with Hanazono font"
2603 '(long-name "CJK in BMP@JP/Hanazono"
2609 registry "-ja-.*-ucs-0"
2610 mother =ucs@JP/hanazono
2616 '=+>ucs-bmp-cjk@unicode
2617 "Unicode representative characters of CJK Unified Ideographs in BMP"
2618 '(long-name "Unicode-BMP-CJK unified abstract glyphs"
2624 registry "-zh-.*-ucs-0"
2625 mother =+>ucs@unicode
2631 '=>ucs-bmp-cjk@unicode
2632 "Unicode representative characters of CJK Unified Ideographs in BMP"
2633 '(long-name "Unicode-BMP-CJK"
2639 registry "-zh-.*-ucs-0"
2640 mother =>ucs@unicode
2646 '==>ucs-bmp-cjk@bucs
2647 "CJK Characters in BMP of BUCS"
2648 '(long-name "BUCS-BMP-CJK"
2654 registry "-zh-.*-ucs-0"
2661 '=ucs-bmp-cjk-compat
2662 "CJK Compatibility Ideographs in BMP of UCS"
2663 '(long-name "CJK Compatibility Ideographs"
2669 registry "-ja-.*-ucs-0"
2675 '=ucs-bmp-cjk-compat@unicode
2676 "CJK Compatibility Ideographs of Unicode representatives"
2677 '(long-name "CJK Compatibility Ideographs of Unicode"
2683 registry "-ja-.*-ucs-0"
2689 '=+>ucs-bmp-cjk-compat@jis
2690 "CJK Compatibility Ideographs of JIS representatives unified glyphs"
2691 '(long-name "JIS unified glyphs for CJK Compat chars"
2697 registry "-ja-.*-ucs-0"
2704 "CJK Ideographs Extension B"
2705 '(long-name "UCS CJK Ext-B"
2711 registry "\\(iso10646\\|ucs02\\)-2$"
2713 min-code #x20000 max-code #x2A6D6
2714 code-offset #x20000))
2717 "CJK Ideographs Extension B (ISO/IEC 10646-2)"
2718 '(long-name "UCS CJK Ext-B"
2724 registry "\\(iso10646\\|ucs02\\)-2$"
2726 min-code #x20000 max-code #x2A6D6
2727 code-offset #x20000))
2730 ;;; mule-conf.el ends here