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-6]$"))
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-6]$"))
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-6]$"))
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-6]$"))
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-6]$"))
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-6]$"))
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 detailed glyph-images."
140 '(long-name "Adobe-Japan1-0 glyph-images"
146 mother =adobe-japan1-0
147 registry "AdobeJapan1-0$"))
150 "Adobe-Japan1-1 detailed glyph-images."
151 '(long-name "Adobe-Japan1-1 glyph-images"
157 mother ==adobe-japan1-0
158 registry "AdobeJapan1-1$"))
161 "Adobe-Japan1-2 detailed glyph-images."
162 '(long-name "Adobe-Japan1-2 glyph-images"
168 mother ==adobe-japan1-1
169 registry "AdobeJapan1-2$"))
172 "Adobe-Japan1-3 detailed glyph-images."
173 '(long-name "Adobe-Japan1-3 glyph-images"
179 mother ==adobe-japan1-2
180 registry "AdobeJapan1-3$"))
183 "Adobe-Japan1-4 detailed glyph-images."
184 '(long-name "Adobe-Japan1-4 glyph-images"
190 mother ==adobe-japan1-3
191 registry "AdobeJapan1-4$"))
194 "Adobe-Japan1-5 detailed glyph-images."
195 '(long-name "Adobe-Japan1-5 glyph-images"
201 mother ==adobe-japan1-4
202 registry "AdobeJapan1-5$"))
205 "Adobe-Japan1-6 detailed glyph-images."
206 '(long-name "Adobe-Japan1-6 glyph-images"
212 mother ==adobe-japan1-5
213 registry "AdobeJapan1-6$"))
214 (define-charset-alias '==adobe-japan1 '==adobe-japan1-6)
216 (define-charset-alias '=>>>adobe-japan1-0 '=adobe-japan1-0)
217 (define-charset-alias '=>>>adobe-japan1-1 '=adobe-japan1-1)
218 (define-charset-alias '=>>>adobe-japan1-2 '=adobe-japan1-2)
219 (define-charset-alias '=>>>adobe-japan1-3 '=adobe-japan1-3)
220 (define-charset-alias '=>>>adobe-japan1-4 '=adobe-japan1-4)
221 (define-charset-alias '=>>>adobe-japan1-5 '=adobe-japan1-5)
222 (define-charset-alias '=>>>adobe-japan1-6 '=adobe-japan1-6)
224 ;; '=>>>adobe-japan1-0
225 ;; "Adobe-Japan1-0 abstract glyph-forms"
226 ;; '(long-name "Adobe-Japan1-0 abstract glyph-forms"
232 ;; mother =adobe-japan1-0
233 ;; registry "AdobeJapan1-0$"))
235 ;; '=>>>adobe-japan1-1
236 ;; "Adobe-Japan1-1 abstract glyph-forms"
237 ;; '(long-name "Adobe-Japan1-1 abstract glyph-forms"
243 ;; mother =>>>adobe-japan1-0
244 ;; registry "AdobeJapan1-1$"))
246 ;; '=>>>adobe-japan1-2
247 ;; "Adobe-Japan1-2 abstract glyph-forms"
248 ;; '(long-name "Adobe-Japan1-2 abstract glyph-forms"
254 ;; mother =>>>adobe-japan1-1
255 ;; registry "AdobeJapan1-2$"))
257 ;; '=>>>adobe-japan1-3
258 ;; "Adobe-Japan1-3 abstract glyph-forms"
259 ;; '(long-name "Adobe-Japan1-3 abstract glyph-forms"
265 ;; mother =>>>adobe-japan1-2
266 ;; registry "AdobeJapan1-3$"))
268 ;; '=>>>adobe-japan1-4
269 ;; "Adobe-Japan1-4 abstract glyph-forms"
270 ;; '(long-name "Adobe-Japan1-4 abstract glyph-forms"
276 ;; mother =>>>adobe-japan1-3
277 ;; registry "AdobeJapan1-4$"))
279 ;; '=>>>adobe-japan1-5
280 ;; "Adobe-Japan1-5 abstract glyph-forms"
281 ;; '(long-name "Adobe-Japan1-5 abstract glyph-forms"
287 ;; mother =>>>adobe-japan1-4
288 ;; registry "AdobeJapan1-5$"))
290 ;; '=>>>adobe-japan1-6
291 ;; "Adobe-Japan1-6 abstract glyph-forms"
292 ;; '(long-name "Adobe-Japan1-6 abstract glyph-forms"
298 ;; mother =>>>adobe-japan1-5
299 ;; registry "AdobeJapan1-6$"))
300 (define-charset-alias '=>>>adobe-japan1 '=>>>adobe-japan1-6)
304 "Adobe-Japan1-0 abstract glyphs"
305 '(long-name "Adobe-Japan1-0 abstract glyphs"
311 mother =>>>adobe-japan1
312 registry "AdobeJapan1-0$"))
315 "Adobe-Japan1-1 abstract glyphs"
316 '(long-name "Adobe-Japan1-1 abstract glyphs"
322 mother =>>adobe-japan1-0
323 registry "AdobeJapan1-1"))
326 "Adobe-Japan1-2 abstract glyphs"
327 '(long-name "Adobe-Japan1-2 abstract glyphs"
333 mother =>>adobe-japan1-1
334 registry "AdobeJapan1-2"))
337 "Adobe-Japan1-3 abstract glyphs"
338 '(long-name "Adobe-Japan1-3 abstract glyphs"
344 mother =>>adobe-japan1-2
345 registry "AdobeJapan1-3"))
348 "Adobe-Japan1-4 abstract glyphs"
349 '(long-name "Adobe-Japan1-4 abstract glyphs"
355 mother =>>adobe-japan1-3
356 registry "AdobeJapan1-4"))
359 "Adobe-Japan1-5 abstract glyphs"
360 '(long-name "Adobe-Japan1-5 abstract glyphs"
366 mother =>>adobe-japan1-4
367 registry "AdobeJapan1-5"))
370 "Adobe-Japan1-6 abstract glyphs"
371 '(long-name "Adobe-Japan1-6 abstract glyphs"
377 mother =>>adobe-japan1-5
378 registry "AdobeJapan1-6"))
379 (define-charset-alias '=>>adobe-japan1 '=>>adobe-japan1-6)
383 "Adobe-Japan1-0 unified abstract glyphs"
384 '(long-name "Adobe-Japan1-0 unified abstract glyphs"
390 mother =>>adobe-japan1
391 registry "AdobeJapan1-0$"))
394 "Adobe-Japan1-1 unified abstract glyphs"
395 '(long-name "Adobe-Japan1-1 unified abstract glyphs"
401 mother =+>adobe-japan1-0
402 registry "AdobeJapan1-1"))
405 "Adobe-Japan1-2 unified abstract glyphs"
406 '(long-name "Adobe-Japan1-2 unified abstract glyphs"
412 mother =+>adobe-japan1-1
413 registry "AdobeJapan1-2"))
416 "Adobe-Japan1-3 unified abstract glyphs"
417 '(long-name "Adobe-Japan1-3 unified abstract glyphs"
423 mother =+>adobe-japan1-2
424 registry "AdobeJapan1-3"))
427 "Adobe-Japan1-4 unified abstract glyphs"
428 '(long-name "Adobe-Japan1-4 unified abstract glyphs"
434 mother =+>adobe-japan1-3
435 registry "AdobeJapan1-4"))
438 "Adobe-Japan1-5 unified abstract glyphs"
439 '(long-name "Adobe-Japan1-5 unified abstract glyphs"
445 mother =+>adobe-japan1-4
446 registry "AdobeJapan1-5"))
449 "Adobe-Japan1-6 unified abstract glyphs"
450 '(long-name "Adobe-Japan1-6 unified abstract glyphs"
456 mother =+>adobe-japan1-5
457 registry "AdobeJapan1-6"))
458 (define-charset-alias '=+>adobe-japan1 '=+>adobe-japan1-6)
462 "JIS X 0208:1978, unchanged part."
463 '(registry "jisx0208\\.1978"
472 '=jis-x0208@1978/-4pr
473 "JIS X 0208:1978, 1st - 3rd impressions."
474 '(registry "jisx0208\\.1978"
477 mother =jis-x0208@1978
484 "JIS X 0208:1978, 1st impression."
486 registry "jisx0208\\.1978"
489 mother =jis-x0208@1978/-4pr
493 '=jis-x0208@1978/1pr/fixed
494 "JIS X 0208:1978, correct glyph in the errata of 1st impression."
495 '(registry "jisx0208\\.1978"
498 mother =jis-x0208@1978/1pr
505 "JIS X 0208:1978, index before the 4th impression."
506 '(registry "jisx0208\\.1978"
509 mother =jis-x0208@1978
515 ;; '=jis-x0208@1978/1er-pr
516 ;; "JIS X 0208:1978, fixed by errata [Nov 1978]."
517 ;; '(registry "jisx0208\\.1978"
520 ;; mother =jis-x0208@1978
526 '=jis-x0208@1978/2-pr
527 "JIS X 0208:1978, 2nd impression or later."
528 '(registry "jisx0208\\.1978"
531 ;; mother =jis-x0208@1978/1er-pr
532 mother =jis-x0208@1978
539 "JIS X 0208:1978, replaced by errata of 4th impression."
540 '(registry "jisx0208\\.1978"
543 mother =jis-x0208@1978/2-pr
549 '=jis-x0208@1978/4-pr
550 "JIS X 0208:1978, 4th impression or later."
551 '(registry "jisx0208\\.1978"
554 mother =jis-x0208@1978/2-pr
561 "JIS X 0208:1978, 5th impression."
562 '(registry "jisx0208\\.1978"
565 mother =jis-x0208@1978/4-pr
570 (define-charset-alias '=jis-x0208@1978/i1 '=jis-x0208@1978/1pr)
571 (define-charset-alias '=jis-x0208@1978/i-4 '=jis-x0208@1978/-4pr)
572 (define-charset-alias '=jis-x0208@1978/i4- '=jis-x0208@1978/4-pr)
577 "JIS X0208:1978 Japanese Kanji (so called \"old JIS\")."
579 registry "jisx0208\\.1978"
587 (define-charset-alias '=jis-x0208-1978 '=jis-x0208@1978)
588 (define-charset-alias 'japanese-jisx0208-1978 '=jis-x0208@1978)
589 (define-charset-alias 'chinese-gb2312 '=gb2312)
590 (define-charset-alias '=jis-x0208-1983 '=jis-x0208@1983)
591 (define-charset-alias 'japanese-jisx0208 '=jis-x0208@1983)
592 (define-charset-alias 'korean-ksc5601 '=ks-x1001)
593 (define-charset-alias 'japanese-jisx0212 '=jis-x0212)
594 (define-charset-alias 'chinese-cns11643-1 '=cns11643-1)
595 (define-charset-alias 'chinese-cns11643-2 '=cns11643-2)
596 (define-charset-alias 'chinese-gb12345 '=gb12345)
597 (define-charset-alias 'chinese-big5 '=big5)
600 (make-charset 'sisheng "PinYin-ZhuYin"
601 '(registry "sisheng_cwnn\\|OMRON_UDC_ZH"
609 ;; ISO10646's 0x0E80..0x0EDF are mapped to 0x20..0x7F.
610 (make-charset 'lao "Lao script"
611 '(registry "MuleLao-1"
617 ;; IPA (International Phonetic Alphabet)
618 (make-charset 'ipa "International Phonetic Alphabet"
626 (make-charset 'ethiopic "Ethiopic"
634 ;; ISO-IR-165 (CCITT Extended GB)
635 ;; It is based on CCITT Recommendation T.101, includes GB 2312-80 +
636 ;; GB 8565-88 table A4 + 293 characters.
637 (if (featurep 'utf-2000)
639 (make-charset '=iso-ir165
640 "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
648 (define-charset-alias 'chinese-isoir165 '=iso-ir165))
649 (make-charset 'chinese-isoir165
650 "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
658 ;; CNS11643 Plane3 thru Plane7
659 ;; These represent more and more obscure Chinese characters.
660 ;; By the time you get to Plane 7, we're talking about characters
661 ;; that appear once in some ancient manuscript and whose meaning
665 ((make-chinese-cns11643-charset
666 (name iso-ir plane final)
668 name (concat "CNS 11643 Plane " plane " (Chinese traditional)")
671 ,(concat "CNS11643[.-]\\(.*[.-]\\)?" plane "$")
677 (make-chinese-cns11643-charset '=cns11643-3 183 "3" ?I)
678 (make-chinese-cns11643-charset '=cns11643-4 184 "4" ?J)
679 (make-chinese-cns11643-charset '=cns11643-5 185 "5" ?K)
680 (make-chinese-cns11643-charset '=cns11643-6 186 "6" ?L)
681 (make-chinese-cns11643-charset '=cns11643-7 187 "7" ?M)
682 (define-charset-alias 'chinese-cns11643-3 '=cns11643-3)
683 (define-charset-alias 'chinese-cns11643-4 '=cns11643-4)
684 (define-charset-alias 'chinese-cns11643-5 '=cns11643-5)
685 (define-charset-alias 'chinese-cns11643-6 '=cns11643-6)
686 (define-charset-alias 'chinese-cns11643-7 '=cns11643-7)
691 ((featurep 'utf-2000)
694 "JIS X 0213 Plain 1 (unchanged part)"
695 '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
705 "JIS X 0213:2000 Plain 1"
707 registry "jisx0213\\(\\.2000\\)-1"
717 registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
725 "JIS X 0213:2004 Plain 1"
727 registry "jisx0213\\(\\.2004\\)-1"
734 (define-charset-alias 'japanese-jisx0213-1 '=jis-x0213-1@2000)
735 (define-charset-alias 'japanese-jisx0213-2 '=jis-x0213-2)
736 (define-charset-alias '=jis-x0213-1-2000 '=jis-x0213-1@2000)
737 (define-charset-alias '=jis-x0213-2-2000 '=jis-x0213-2)
742 "JIS X 0213:2000 Plain 1"
743 '(registry "jisx0213\\(\\.2000\\)-1"
750 "JIS X 0213:2000 Plain 2"
751 '(registry "jisx0213\\(\\.2000\\)-2"
758 (when (featurep 'utf-2000)
759 (define-charset-alias 'ucs '=ucs)
760 (define-charset-alias '=jis-x0208-1990 '=jis-x0208@1990)
761 (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208@1990)
765 "JIS X 0208 detailed representative glyph-images (unchanged part)."
766 '(registry "jisx0208\\.1990"
775 "JIS X 0208:1978 detailed representative glyph-images."
776 '(registry "jisx0208\\.1978"
785 "JIS X 0208:1983 detailed representative glyph-images."
786 '(registry "jisx0208\\.1983"
794 "JIS X 0208:1990 detailed representative glyph-images."
795 '(registry "jisx0208\\.1990"
805 "JIS X 0213 Plain 1 detailed representative glyph-images (unchanged part)."
806 '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
817 "JIS X 0213:2000 Plain 1 detailed representative glyph-images."
818 '(registry "jisx0213\\(\\.2000\\)-1"
829 "JIS X 0213:2004 Plain 1 detailed representative glyph-images."
830 '(mother ==jis-x0213-1
832 ;; registry "jisx0213\\(\\.2004\\)-1"
839 "JIS X 0213 Plain 2 detailed representative glyph-images."
840 '(mother =jis-x0213-2
842 registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
849 "JIS X 0212 representative glyph-images."
850 '(registry "jisx0212"
860 "GB 2312 representative glyph-images."
870 "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
871 '(registry "isoir165"
880 "GB 12345 representative glyph-images."
889 "KS X 1001 representative glyph-images."
898 (define-charset-alias '=>>>jis-x0208 '=jis-x0208)
899 (define-charset-alias '=>>>jis-x0208@1978 '=jis-x0208@1978)
900 (define-charset-alias '=>>>jis-x0208@1983 '=jis-x0208@1983)
901 (define-charset-alias '=>>>jis-x0208@1990 '=jis-x0208@1990)
904 ;; "JIS X 0208 abstract glyph-forms (unchanged part)."
905 ;; '(registry "jisx0208\\.1990"
913 ;; '=>>>jis-x0208@1978
914 ;; "JIS X 0208:1978 abstract glyph-forms."
915 ;; '(registry "jisx0208\\.1978"
918 ;; mother =>>>jis-x0208
923 ;; '=>>>jis-x0208@1983
924 ;; "JIS X 0208:1983 abstract glyph-forms."
925 ;; '(registry "jisx0208\\.1983"
928 ;; mother =>>>jis-x0208
932 ;; '=>>>jis-x0208@1990
933 ;; "JIS X 0208:1990 abstract glyph-forms."
934 ;; '(registry "jisx0208\\.1990"
937 ;; mother =>>>jis-x0208
942 (define-charset-alias '=>>>jis-x0213-1 '=jis-x0213-1)
943 (define-charset-alias '=>>>jis-x0213-1@2000 '=jis-x0213-1@2000)
944 (define-charset-alias '=>>>jis-x0213-1@2004 '=jis-x0213-1@2004)
945 (define-charset-alias '=>>>jis-x0213-2 '=jis-x0213-2)
948 ;; "JIS X 0213 Plain 1 abstract glyph-forms (unchanged part)"
949 ;; '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
952 ;; mother =jis-x0213-1
959 ;; '=>>>jis-x0213-1@2000
960 ;; "JIS X 0213:2000 Plain 1 abstract glyph-forms"
961 ;; '(registry "jisx0213\\(\\.2000\\)-1"
964 ;; mother =>>>jis-x0213-1
971 ;; '=>>>jis-x0213-1@2004
972 ;; "JIS X 0213:2004 Plain 1 abstract glyph-forms"
973 ;; '(mother =>>>jis-x0213-1
975 ;; ;; registry "jisx0213\\(\\.2004\\)-1"
981 ;; "JIS X 0213 Plain 2 abstract glyph-forms"
982 ;; '(mother =jis-x0213-2
984 ;; registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
991 "JIS X 0208 abstract glyphs (unchanged part)."
992 '(registry "jisx0208\\.1990"
1001 "JIS X 0208:1978 abstract glyphs."
1002 '(registry "jisx0208\\.1978"
1011 "JIS X 0208:1983 abstract glyphs."
1012 '(registry "jisx0208\\.1983"
1020 "JIS X 0208:1990 abstract glyphs."
1021 '(registry "jisx0208\\.1990"
1030 "JIS X 0213 Plain 1 abstract glyphs (unchanged part)"
1031 '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1034 mother =>>>jis-x0213-1
1041 '=>>jis-x0213-1@2000
1042 "JIS X 0213:2000 Plain 1 abstract glyphs"
1043 '(registry "jisx0213\\(\\.2000\\)-1"
1046 mother =>>jis-x0213-1
1054 "JIS X 0213 Plain 2 abstract glyphs"
1055 '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1058 mother =>>>jis-x0213-2
1063 '=>>jis-x0213-1@2004
1064 "JIS X 0213:2004 Plain 1 abstract glyphs"
1065 '(registry "jisx0213\\(\\.2004\\)-1"
1068 mother =>>jis-x0213-1
1077 "JIS X 0208 based on usual unification."
1078 '(registry "jisx0208\\.1990"
1085 (define-charset-alias '=>jis-x0208@usual '=+>jis-x0208)
1088 "JIS X 0208:1978 unified abstract glyphs."
1089 '(registry "jisx0208\\.1978"
1098 "JIS X 0208:1983 unified abstract glyphs."
1099 '(registry "jisx0208\\.1983"
1107 "JIS X 0208:1990 unified abstract glyphs."
1108 '(registry "jisx0208\\.1990"
1116 "JIS X 0213 Plain 1 unified abstract glyphs (unchanged part)"
1117 '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1120 mother =>>jis-x0213-1
1127 '=+>jis-x0213-1@2000
1128 "JIS X 0213:2000 Plain 1 unified abstract glyphs"
1129 '(registry "jisx0213\\(\\.2000\\)-1"
1132 mother =+>jis-x0213-1
1139 '=+>jis-x0213-1@2004
1140 "JIS X 0213:2004 Plain 1 unified abstract glyphs"
1141 '(registry "jisx0213\\(\\.2004\\)-1"
1144 mother =+>jis-x0213-1
1153 "JIS X 0208 based on the unchanged unification rules."
1154 '(registry "jisx0208\\.1990"
1161 (define-charset-alias '<=>jis-x0208 '=>jis-x0208)
1164 "JIS X 0208 based on the unification rule of 1997 edition."
1165 '(registry "jisx0208\\.1990"
1172 (define-charset-alias '<=>jis-x0208@1997 '=>jis-x0208@1997)
1173 (define-charset-alias ' =jis-x0208@1997 '=>jis-x0208@1997)
1177 "JIS X 0213 Plain 1 abstract characters (unchanged part)"
1178 '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1181 mother =+>jis-x0213-1
1187 (define-charset-alias '<=>jis-x0213-1 '=>jis-x0213-1)
1190 "JIS X 0213:2000 Plain 1 abstract characters"
1191 '(registry "jisx0213\\(\\.2000\\)-1"
1194 mother =>jis-x0213-1
1200 (define-charset-alias '<=>jis-x0213-1@2000 '=>jis-x0213-1@2000)
1203 "JIS X 0213:2004 Plain 1 abstract characters"
1204 '(registry "jisx0213\\(\\.2004\\)-1"
1207 mother =>jis-x0213-1
1213 (define-charset-alias '<=>jis-x0213-1@2004 '=>jis-x0213-1@2004)
1216 "JIS X 0213 Plain 2 based on usual unification."
1217 '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1220 mother =>>jis-x0213-2
1224 (define-charset-alias '=>jis-x0213-2@usual '=+>jis-x0213-2)
1227 "JIS X 0213 Plain 2 abstract characters"
1228 '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1231 mother =+>jis-x0213-2
1238 "CNS 11643 Plane 1 representative glyph-images."
1239 '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
1247 "CNS 11643 Plane 2 representative glyph-images."
1248 '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1256 "CNS 11643 Plane 3 representative glyph-images."
1257 '(registry "CNS11643[.-]\\(.*[.-]\\)?3$"
1265 "CNS 11643 Plane 4 representative glyph-images."
1266 '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
1274 "CNS 11643 Plane 5 representative glyph-images."
1275 '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
1283 "CNS 11643 Plane 6 representative glyph-images."
1284 '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
1292 "CNS 11643 Plane 7 representative glyph-images."
1293 '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
1302 "CNS 11643 Plane 4 abstract glyphs."
1303 '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
1312 "CNS 11643 Plane 2 abstract characters."
1313 '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1321 "CNS 11643 Plane 6 abstract characters."
1322 '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
1330 "CNS 11643 Plane 7 abstract characters."
1331 '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
1338 (make-charset '=big5-eten
1340 '(long-name "Big5-ETEN"
1349 registry "Big5\\.ETEN"))
1350 (define-charset-alias 'chinese-big5-eten '=big5-eten)
1351 (make-charset 'chinese-big5-eten-a
1352 "Big5 ETEN (#xF9D6 .. #xF9FE)"
1353 '(long-name "Big5-ETEN-a"
1362 registry "Big5\\.ETEN"))
1363 (make-charset 'chinese-big5-eten-b
1364 "Big5 ETEN (#xC6A1 .. #xC8FE)"
1365 '(long-name "Big5-ETEN-b"
1374 registry "Big5\\.ETEN"))
1376 (make-charset '=big5-cdp
1377 "Big5 with CDP extension"
1378 '(long-name "Big5-CDP"
1384 registry "big5\\.cdp-0"
1388 (define-charset-alias 'chinese-big5-cdp '=big5-cdp)
1390 (make-charset '==big5-cdp
1391 "Representative glyph-images of Big5-CDP"
1392 '(long-name "Big5-CDP glyph-images"
1398 registry "big5\\.cdp-0"
1401 (make-charset '=>>big5-cdp
1402 "Abstract glyphs of Big5-CDP"
1403 '(long-name "Big5-CDP glyphs"
1409 registry "big5\\.cdp-0"
1412 (make-charset '=>big5-cdp
1413 "Big5-CDP abstract characters"
1414 '(long-name "Big5-CDP abstract characters"
1420 registry "big5\\.cdp-0"
1421 mother =>>big5-cdp))
1425 "JA (JIS X0208) part of Han'you-Denshi characters"
1426 `(long-name "Han'you-Denshi/JA"
1432 registry "HanyoDenshi\\.JA-0$"
1433 min-code ,(lsh #x6400 16)
1434 max-code ,(+ (lsh #x6400 16) (1- (* 94 94)))
1435 code-offset ,(lsh #x6400 16)))
1438 "JB (JIS X0212) part of Han'you-Denshi characters"
1439 `(long-name "Han'you-Denshi/JB"
1445 registry "HanyoDenshi\\.JB-0$"
1446 min-code ,(+ (lsh #x6400 16) (* 94 94))
1447 max-code ,(+ (lsh #x6400 16) (1- (* 94 94 2)))
1448 code-offset ,(+ (lsh #x6400 16) (* 94 94))))
1451 "JC (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
1452 `(long-name "Han'you-Denshi/JC"
1458 registry "HanyoDenshi\\.JC-0$"
1459 min-code ,(+ (lsh #x6400 16) (* 94 94 2))
1460 max-code ,(+ (lsh #x6400 16) (1- (* 94 94 3)))
1461 code-offset ,(+ (lsh #x6400 16) (* 94 94 2))))
1464 "JD (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
1465 `(long-name "Han'you-Denshi/JD"
1471 registry "HanyoDenshi\\.JD-0$"
1472 min-code ,(+ (lsh #x6400 16) (* 94 94 3))
1473 max-code ,(+ (lsh #x6400 16) (1- (* 94 94 4)))
1474 code-offset ,(+ (lsh #x6400 16) (* 94 94 3))))
1477 "FT (FDPC additional) part of Han'you-Denshi characters"
1478 `(long-name "Han'you-Denshi/FT"
1484 registry "HanyoDenshi\\.FT-0$"
1485 min-code ,(+ (lsh #x6400 16) (* 94 94 4))
1486 max-code ,(+ (lsh #x6400 16) (1- (* 94 94 5)))
1487 code-offset ,(+ (lsh #x6400 16) (* 94 94 4))))
1490 "IA part of Han'you-Denshi characters"
1491 `(long-name "Han'you-Denshi/IA"
1497 registry "HanyoDenshi\\.IA-0$"
1498 min-code ,(+ (lsh #x6400 16) (* 94 94 5))
1499 max-code ,(+ (lsh #x6400 16) (1- (* 94 94 6)))
1500 code-offset ,(+ (lsh #x6400 16) (* 94 94 5))))
1503 "IB part of Han'you-Denshi characters"
1504 `(long-name "Han'you-Denshi/IB"
1510 registry "HanyoDenshi\\.IB-0$"
1511 min-code ,(+ (lsh #x6400 16) (* 94 94 6))
1512 max-code ,(+ (lsh #x6400 16) (1- (* 94 94 7)))
1513 code-offset ,(+ (lsh #x6400 16) (* 94 94 6))))
1516 "HG (HyouGai Kanji) part of Han'you-Denshi characters"
1517 `(long-name "Han'you-Denshi/HG"
1523 registry "HanyoDenshi\\.HG-0$"
1524 min-code ,(+ (lsh #x6400 16) (* 94 94 7))
1525 max-code ,(+ (lsh #x6400 16) (1- (* 94 94 8)))
1526 code-offset ,(+ (lsh #x6400 16) (* 94 94 7))))
1529 "IP (for IPA) part of Han'you-Denshi characters"
1530 `(long-name "Han'you-Denshi/IP"
1536 registry "HanyoDenshi\\.IP-0$"
1537 min-code ,(+ (lsh #x6402 16) #x4E00)
1538 max-code ,(+ (lsh #x6402 16) #x9FFF)
1539 code-offset ,(+ (lsh #x6402 16))))
1542 "JT (Juuki Touitsu Moji) part of Han'you-Denshi characters"
1543 `(long-name "Han'you-Denshi/JT"
1549 registry "HanyoDenshi\\.JT-0$"
1550 min-code ,(+ (lsh #x6402 16) #xAC00)
1551 max-code ,(+ (lsh #x6402 16) #xD7AF)
1552 code-offset ,(+ (lsh #x6402 16))))
1555 "KS (KoSeki) part of Han'you-Denshi characters"
1556 `(long-name "Han'you-Denshi/KS font encoding"
1565 "Han'you-Denshi/JA detailed glyph-images."
1566 '(long-name "Han'you-Denshi/JA glyph-images"
1572 registry "HanyoDenshi\\.JA-0$"
1573 mother =hanyo-denshi/ja))
1576 "Han'you-Denshi/JB detailed glyph-images."
1577 '(long-name "Han'you-Denshi/JB glyph-images"
1583 registry "HanyoDenshi\\.JB-0$"
1584 mother =hanyo-denshi/jb))
1587 "Han'you-Denshi/JC detailed glyph-images."
1588 '(long-name "Han'you-Denshi/JC glyph-images"
1594 registry "HanyoDenshi\\.JC-0$"
1595 mother =hanyo-denshi/jc))
1598 "Han'you-Denshi/JD detailed glyph-images."
1599 '(long-name "Han'you-Denshi/JD glyph-images"
1605 registry "HanyoDenshi\\.JD-0$"
1606 mother =hanyo-denshi/jd))
1609 "Han'you-Denshi/FT detailed glyph-images."
1610 '(long-name "Han'you-Denshi/FT glyph-images"
1616 registry "HanyoDenshi\\.FT-0$"
1617 mother =hanyo-denshi/ft))
1620 "Han'you-Denshi/IA representative glyph-images."
1621 '(long-name "Han'you-Denshi/IA glyph-images"
1627 registry "HanyoDenshi\\.IA-0$"
1628 mother =hanyo-denshi/ia))
1631 "Han'you-Denshi/IB detailed glyph-images."
1632 '(long-name "Han'you-Denshi/IB glyph-images"
1638 registry "HanyoDenshi\\.IB-0$"
1639 mother =hanyo-denshi/ib))
1642 "Han'you-Denshi/HG detailed glyph-images."
1643 '(long-name "Han'you-Denshi/HG glyph-images"
1649 registry "HanyoDenshi\\.HG-0$"
1650 mother =hanyo-denshi/hg))
1653 "JT (Juuki Touitsu Moji) detailed glyph-images."
1654 '(long-name "Han'you-Denshi/JT glyph-images"
1660 registry "HanyoDenshi\\.JT-0$"
1661 mother =hanyo-denshi/jt))
1664 "KoSeki-touitsu-moji detailed glyph-images."
1665 '(long-name "Han'you-Denshi/KS glyph-images"
1671 mother =hanyo-denshi/ks))
1674 '=hanyo-denshi/ks/mf
1675 "font encoding for KS (KoSeki) characters"
1676 `(long-name "Han'you-Denshi/KS font encoding"
1682 registry "HanyoDenshi\\.KSMF-0$"
1683 min-code ,(lsh #x6403 16)
1684 max-code ,(+ (lsh #x6403 16) #xFFFF)
1685 code-offset ,(lsh #x6403 16)))
1687 (define-charset-alias '=>>>hanyo-denshi/ja '=hanyo-denshi/ja)
1689 ;; '=>>>hanyo-denshi/ja
1690 ;; "Han'you-Denshi/JA abstract glyph-forms"
1691 ;; '(long-name "Han'you-Denshi/JA glyph-forms"
1697 ;; registry "HanyoDenshi\\.JA-0$"
1698 ;; mother =hanyo-denshi/ja))
1699 (define-charset-alias '=>>>hanyo-denshi/jb '=hanyo-denshi/jb)
1701 ;; '=>>>hanyo-denshi/jb
1702 ;; "Han'you-Denshi/JB abstract glyph-forms"
1703 ;; '(long-name "Han'you-Denshi/JB glyph-forms"
1709 ;; registry "HanyoDenshi\\.JB-0$"
1710 ;; mother =hanyo-denshi/jb))
1711 (define-charset-alias '=>>>hanyo-denshi/jc '=hanyo-denshi/jc)
1713 ;; '=>>>hanyo-denshi/jc
1714 ;; "Han'you-Denshi/JC abstract glyph-forms"
1715 ;; '(long-name "Han'you-Denshi/JC glyph-forms"
1721 ;; registry "HanyoDenshi\\.JC-0$"
1722 ;; mother =hanyo-denshi/jc))
1723 (define-charset-alias '=>>>hanyo-denshi/jd '=hanyo-denshi/jd)
1725 ;; '=>>>hanyo-denshi/jd
1726 ;; "Han'you-Denshi/JD abstract glyph-forms"
1727 ;; '(long-name "Han'you-Denshi/JD glyph-forms"
1733 ;; registry "HanyoDenshi\\.JD-0$"
1734 ;; mother =hanyo-denshi/jd))
1735 (define-charset-alias '=>>>hanyo-denshi/ft '=hanyo-denshi/ft)
1737 ;; '=>>>hanyo-denshi/ft
1738 ;; "Han'you-Denshi/FT abstract glyph-forms"
1739 ;; '(long-name "Han'you-Denshi/FT glyph-forms"
1745 ;; registry "HanyoDenshi\\.FT-0$"
1746 ;; mother =hanyo-denshi/ft))
1747 (define-charset-alias '=>>>hanyo-denshi/ib '=hanyo-denshi/ib)
1749 ;; '=>>>hanyo-denshi/ib
1750 ;; "Han'you-Denshi/IB abstract glyph-forms"
1751 ;; '(long-name "Han'you-Denshi/IB glyph-forms"
1757 ;; registry "HanyoDenshi\\.IB-0$"
1758 ;; mother =hanyo-denshi/ib))
1759 (define-charset-alias '=>>>hanyo-denshi/hg '=hanyo-denshi/hg)
1761 ;; '=>>>hanyo-denshi/hg
1762 ;; "Han'you-Denshi/HG abstract glyph-forms"
1763 ;; '(long-name "Han'you-Denshi/HG glyph-forms"
1769 ;; registry "HanyoDenshi\\.HG-0$"
1770 ;; mother =hanyo-denshi/hg))
1771 (define-charset-alias '=>>>hanyo-denshi/jt '=hanyo-denshi/jt)
1773 ;; '=>>>hanyo-denshi/jt
1774 ;; "JT (Juuki Touitsu Moji) abstract glyph-forms"
1775 ;; '(long-name "Han'you-Denshi/JT glyph-forms"
1781 ;; registry "HanyoDenshi\\.JT-0$"
1782 ;; mother =hanyo-denshi/jt))
1783 (define-charset-alias '=>>>hanyo-denshi/ks '=hanyo-denshi/ks)
1785 ;; '=>>>hanyo-denshi/ks
1786 ;; "KoSeki-touitsu-moji abstract glyph-forms"
1787 ;; '(long-name "Han'you-Denshi/KS glyph-forms"
1793 ;; mother =hanyo-denshi/ks))
1797 "Han'you-Denshi/JA abstract glyphs"
1798 '(long-name "Han'you-Denshi/JA glyphs"
1804 registry "HanyoDenshi\\.JA-0$"
1805 mother =>>>hanyo-denshi/ja))
1808 "Han'you-Denshi/JB abstract glyphs"
1809 '(long-name "Han'you-Denshi/JB glyphs"
1815 registry "HanyoDenshi\\.JB-0$"
1816 mother =>>>hanyo-denshi/jb))
1819 "Han'you-Denshi/JC abstract glyphs"
1820 '(long-name "Han'you-Denshi/JC glyphs"
1826 registry "HanyoDenshi\\.JC-0$"
1827 mother =>>>hanyo-denshi/jc))
1830 "Han'you-Denshi/JD abstract glyphs"
1831 '(long-name "Han'you-Denshi/JD glyphs"
1837 registry "HanyoDenshi\\.JD-0$"
1838 mother =>>>hanyo-denshi/jd))
1841 "Han'you-Denshi/FT abstract glyphs"
1842 '(long-name "Han'you-Denshi/FT glyphs"
1848 registry "HanyoDenshi\\.FT-0$"
1849 mother =>>>hanyo-denshi/ft))
1852 "Han'you-Denshi/IA abstract glyphs"
1853 '(long-name "Han'you-Denshi/IA glyphs"
1859 registry "HanyoDenshi\\.IA-0$"
1860 mother =hanyo-denshi/ia))
1863 "Han'you-Denshi/IB abstract glyphs"
1864 '(long-name "Han'you-Denshi/IB abstract glyphs"
1870 registry "HanyoDenshi\\.IB-0$"
1871 mother =>>>hanyo-denshi/ib))
1874 "Han'you-Denshi/HG abstract glyphs"
1875 '(long-name "Han'you-Denshi/HG abstract glyphs"
1881 registry "HanyoDenshi\\.HG-0$"
1882 mother =>>>hanyo-denshi/hg))
1885 "Han'you-Denshi/IP abstract glyphs"
1886 '(long-name "Han'you-Denshi/IP abstract glyphs"
1892 registry "HanyoDenshi\\.IP-0$"
1893 mother =hanyo-denshi/ip))
1896 "JT (Juuki Touitsu Moji) abstract glyphs"
1897 '(long-name "Han'you-Denshi/JT glyphs"
1903 registry "HanyoDenshi\\.JT-0$"
1904 mother =>>>hanyo-denshi/jt))
1907 "Han'you-Denshi/KS abstract glyphs"
1908 '(long-name "Han'you-Denshi/KS glyphs"
1914 mother =>>>hanyo-denshi/ks))
1925 min-code ,(lsh #x6100 16)
1926 max-code ,(+ (lsh #x6100 16) 67547)
1927 code-offset ,(lsh #x6100 16)))
1929 "GT 2000 detailed glyph-images."
1930 '(long-name "GT glyph-images"
1940 (define-charset-alias 'ideograph-gt '=gt)
1941 (define-charset-alias '=>>>gt '=gt)
1942 ;; (make-charset '=>>>gt
1943 ;; "GT 2000 abstract glyph-forms"
1944 ;; '(long-name "GT abstract glyph-forms"
1951 (make-charset '=>>gt
1952 "GT 2000 abstract glyphs"
1953 '(long-name "GT abstract glyphs"
1960 (define-charset-alias '<=>gt '=>>gt)
1961 (define-charset-alias '<==>gt '=>>gt)
1962 (make-charset '=+>gt
1963 "GT 2000 unified abstract glyphs"
1964 '(long-name "Unified abstract GT glyphs"
1972 "GT 2000 abstract characters"
1973 '(long-name "abstract GT characters"
1980 (make-charset '=gt-k
1981 "Ideographic components of GT"
1982 `(long-name "GT components"
1989 min-code ,(lsh #x6110 16)
1990 max-code ,(+ (lsh #x6110 16) 17090)
1991 code-offset ,(lsh #x6110 16)))
1992 (define-charset-alias 'ideograph-gt-k '=gt-k)
1993 (make-charset '==gt-k
1994 "Representative glyph-images of GT-K"
1995 '(long-name "GT-K glyph-images"
2002 (make-charset '=>>gt-k
2003 "abstract glyphs of GT-K"
2004 '(long-name "GT-K abstract glyphs"
2011 (make-charset '=>gt-k
2012 "GT-K abstract characters"
2013 '(long-name "GT-K abstract characters"
2023 (intern (format "=gt-pj-%d" i))
2024 (format "GT 2000 (pseudo JIS encoding) part %d" i)
2025 `(long-name ,(format "GT PJ %d" i)
2031 registry ,(format "\\(GTpj-%d\\|jisx0208\\.GT-%d\\)$" i i)))
2032 (define-charset-alias
2033 (intern (format "ideograph-gt-pj-%d" i))
2034 (intern (format "=gt-pj-%d" i)))
2038 "Ideographic parts of GT (pseudo JIS encoding) part 1"
2045 registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$"))
2046 (define-charset-alias 'ideograph-gt-pj-k1 '=gt-pj-k1)
2049 "Ideographic parts of GT (pseudo JIS encoding) part 2"
2056 registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$"))
2057 (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2)
2059 (make-charset '=daikanwa
2060 "Daikanwa dictionary (unchanged part)"
2061 `(long-name "Daikanwa"
2067 registry "Daikanwa\\(\\.[0-9]+\\)?-3"
2069 max-code ,(+ #xE00000 50100)
2070 code-offset #xE00000))
2071 (define-charset-alias 'ideograph-daikanwa '=daikanwa)
2073 (make-charset '=daikanwa@rev1
2074 "Daikanwa dictionary (revised version)"
2075 '(long-name "Daikanwa Rev."
2081 registry "Daikanwa\\(\\.[0-9]+\\)?-2"
2083 (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa@rev1)
2084 (define-charset-alias '=daikanwa-rev1 '=daikanwa@rev1)
2086 (make-charset '=daikanwa@rev2
2087 "Daikanwa dictionary (revised version 2)"
2088 '(long-name "Daikanwa"
2094 registry "Daikanwa\\(\\.[0-9]+\\)?-3"
2098 (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2)
2100 (make-charset '=daikanwa/+p
2101 "Daikanwa dictionary (ddddd')"
2102 '(long-name "Daikanwa ddddd'"
2108 (make-charset '=daikanwa/+2p
2109 "Daikanwa dictionary (ddddd'')"
2110 '(long-name "Daikanwa ddddd''"
2116 (make-charset '=daikanwa/ho
2117 "Daikanwa dictionary (Hokan)"
2118 '(long-name "Daikanwa-ho"
2125 (make-charset '==daikanwa
2126 "Daikanwa detailed glyph-images."
2127 '(long-name "Daikanwa detailed glyph-images"
2133 registry "Daikanwa\\(\\.[0-9]+\\)?-3"
2135 (make-charset '==daikanwa/+p
2136 "Daikanwa detailed glyph-images (ddddd')"
2137 '(long-name "Daikanwa detailed glyphs-images (ddddd')"
2143 mother =daikanwa/+p))
2144 (make-charset '==daikanwa/ho
2145 "Daikanwa detailed glyph-images (Hokan)"
2146 '(long-name "Daikanwa-ho detailed glyph-images"
2152 mother =daikanwa/ho))
2154 (make-charset '=>>daikanwa
2155 "Daikanwa abstract glyphs"
2156 '(long-name "Daikanwa glyphs"
2162 registry "Daikanwa\\(\\.[0-9]+\\)?-3"
2164 (make-charset '=>>daikanwa/+p
2165 "Daikanwa abstract glyphs (ddddd')"
2166 '(long-name "Daikanwa glyphs (ddddd')"
2172 mother =daikanwa/+p))
2173 (make-charset '=>>daikanwa/+2p
2174 "Daikanwa abstract glyphs (ddddd'')"
2175 '(long-name "Daikanwa glyphs (ddddd'')"
2181 mother =daikanwa/+2p))
2182 (make-charset '=>>daikanwa/ho
2183 "Daikanwa abstract glyphs (Hokan)"
2184 '(long-name "Daikanwa-ho glyph"
2190 mother =daikanwa/ho))
2192 (make-charset '=>daikanwa
2193 "Daikanwa abstract characters"
2194 '(long-name "abstract Daikanwa"
2200 registry "Daikanwa\\(\\.[0-9]+\\)?-3"
2201 mother =>>daikanwa))
2202 (make-charset '=>daikanwa/ho
2203 "Daikanwa abstract characters (Hokan)"
2204 '(long-name "abstract Daikanwa-ho"
2210 mother =>>daikanwa/ho))
2212 (make-charset '=shinjigen
2213 "Kadokawa ShinJigen dictionary (common parts)"
2214 `(long-name "Shinjigen common parts"
2220 registry "Shinjigen\\(\\.[0-9]+\\)?-*"))
2222 (make-charset '=shinjigen@1ed
2223 "Kadokawa ShinJigen dictionary (the first edition)"
2224 `(long-name "Shinjigen-1"
2231 registry "Shinjigen\\(\\.[0-9]+\\)?-1"))
2232 (define-charset-alias 'shinjigen-1 '=shinjigen@1ed)
2234 (make-charset '=shinjigen@1ed/24pr
2235 "Kadokawa ShinJigen dictionary (the 24th impression)"
2236 `(long-name "Shinjigen-1 24pr"
2242 mother =shinjigen@1ed))
2244 (make-charset '=shinjigen@rev
2245 "Kadokawa ShinJigen dictionary (the revised edition)"
2246 `(long-name "Shinjigen-2"
2253 registry "Shinjigen\\(\\.[0-9]+\\)?-2"))
2254 (define-charset-alias 'shinjigen-2 '=shinjigen@rev)
2255 (make-charset '=shinjigen/+p@rev
2256 "ShinJigen (the second edition) number with '"
2257 `(long-name "Shinjigen-2 with '"
2263 (define-charset-alias 'shinjigen-2-p '=shinjigen/+p@rev)
2265 (make-charset '==shinjigen
2266 "Detailed glyph-images of ShinJigen (common parts)"
2267 '(long-name "Shinjigen common parts"
2274 registry "Shinjigen\\(\\.[0-9]+\\)?-*"))
2275 (make-charset '==shinjigen@1ed
2276 "Detailed glyph-images of ShinJigen (the first edition)"
2277 '(long-name "Detailed glyph-images of Shinjigen-1"
2284 registry "Shinjigen\\(\\.[0-9]+\\)?-1"))
2285 (make-charset '==shinjigen@rev
2286 "Detailed glyph-images of ShinJigen (the revised edition)"
2287 '(long-name "Detailed glyph-images of Shinjigen-2"
2294 registry "Shinjigen\\(\\.[0-9]+\\)?-2"))
2297 "Detailed glyph-images of ShinJigen (the second edition) number with '"
2298 '(long-name "Detailed glyph-images of Shinjigen-2 with '"
2299 mother =shinjigen/+p@rev
2306 (make-charset '=big5-pua
2307 "Big5 with private used area"
2308 '(long-name "Big5-PUA"
2315 registry "Big5\\.ETEN"))
2316 (define-charset-alias 'chinese-big5-pua '=big5-pua)
2319 (hzk-min (+ (lsh #x6200 16) 65536))
2320 (hzk-max (+ hzk-min 65535)))
2323 (intern (format "=hanziku-%d" i))
2324 (format "HANZIKU (pseudo BIG5 encoding) part %d" i)
2325 `(long-name ,(format "HANZIKU-%d" i)
2331 registry ,(format "hanziku-%d$" i i)
2334 code-offset ,hzk-min))
2335 (define-charset-alias
2336 (intern (format "ideograph-hanziku-%d" i))
2337 (intern (format "=hanziku-%d" i)))
2338 (setq hzk-min (1+ hzk-max)
2339 hzk-max (+ hzk-min 65535))
2342 (make-charset '=cbeta "CBETA private characters"
2343 '(long-name "CBETA PUA"
2350 code-offset #xE20000
2353 (define-charset-alias 'ideograph-cbeta '=cbeta)
2355 (make-charset '=>>cbeta "CBETA abstract glyphs"
2356 '(long-name "CBETA glyphs"
2365 (make-charset '=zinbun-oracle
2366 "Oracle Bones Script"
2367 `(long-name "Oracle Bones Script in Zinbun, Kyoto Univ."
2370 registry "zob1968-0"
2373 max-code ,(+ #xE70000 8192)
2374 code-offset #xE70000
2378 (make-charset '=>zinbun-oracle
2379 "Abstract Oracle Bones"
2380 '(long-name "Abstract characters of Zinbun Oracle Bones."
2383 mother =zinbun-oracle
2384 registry "zob1968-0"
2389 (make-charset '=jef-china3
2390 "JEF + CHINA3 private characters"
2391 '(long-name "JEF + CHINA3"
2397 registry "china3jef-0"
2400 code-offset #xE80000))
2401 (define-charset-alias 'china3-jef '=jef-china3)
2403 (make-charset '=ruimoku-v6
2404 "private characters used in RUIMOKU Version.6"
2413 min-code #xE90000 ; #xE000
2414 max-code #xE908FF ; #xE8FF
2415 code-offset ,(- #xE90000 #xE000)))
2416 (make-charset '=>>ruimoku-v6
2417 "RUIMOKU Version.6 glyphs"
2418 '(long-name "RUI6 glyphs"
2425 mother =ruimoku-v6))
2429 ;; "ZhongHua-ZiHai glyph-images"
2430 ;; '(long-name "ZhongHua-ZiHai (pppp-nn)"
2439 ;; "ZhongHua-ZiHai (pp.1700
\e$B!A
\e(B1781) glyph-images"
2440 ;; '(long-name "ZhongHua-ZiHai pp.17xx"
2446 ;; registry "zihai\\.cp-17$"))
2448 (make-charset '=big5-cdp-var-3
2449 "Big5-CDP-var-3 glyph-images of GlyphWiki"
2450 '(long-name "Big5-CDP-var-3"
2456 registry "cdp\\.var-3$"
2459 (make-charset '=big5-cdp-var-5
2460 "Big5-CDP-var-5 glyph-images of GlyphWiki"
2461 '(long-name "Big5-CDP-var-5"
2467 registry "cdp\\.var-5$"
2470 (make-charset '==>ucs@bucs
2471 "Basic Subset of Coded Character Sets (BUCS)"
2472 '(long-name "BUCS abstract characters"
2481 (make-charset '=>ucs@iso
2482 "Abstract characters of ISO/IEC 10646 representatives"
2483 '(long-name "UCS characters for ISO"
2491 (make-charset '=>ucs@unicode
2492 "Abstract characters of Unicode representatives"
2493 '(long-name "UCS characters for Unicode"
2501 (make-charset '=>ucs@jis
2502 "UCS representative characters for JIS X0208/0212/0213"
2503 '(long-name "UCS characters for JIS"
2510 mother =>ucs@unicode))
2511 (make-charset '=>ucs@ks
2512 "UCS representative characters for Korean Standards"
2513 '(long-name "UCS characters for KS"
2520 mother =>ucs@unicode))
2521 (make-charset '=>ucs@cns
2522 "UCS representatives characters for CNS 11643 sources"
2523 '(long-name "UCS characters for CNS 11643"
2530 mother =>ucs@unicode))
2532 (make-charset '=+>ucs@iso
2533 "UCS based on ISO/IEC 10646 representative glyphs"
2534 '(long-name "Unified abstract glyphs of UCS"
2542 (make-charset '=+>ucs@unicode
2543 "Unicode representative unified abstract glyphs"
2544 '(long-name "UCS unified abstract glyphs for Unicode"
2552 (make-charset '=+>ucs@jis
2553 "UCS based on Japanese usual unification"
2554 '(long-name "UCS unified abstract glyphs for JP"
2561 mother =+>ucs@unicode))
2562 (define-charset-alias '=>ucs@JP '=+>ucs@jis)
2563 (make-charset '=+>ucs@jis/1990
2564 "UCS representative characters for JIS X0208/0212:1990"
2565 '(long-name "UCS characters for JIS:1990"
2573 (define-charset-alias '=>ucs@jis/1990 '=+>ucs@jis/1990)
2574 (make-charset '=+>ucs@jis/2004
2575 "UCS representative characters for JIS X 0213:2004"
2576 '(long-name "UCS characters for JIS:2004"
2584 (make-charset '=+>ucs@ks
2585 "UCS representative unified abstract glyphs for Korean Standards"
2586 '(long-name "UCS unified abstract glyphs for KS"
2593 mother =+>ucs@unicode))
2594 (make-charset '=+>ucs@cns
2595 "UCS representatives unified abstract glyphs for CNS 11643 sources"
2596 '(long-name "UCS unified abstract glyphs for CNS"
2603 mother =+>ucs@unicode))
2605 (make-charset '=>>ucs@iso
2606 "Representative abstract-glyphs of ISO/IEC 10646"
2607 '(long-name "UCS abstract glyphs for UCS"
2615 (make-charset '=>>ucs@unicode
2616 "Representative abstract-glyphs of Unicode"
2617 '(long-name "Unicode abstract glyphs"
2625 (make-charset '=>>ucs@jis
2626 "UCS Representative abstract-glyphs for JIS X0208/0212/0213"
2627 '(long-name "UCS abstract glyphs for JIS"
2634 mother =>>ucs@unicode))
2635 (make-charset '=>>ucs@jis/1990
2636 "UCS Representative glyphs for JIS X 0208/0212:1990"
2637 '(long-name "UCS glyphs for JIS:1990"
2645 (make-charset '=>>ucs@jis/2000
2646 "UCS Representative glyphs for JIS X 0213:2000"
2647 '(long-name "UCS glyphs for JIS:2000"
2655 (make-charset '=>>ucs@jis/2004
2656 "UCS Representative glyphs for JIS X 0213:2004"
2657 '(long-name "UCS glyphs for JIS:2004"
2665 (make-charset '=>>ucs@JP
2666 "UCS abstract-glyphs based on Japanese style glyphs"
2667 '(long-name "UCS glyphs for JP"
2674 mother =>>ucs@jis/2004))
2675 (make-charset '=>>ucs@ks
2676 "UCS Representative glyphs for Korean Standards"
2677 '(long-name "UCS glyphs for KS"
2684 mother =>>ucs@unicode))
2685 (make-charset '=>>ucs@cns
2686 "UCS Representative glyphs for CNS 11643 sources"
2687 '(long-name "UCS glyphs for CNS"
2694 mother =>>ucs@unicode))
2696 (make-charset '=>>>ucs@iso
2697 "Representative glyph-forms of ISO/IEC 10646"
2698 '(long-name "UCS glyph-forms for UCS"
2706 (make-charset '=>>>ucs@unicode
2707 "Representative glyph-forms of Unicode"
2708 '(long-name "UCS glyph-forms for Unicode"
2715 mother =>>>ucs@iso))
2716 (make-charset '=>>>ucs@jis
2717 "UCS Representative glyph-forms for JIS X0208/0212/0213"
2718 '(long-name "UCS glyph-forms for JIS"
2725 mother =>>>ucs@unicode))
2726 ;; (make-charset '=>>>ucs@jis/1990
2727 ;; "UCS Representative glyph-forms for JIS X 0208/0212:1990"
2728 ;; '(long-name "UCS glyph-forms for JIS:1990"
2735 ;; mother =>>>ucs@jis))
2736 ;; (make-charset '=>>>ucs@jis/2000
2737 ;; "UCS Representative glyph-forms for JIS X 0213:2000"
2738 ;; '(long-name "UCS glyph-forms for JIS:2000"
2745 ;; mother =>>>ucs@jis))
2746 ;; (make-charset '=>>>ucs@jis/2004
2747 ;; "UCS Representative glyph-forms for JIS X 0213:2004"
2748 ;; '(long-name "UCS glyph-forms for JIS:2004"
2755 ;; mother =>>>ucs@jis))
2756 ;; (make-charset '=>>>ucs@ks
2757 ;; "UCS Representative glyph-forms for Korean Standards"
2758 ;; '(long-name "UCS glyph-forms for KS"
2765 ;; mother =>>>ucs@unicode))
2766 ;; (make-charset '=>>>ucs@cns
2767 ;; "UCS Representative glyph-forms for CNS 11643 sources"
2768 ;; '(long-name "UCS glyph-forms for CNS"
2775 ;; mother =>>>ucs@unicode))
2777 (make-charset '=ucs@iso
2778 "ISO/IEC 10646 for its representative glyphs"
2779 '(long-name "UCS for ISO"
2786 mother =>>>ucs@iso))
2787 (make-charset '=ucs@unicode
2788 "Unicode for its representative glyphs"
2789 '(long-name "UCS for Unicode"
2797 (make-charset '=ucs@gb
2798 "ISO/IEC 10646 for GB"
2799 '(long-name "UCS for GB"
2806 mother =ucs@unicode))
2807 (define-charset-alias 'ucs-gb '=ucs@gb)
2808 (make-charset '=ucs@gb/fw
2809 "ISO/IEC 10646 for GB with fullwidth"
2810 '(long-name "UCS for GB-fullwidth"
2818 (make-charset '=ucs-bmp@gb
2819 "ISO/IEC 10646 BMP for GB"
2820 '(long-name "BMP for GB"
2829 (make-charset '=ucs@cns
2830 "ISO/IEC 10646 for CNS 11643"
2831 '(long-name "UCS for CNS"
2838 mother =ucs@unicode))
2839 (define-charset-alias 'ucs-cns '=ucs@cns)
2840 (define-charset-alias '=>>>ucs@cns '=ucs@cns)
2841 (make-charset '=ucs@cns/fw
2842 "ISO/IEC 10646 for CNS 11643 with fullwidth"
2843 '(long-name "UCS for CNS-fullwidth"
2851 (make-charset '=ucs-bmp@cns
2852 "ISO/IEC 10646 BMP for CNS"
2853 '(long-name "BMP for CNS"
2862 (make-charset '=ucs@jis
2863 "ISO/IEC 10646 for JIS X0208/0212/0213"
2864 '(long-name "UCS for JIS"
2871 mother =ucs@unicode))
2872 (define-charset-alias 'ucs-jis '=ucs@jis)
2873 (make-charset '=ucs@jis/fw
2874 "ISO/IEC 10646 for JIS X0208/0212/0213 with fullwidth"
2875 '(long-name "UCS for JIS-fullwidth"
2883 (make-charset '=ucs-bmp@jis
2884 "ISO/IEC 10646 BMP for JIS"
2885 '(long-name "BMP for JIS"
2894 ;; (make-charset '=ucs@jis/1983
2895 ;; "ISO/IEC 10646 for JIS X 0208:1983"
2896 ;; '(long-name "UCS for JIS:1983"
2903 ;; mother =ucs@jis))
2904 (make-charset '=ucs@jis/1990
2905 "ISO/IEC 10646 for JIS X 0208/0212:1990"
2906 '(long-name "UCS for JIS:1990"
2914 (define-charset-alias '=ucs@jis-1990 '=ucs@jis/1990)
2915 (define-charset-alias '=ucs-jis-1990 '=ucs@jis/1990)
2916 (define-charset-alias '=>>>ucs@jis/1990 '=ucs@jis/1990)
2917 (make-charset '=ucs@jis/2000
2918 "ISO/IEC 10646 for JIS X 0213:2000"
2919 '(long-name "UCS for JIS:2000"
2927 (define-charset-alias '=ucs@jis-2000 '=ucs@jis/2000)
2928 (define-charset-alias '=ucs-jis-2000 '=ucs@jis/2000)
2929 (define-charset-alias '=>>>ucs@jis/2000 '=ucs@jis/2000)
2930 (make-charset '=ucs@jis/2004
2931 "ISO/IEC 10646 for JIS X 0213:2004"
2932 '(long-name "UCS for JIS:2004"
2940 (define-charset-alias '=>>>ucs@jis/2004 '=ucs@jis/2004)
2941 (make-charset '=ucs@JP
2942 "UCS for common glyphs used in Japan"
2943 '(long-name "UCS for Japan"
2950 mother =ucs@jis/2004))
2951 (define-charset-alias '=ucs@jp '=ucs@JP)
2952 (make-charset '=ucs@JP/hanazono
2953 "Japanese glyph-images of Hanazono Mincho"
2954 '(long-name "UCS for Hana-Min"
2962 (make-charset '=ucs@ks
2963 "ISO/IEC 10646 for Korean Standards"
2964 '(long-name "UCS for KS"
2971 mother =ucs@unicode))
2972 (define-charset-alias 'ucs-ks '=ucs@ks)
2973 (define-charset-alias '=>>>ucs@ks '=ucs@ks)
2974 (make-charset '=ucs-bmp@ks
2975 "ISO/IEC 10646 BMP for KS"
2976 '(long-name "BMP for KS"
2985 (make-charset '=ucs@cns11643
2986 "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw"
2987 '(long-name "UCS for CNS11643"
2995 (make-charset '=ucs@big5
2996 "ISO/IEC 10646 for Big5"
2997 '(long-name "UCS for Big5"
3005 (define-charset-alias 'ucs-big5 '=ucs@big5)
3006 (make-charset '=ucs@big5/cns11643
3007 "ISO/IEC 10646 for Big5 based on www.cns11643.gov.tw"
3008 '(long-name "UCS for Big5@CNS11643"
3017 (make-charset '==ucs@iso
3018 "ISO/IEC 10646 for its representative glyph-images."
3019 '(long-name "ISO rep-image for UCS"
3027 (make-charset '==ucs@unicode
3028 "Unicode for its representative glyph-images."
3029 '(long-name "UCS for Unicode"
3037 (make-charset '==ucs@gb
3038 "ISO/IEC 10646 for GB"
3039 '(long-name "UCS for GB"
3046 mother ==ucs@unicode))
3047 (make-charset '==ucs-bmp@gb
3048 "ISO/IEC 10646 BMP for GB"
3049 '(long-name "BMP for GB"
3058 (make-charset '==ucs@cns
3059 "ISO/IEC 10646 for CNS 11643"
3060 '(long-name "UCS for CNS"
3067 mother ==ucs@unicode))
3068 (make-charset '==ucs-bmp@cns
3069 "ISO/IEC 10646 BMP for CNS"
3070 '(long-name "BMP for CNS"
3079 (make-charset '==ucs@jis
3080 "ISO/IEC 10646 for JIS X0208/0212/0213"
3081 '(long-name "UCS for JIS"
3088 mother ==ucs@unicode))
3089 (make-charset '==ucs@jis/1990
3090 "ISO/IEC 10646 for JIS X 0208/0212:1990"
3091 '(long-name "UCS for JIS:1990"
3099 (make-charset '==ucs@jis/2000
3100 "ISO/IEC 10646 for JIS X 0213:2000"
3101 '(long-name "UCS for JIS:2000"
3109 (make-charset '==ucs@jis/2004
3110 "ISO/IEC 10646 for JIS X 0213:2004"
3111 '(long-name "UCS for JIS:2004"
3119 (make-charset '==ucs@JP
3120 "UCS for common glyph-images used in Japan."
3121 '(long-name "UCS for Japan"
3128 mother ==ucs@jis/2004))
3129 (make-charset '==ucs@JP/hanazono
3130 "Japanese glyph-images of Hanazono Mincho."
3131 '(long-name "UCS for Hana-Min"
3139 (make-charset '==ucs@ks
3140 "ISO/IEC 10646 for Korean Standards."
3141 '(long-name "UCS for KS"
3148 mother ==ucs@unicode))
3149 (make-charset '==ucs-bmp@ks
3150 "ISO/IEC 10646 BMP for KS."
3151 '(long-name "BMP for KS"
3160 (make-charset '==ucs@cns11643
3161 "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw."
3162 '(long-name "UCS for CNS11643"
3171 (make-charset '=ucs-itaiji-084
3172 "uXXXX-itaiji-084 glyph-images of GlyphWiki"
3173 '(long-name "UCS-itaiji-084"
3181 (make-charset '=ucs-bmp-itaiji-084
3182 "uXXXX-itaiji-084 glyph-images in BMP"
3183 '(long-name "UCS-BMP-itaiji-084"
3190 mother =ucs-itaiji-084
3193 registry "ucs\\.itaiji084-0"))
3197 "CJK Radicals of UCS"
3198 '(long-name "UCS-Radicals"
3204 registry "-zhRadicals-.*-ucs-0"
3206 min-code #x2E00 max-code #x2FFF))
3208 '=ucs-radicals@unicode
3209 "CJK Radicals of UCS"
3210 '(long-name "UCS-Radicals"
3216 registry "-zhRadicals-.*-ucs-0"
3218 min-code #x2E00 max-code #x2FFF))
3221 "Hangul Syllables of UCS"
3222 '(long-name "UCS-Hangul-Syllables"
3228 registry "-Hangul-.*-ucs-0"
3230 min-code #xAC00 max-code #xD7AF))
3233 "CJK Characters in BMP of UCS"
3234 '(long-name "UCS-BMP-CJK"
3240 registry "-zh-.*-ucs-0"
3248 "CJK Characters in BMP with GB representative glyph-images."
3249 '(long-name "CJK in BMP@GB"
3255 registry "-zh-.*-ucs-0"
3263 "CJK Characters in BMP with GB representative glyph-images."
3264 '(long-name "CJK in BMP@GB"
3270 registry "-zh-.*-ucs-0"
3278 "CJK Characters in BMP with JIS representative glyphs"
3279 '(long-name "CJK in BMP@JP"
3285 registry "-ja-.*-ucs-0"
3292 '=ucs-bmp-cjk@JP/hanazono
3293 "CJK Characters in BMP with Hanazono font"
3294 '(long-name "CJK in BMP@JP/Hanazono"
3300 registry "-ja-.*-ucs-0"
3301 mother =ucs@JP/hanazono
3307 '==ucs-bmp-cjk@JP/hanazono
3308 "CJK Characters in BMP with Hanazono font"
3309 '(long-name "CJK in BMP@JP/Hanazono"
3315 registry "-ja-.*-ucs-0"
3316 mother ==ucs@JP/hanazono
3322 '=+>ucs-bmp-cjk@unicode
3323 "Unicode representative characters of CJK Unified Ideographs in BMP"
3324 '(long-name "Unicode-BMP-CJK unified abstract glyphs"
3330 registry "-zh-.*-ucs-0"
3331 mother =+>ucs@unicode
3337 '=>ucs-bmp-cjk@unicode
3338 "Unicode representative characters of CJK Unified Ideographs in BMP"
3339 '(long-name "Unicode-BMP-CJK"
3345 registry "-zh-.*-ucs-0"
3346 mother =>ucs@unicode
3352 '==>ucs-bmp-cjk@bucs
3353 "CJK Characters in BMP of BUCS"
3354 '(long-name "BUCS-BMP-CJK"
3360 registry "-zh-.*-ucs-0"
3367 '=ucs-bmp-cjk-compat
3368 "CJK Compatibility Ideographs in BMP of UCS"
3369 '(long-name "CJK Compatibility Ideographs"
3375 registry "-ja-.*-ucs-0"
3381 '=ucs-bmp-cjk-compat@unicode
3382 "CJK Compatibility Ideographs of Unicode representatives"
3383 '(long-name "CJK Compatibility Ideographs of Unicode"
3389 registry "-ja-.*-ucs-0"
3395 '=+>ucs-bmp-cjk-compat@jis
3396 "CJK Compatibility Ideographs of JIS representatives unified glyphs"
3397 '(long-name "JIS unified glyphs for CJK Compat chars"
3403 registry "-ja-.*-ucs-0"
3410 "CJK Ideographs Extension B"
3411 '(long-name "UCS CJK Ext-B"
3417 registry "\\(iso10646\\|ucs02\\)-2$"
3419 min-code #x20000 max-code #x2A6D6
3420 code-offset #x20000))
3423 "CJK Ideographs Extension B (ISO/IEC 10646-2)"
3424 '(long-name "UCS CJK Ext-B"
3430 registry "\\(iso10646\\|ucs02\\)-2$"
3432 min-code #x20000 max-code #x2A6D6
3433 code-offset #x20000))
3435 '==ucs-sip-ext-b@iso
3436 "CJK Ideographs Extension B (ISO/IEC 10646-2)"
3437 '(long-name "UCS CJK Ext-B"
3443 registry "\\(iso10646\\|ucs02\\)-2$"
3445 min-code #x20000 max-code #x2A6D6
3446 code-offset #x20000))
3449 ;;; mule-conf.el ends here