78845849cd43d840394b14e76564513029e57aa5
[chise/xemacs-chise.git.1] / lisp / mule / mule-conf.el
1 ;;; mule-conf.el --- configure multilingual environment
2
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, 2014, 2015 MORIOKA Tomohiko
7
8 ;; Keywords: mule, multilingual, character set, coding system
9
10 ;; This file is part of XEmacs.
11
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)
15 ;; any later version.
16
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.
21
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.
26
27 ;;; Code:
28
29 (cond
30  ((featurep 'utf-2000)
31   (make-charset
32    '=adobe-japan1-base
33    "Adobe-Japan1 Character Collection for CID-Keyed Fonts"
34    `(long-name "Adobe-Japan1"
35                chars 256
36                dimension 2
37                columns 2
38                graphic 2
39                direction l2r
40                registry "AdobeJapan1-[0-6]$"
41                min-code     #xE10000
42                max-code ,(+ #xE10000 23057)
43                code-offset  #xE10000
44                ;; min-code      ,(lsh #x6300 16)
45                ;; max-code      ,(+ (lsh #x6300 16) 23057)
46                ;; code-offset   ,(lsh #x6300 16)
47                ))
48   (make-charset
49    '=adobe-japan1-0
50    "Adobe-Japan1-0 Character Collection for CID-Keyed Fonts"
51    '(long-name "Adobe-Japan1-0"
52                chars 256
53                dimension 2
54                columns 2
55                graphic 2
56                direction l2r
57                mother =adobe-japan1-base
58                min-code 0
59                max-code 8283
60                registry "AdobeJapan1-[0-6]$"))
61   (make-charset
62    '=adobe-japan1-1
63    "Adobe-Japan1-1 Character Collection for CID-Keyed Fonts"
64    '(long-name "Adobe-Japan1-1"
65                chars 256
66                dimension 2
67                columns 2
68                graphic 2
69                direction l2r
70                mother =adobe-japan1-0
71                min-code 0
72                max-code 8358
73                registry "AdobeJapan1-[1-6]$"))
74   (make-charset
75    '=adobe-japan1-2
76    "Adobe-Japan1-2 Character Collection for CID-Keyed Fonts"
77    '(long-name "Adobe-Japan1-2"
78                chars 256
79                dimension 2
80                columns 2
81                graphic 2
82                direction l2r
83                mother =adobe-japan1-1
84                min-code 0
85                max-code 8719
86                registry "AdobeJapan1-[2-6]$"))
87   (make-charset
88    '=adobe-japan1-3
89    "Adobe-Japan1-3 Character Collection for CID-Keyed Fonts"
90    '(long-name "Adobe-Japan1-3"
91                chars 256
92                dimension 2
93                columns 2
94                graphic 2
95                direction l2r
96                mother =adobe-japan1-2
97                min-code 0
98                max-code 9353
99                registry "AdobeJapan1-[3-6]$"))
100   (make-charset
101    '=adobe-japan1-4
102    "Adobe-Japan1-4 Character Collection for CID-Keyed Fonts"
103    '(long-name "Adobe-Japan1-4"
104                chars 256
105                dimension 2
106                columns 2
107                graphic 2
108                direction l2r
109                mother =adobe-japan1-3
110                min-code 0
111                max-code 15443
112                registry "AdobeJapan1-[4-6]$"))
113   (make-charset
114    '=adobe-japan1-5
115    "Adobe-Japan1-5 Character Collection for CID-Keyed Fonts"
116    '(long-name "Adobe-Japan1-5"
117                chars 256
118                dimension 2
119                columns 2
120                graphic 2
121                direction l2r
122                mother =adobe-japan1-4
123                min-code 0
124                max-code 20316
125                registry "AdobeJapan1-[5-6]$"))
126   (make-charset
127    '=adobe-japan1-6
128    "Adobe-Japan1-6 Character Collection for CID-Keyed Fonts"
129    '(long-name "Adobe-Japan1-6"
130                chars 256
131                dimension 2
132                columns 2
133                graphic 2
134                direction l2r
135                mother =adobe-japan1-5
136                min-code 0
137                max-code 23057
138                registry "AdobeJapan1-6$"))
139   (define-charset-alias '=adobe-japan1 '=adobe-japan1-6)
140
141   (make-charset
142    '==adobe-japan1-0
143    "Adobe-Japan1-0 abstract glyph-forms."
144    '(long-name "Adobe-Japan1-0 abstract glyph-forms"
145                chars 256
146                dimension 2
147                columns 2
148                graphic 2
149                direction l2r
150                mother =adobe-japan1-0
151                registry "AdobeJapan1-0$"))
152   (make-charset
153    '==adobe-japan1-1
154    "Adobe-Japan1-1 abstract glyph-forms."
155    '(long-name "Adobe-Japan1-1 abstract glyph-forms"
156                chars 256
157                dimension 2
158                columns 2
159                graphic 2
160                direction l2r
161                mother ==adobe-japan1-0
162                registry "AdobeJapan1-1$"))
163   (make-charset
164    '==adobe-japan1-2
165    "Adobe-Japan1-2 abstract glyph-forms."
166    '(long-name "Adobe-Japan1-2 abstract glyph-forms"
167                chars 256
168                dimension 2
169                columns 2
170                graphic 2
171                direction l2r
172                mother ==adobe-japan1-1
173                registry "AdobeJapan1-2$"))
174   (make-charset
175    '==adobe-japan1-3
176    "Adobe-Japan1-3 abstract glyph-forms."
177    '(long-name "Adobe-Japan1-3 abstract glyph-forms"
178                chars 256
179                dimension 2
180                columns 2
181                graphic 2
182                direction l2r
183                mother ==adobe-japan1-2
184                registry "AdobeJapan1-3$"))
185   (make-charset
186    '==adobe-japan1-4
187    "Adobe-Japan1-4 abstract glyph-forms."
188    '(long-name "Adobe-Japan1-4 abstract glyph-forms"
189                chars 256
190                dimension 2
191                columns 2
192                graphic 2
193                direction l2r
194                mother ==adobe-japan1-3
195                registry "AdobeJapan1-4$"))
196   (make-charset
197    '==adobe-japan1-5
198    "Adobe-Japan1-5 abstract glyph-forms."
199    '(long-name "Adobe-Japan1-5 abstract glyph-forms"
200                chars 256
201                dimension 2
202                columns 2
203                graphic 2
204                direction l2r
205                mother ==adobe-japan1-4
206                registry "AdobeJapan1-5$"))
207   (make-charset
208    '==adobe-japan1-6
209    "Adobe-Japan1-6 abstract glyph-forms."
210    '(long-name "Adobe-Japan1-6 abstract glyph-forms"
211                chars 256
212                dimension 2
213                columns 2
214                graphic 2
215                direction l2r
216                mother ==adobe-japan1-5
217                registry "AdobeJapan1-6$"))
218   (define-charset-alias '==adobe-japan1 '==adobe-japan1-6)
219
220   (define-charset-alias '=>>>adobe-japan1-0 '==adobe-japan1-0)
221   (define-charset-alias '=>>>adobe-japan1-1 '==adobe-japan1-1)
222   (define-charset-alias '=>>>adobe-japan1-2 '==adobe-japan1-2)
223   (define-charset-alias '=>>>adobe-japan1-3 '==adobe-japan1-3)
224   (define-charset-alias '=>>>adobe-japan1-4 '==adobe-japan1-4)
225   (define-charset-alias '=>>>adobe-japan1-5 '==adobe-japan1-5)
226   (define-charset-alias '=>>>adobe-japan1-6 '==adobe-japan1-6)
227   (define-charset-alias '=>>>adobe-japan1 '=>>>adobe-japan1-6)
228
229   (make-charset
230    '===adobe-japan1-0
231    "Adobe-Japan1-0 detailed glyph-images."
232    '(long-name "Adobe-Japan1-0 glyph-images"
233                chars 256
234                dimension 2
235                columns 2
236                graphic 2
237                direction l2r
238                mother ==adobe-japan1-0
239                registry "AdobeJapan1-0$"))
240   (make-charset
241    '===adobe-japan1-1
242    "Adobe-Japan1-1 detailed glyph-images."
243    '(long-name "Adobe-Japan1-1 glyph-images"
244                chars 256
245                dimension 2
246                columns 2
247                graphic 2
248                direction l2r
249                mother ===adobe-japan1-0
250                registry "AdobeJapan1-1$"))
251   (make-charset
252    '===adobe-japan1-2
253    "Adobe-Japan1-2 detailed glyph-images."
254    '(long-name "Adobe-Japan1-2 glyph-images"
255                chars 256
256                dimension 2
257                columns 2
258                graphic 2
259                direction l2r
260                mother ===adobe-japan1-1
261                registry "AdobeJapan1-2$"))
262   (make-charset
263    '===adobe-japan1-3
264    "Adobe-Japan1-3 detailed glyph-images."
265    '(long-name "Adobe-Japan1-3 glyph-images"
266                chars 256
267                dimension 2
268                columns 2
269                graphic 2
270                direction l2r
271                mother ===adobe-japan1-2
272                registry "AdobeJapan1-3$"))
273   (make-charset
274    '===adobe-japan1-4
275    "Adobe-Japan1-4 detailed glyph-images."
276    '(long-name "Adobe-Japan1-4 glyph-images"
277                chars 256
278                dimension 2
279                columns 2
280                graphic 2
281                direction l2r
282                mother ===adobe-japan1-3
283                registry "AdobeJapan1-4$"))
284   (make-charset
285    '===adobe-japan1-5
286    "Adobe-Japan1-5 detailed glyph-images."
287    '(long-name "Adobe-Japan1-5 glyph-images"
288                chars 256
289                dimension 2
290                columns 2
291                graphic 2
292                direction l2r
293                mother ===adobe-japan1-4
294                registry "AdobeJapan1-5$"))
295   (make-charset
296    '===adobe-japan1-6
297    "Adobe-Japan1-6 detailed glyph-images."
298    '(long-name "Adobe-Japan1-6 glyph-images"
299                chars 256
300                dimension 2
301                columns 2
302                graphic 2
303                direction l2r
304                mother ===adobe-japan1-5
305                registry "AdobeJapan1-6$"))
306   (define-charset-alias '===adobe-japan1 '===adobe-japan1-6)
307
308   (make-charset
309    '=>>adobe-japan1-0
310    "Adobe-Japan1-0 abstract glyphs"
311    '(long-name "Adobe-Japan1-0 abstract glyphs"
312                chars 256
313                dimension 2
314                columns 2
315                graphic 2
316                direction l2r
317                mother =adobe-japan1
318                registry "AdobeJapan1-0$"))
319   (make-charset
320    '=>>adobe-japan1-1
321    "Adobe-Japan1-1 abstract glyphs"
322    '(long-name "Adobe-Japan1-1 abstract glyphs"
323                chars 256
324                dimension 2
325                columns 2
326                graphic 2
327                direction l2r
328                mother =>>adobe-japan1-0
329                registry "AdobeJapan1-1"))
330   (make-charset
331    '=>>adobe-japan1-2
332    "Adobe-Japan1-2 abstract glyphs"
333    '(long-name "Adobe-Japan1-2 abstract glyphs"
334                chars 256
335                dimension 2
336                columns 2
337                graphic 2
338                direction l2r
339                mother =>>adobe-japan1-1
340                registry "AdobeJapan1-2"))
341   (make-charset
342    '=>>adobe-japan1-3
343    "Adobe-Japan1-3 abstract glyphs"
344    '(long-name "Adobe-Japan1-3 abstract glyphs"
345                chars 256
346                dimension 2
347                columns 2
348                graphic 2
349                direction l2r
350                mother =>>adobe-japan1-2
351                registry "AdobeJapan1-3"))
352   (make-charset
353    '=>>adobe-japan1-4
354    "Adobe-Japan1-4 abstract glyphs"
355    '(long-name "Adobe-Japan1-4 abstract glyphs"
356                chars 256
357                dimension 2
358                columns 2
359                graphic 2
360                direction l2r
361                mother =>>adobe-japan1-3
362                registry "AdobeJapan1-4"))
363   (make-charset
364    '=>>adobe-japan1-5
365    "Adobe-Japan1-5 abstract glyphs"
366    '(long-name "Adobe-Japan1-5 abstract glyphs"
367                chars 256
368                dimension 2
369                columns 2
370                graphic 2
371                direction l2r
372                mother =>>adobe-japan1-4
373                registry "AdobeJapan1-5"))
374   (make-charset
375    '=>>adobe-japan1-6
376    "Adobe-Japan1-6 abstract glyphs"
377    '(long-name "Adobe-Japan1-6 abstract glyphs"
378                chars 256
379                dimension 2
380                columns 2
381                graphic 2
382                direction l2r
383                mother =>>adobe-japan1-5
384                registry "AdobeJapan1-6"))
385   (define-charset-alias '=>>adobe-japan1 '=>>adobe-japan1-6)
386
387   (make-charset
388    '=+>adobe-japan1-0
389    "Adobe-Japan1-0 unified abstract glyphs"
390    '(long-name "Adobe-Japan1-0 unified abstract glyphs"
391                chars 256
392                dimension 2
393                columns 2
394                graphic 2
395                direction l2r
396                mother =adobe-japan1
397                registry "AdobeJapan1-0$"))
398   (make-charset
399    '=+>adobe-japan1-1
400    "Adobe-Japan1-1 unified abstract glyphs"
401    '(long-name "Adobe-Japan1-1 unified abstract glyphs"
402                chars 256
403                dimension 2
404                columns 2
405                graphic 2
406                direction l2r
407                mother =+>adobe-japan1-0
408                registry "AdobeJapan1-1"))
409   (make-charset
410    '=+>adobe-japan1-2
411    "Adobe-Japan1-2 unified abstract glyphs"
412    '(long-name "Adobe-Japan1-2 unified abstract glyphs"
413                chars 256
414                dimension 2
415                columns 2
416                graphic 2
417                direction l2r
418                mother =+>adobe-japan1-1
419                registry "AdobeJapan1-2"))
420   (make-charset
421    '=+>adobe-japan1-3
422    "Adobe-Japan1-3 unified abstract glyphs"
423    '(long-name "Adobe-Japan1-3 unified abstract glyphs"
424                chars 256
425                dimension 2
426                columns 2
427                graphic 2
428                direction l2r
429                mother =+>adobe-japan1-2
430                registry "AdobeJapan1-3"))
431   (make-charset
432    '=+>adobe-japan1-4
433    "Adobe-Japan1-4 unified abstract glyphs"
434    '(long-name "Adobe-Japan1-4 unified abstract glyphs"
435                chars 256
436                dimension 2
437                columns 2
438                graphic 2
439                direction l2r
440                mother =+>adobe-japan1-3
441                registry "AdobeJapan1-4"))
442   (make-charset
443    '=+>adobe-japan1-5
444    "Adobe-Japan1-5 unified abstract glyphs"
445    '(long-name "Adobe-Japan1-5 unified abstract glyphs"
446                chars 256
447                dimension 2
448                columns 2
449                graphic 2
450                direction l2r
451                mother =+>adobe-japan1-4
452                registry "AdobeJapan1-5"))
453   (make-charset
454    '=+>adobe-japan1-6
455    "Adobe-Japan1-6 unified abstract glyphs"
456    '(long-name "Adobe-Japan1-6 unified abstract glyphs"
457                chars 256
458                dimension 2
459                columns 2
460                graphic 2
461                direction l2r
462                mother =+>adobe-japan1-5
463                registry "AdobeJapan1-6"))
464   (define-charset-alias '=+>adobe-japan1 '=+>adobe-japan1-6)
465
466   (make-charset
467    '=jis-x0208@1978
468    "JIS X 0208:1978, unchanged part."
469    '(registry "jisx0208\\.1978"
470               dimension 2
471               chars 94
472               mother =jis-x0208
473               =>iso-ir 42
474               final ?@
475               graphic 0
476               partial t))
477   (make-charset
478    '=jis-x0208@1978/-4pr
479    "JIS X 0208:1978, 1st - 3rd impressions."
480    '(registry "jisx0208\\.1978"
481               dimension 2
482               chars 94
483               mother =jis-x0208@1978
484               =>iso-ir 42
485               final ?@
486               graphic 0
487               partial t))
488   (make-charset
489    '=jis-x0208@1978/1pr
490    "JIS X 0208:1978, 1st impression."
491    '(iso-ir 42
492             registry "jisx0208\\.1978"
493             dimension 2
494             chars 94
495             mother =jis-x0208@1978/-4pr
496             final ?@
497             graphic 0))
498   (make-charset
499    '=jis-x0208@1978/1pr/fixed
500    "JIS X 0208:1978, correct glyph in the errata of 1st impression."
501    '(registry "jisx0208\\.1978"
502               dimension 2
503               chars 94
504               mother =jis-x0208@1978/1pr
505               =>iso-ir 42
506               ;; final ?@
507               graphic 0
508               partial t))
509   (make-charset
510    '=jis-x0208@1978/-4X
511    "JIS X 0208:1978, index before the 4th impression."
512    '(registry "jisx0208\\.1978"
513               dimension 2
514               chars 94
515               mother =jis-x0208@1978
516               =>iso-ir 42
517               ;; final ?@
518               graphic 0
519               partial t))
520   ;; (make-charset
521   ;;  '=jis-x0208@1978/1er-pr
522   ;;  "JIS X 0208:1978, fixed by errata [Nov 1978]."
523   ;;  '(registry "jisx0208\\.1978"
524   ;;             dimension 2
525   ;;             chars 94
526   ;;             mother =jis-x0208@1978
527   ;;             =>iso-ir 42
528   ;;             ;; final ?@
529   ;;             graphic 0
530   ;;             partial t))
531   (make-charset
532    '=jis-x0208@1978/2-pr
533    "JIS X 0208:1978, 2nd impression or later."
534    '(registry "jisx0208\\.1978"
535               dimension 2
536               chars 94
537               ;; mother =jis-x0208@1978/1er-pr
538               mother =jis-x0208@1978
539               =>iso-ir 42
540               ;; final ?@
541               graphic 0
542               partial t))
543   (make-charset
544    '=jis-x0208@1978/4er
545    "JIS X 0208:1978, replaced by errata of 4th impression."
546    '(registry "jisx0208\\.1978"
547               dimension 2
548               chars 94
549               mother =jis-x0208@1978/2-pr
550               =>iso-ir 42
551               ;; final ?@
552               graphic 0
553               partial t))
554   (make-charset
555    '=jis-x0208@1978/4-pr
556    "JIS X 0208:1978, 4th impression or later."
557    '(registry "jisx0208\\.1978"
558               dimension 2
559               chars 94
560               mother =jis-x0208@1978/2-pr
561               =>iso-ir 42
562               ;; final ?@
563               graphic 0
564               partial t))
565   (make-charset
566    '=jis-x0208@1978/5pr
567    "JIS X 0208:1978, 5th impression."
568    '(registry "jisx0208\\.1978"
569               dimension 2
570               chars 94
571               mother =jis-x0208@1978/4-pr
572               =>iso-ir 42
573               ;; final ?@
574               graphic 0
575               partial t))
576   (define-charset-alias '=jis-x0208@1978/i1 '=jis-x0208@1978/1pr)
577   (define-charset-alias '=jis-x0208@1978/i-4 '=jis-x0208@1978/-4pr)
578   (define-charset-alias '=jis-x0208@1978/i4- '=jis-x0208@1978/4-pr)
579   )
580  (t
581   (make-charset
582    '=jis-x0208@1978
583    "JIS X0208:1978 Japanese Kanji (so called \"old JIS\")."
584    '(iso-ir 42
585             registry "jisx0208\\.1978"
586             dimension 2
587             chars 94
588             mother =jis-x0208
589             final ?@
590             graphic 0))
591   ))
592
593 (define-charset-alias '=jis-x0208-1978          '=jis-x0208@1978)
594 (define-charset-alias 'japanese-jisx0208-1978   '=jis-x0208@1978)
595 (define-charset-alias 'chinese-gb2312           '=gb2312)
596 (define-charset-alias '=jis-x0208-1983          '=jis-x0208@1983)
597 (define-charset-alias 'japanese-jisx0208        '=jis-x0208@1983)
598 (define-charset-alias 'korean-ksc5601           '=ks-x1001)
599 (define-charset-alias 'japanese-jisx0212        '=jis-x0212)
600 (define-charset-alias 'chinese-cns11643-1       '=cns11643-1)
601 (define-charset-alias 'chinese-cns11643-2       '=cns11643-2)
602 (define-charset-alias 'chinese-gb12345          '=gb12345)
603 (define-charset-alias 'chinese-big5             '=big5)
604
605 ;; PinYin-ZhuYin
606 (make-charset 'sisheng "PinYin-ZhuYin"
607               '(registry "sisheng_cwnn\\|OMRON_UDC_ZH"
608                 dimension 1
609                 chars 94
610                 final ?0
611                 graphic 0
612                 ))
613
614 ;; Lao script.
615 ;; ISO10646's 0x0E80..0x0EDF are mapped to 0x20..0x7F.
616 (make-charset 'lao "Lao script"
617               '(registry "MuleLao-1"
618                 dimension 1
619                 chars 94
620                 final ?1
621                 graphic 1))
622
623 ;; IPA (International Phonetic Alphabet)
624 (make-charset 'ipa "International Phonetic Alphabet"
625               '(registry "MuleIPA"
626                 dimension 1
627                 chars 96
628                 final ?0
629                 graphic 1))
630
631 ;; Ethiopic
632 (make-charset 'ethiopic "Ethiopic"
633               '(registry "Ethio"
634                 dimension 2
635                 chars 94
636                 final ?3
637                 graphic 0
638                 ))
639
640 ;; ISO-IR-165 (CCITT Extended GB)
641 ;;    It is based on CCITT Recommendation T.101, includes GB 2312-80 +
642 ;;    GB 8565-88 table A4 + 293 characters.
643 (if (featurep 'utf-2000)
644     (progn
645       (make-charset '=iso-ir165
646                     "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
647                     '(iso-ir 165
648                              dimension 2
649                              chars 94
650                              mother =gb2312
651                              final ?E
652                              registry "isoir165"
653                              graphic 0))
654       (define-charset-alias 'chinese-isoir165 '=iso-ir165))
655   (make-charset 'chinese-isoir165
656                 "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
657                 '(iso-ir 165
658                          dimension 2
659                          chars 94
660                          final ?E
661                          registry "isoir165"
662                          graphic 0)))
663
664 ;; CNS11643 Plane3 thru Plane7
665 ;; These represent more and more obscure Chinese characters.
666 ;; By the time you get to Plane 7, we're talking about characters
667 ;; that appear once in some ancient manuscript and whose meaning
668 ;; is unknown.
669
670 (flet
671     ((make-chinese-cns11643-charset
672       (name iso-ir plane final)
673       (make-charset
674        name (concat "CNS 11643 Plane " plane " (Chinese traditional)")
675        `(iso-ir ,iso-ir
676          registry 
677          ,(concat "CNS11643[.-]\\(.*[.-]\\)?" plane "$")
678          dimension 2
679          chars 94
680          final ,final
681          graphic 0))
682       ))
683   (make-chinese-cns11643-charset '=cns11643-3 183 "3" ?I)
684   (make-chinese-cns11643-charset '=cns11643-4 184 "4" ?J)
685   (make-chinese-cns11643-charset '=cns11643-5 185 "5" ?K)
686   (make-chinese-cns11643-charset '=cns11643-6 186 "6" ?L)
687   (make-chinese-cns11643-charset '=cns11643-7 187 "7" ?M)
688   (define-charset-alias 'chinese-cns11643-3     '=cns11643-3)
689   (define-charset-alias 'chinese-cns11643-4     '=cns11643-4)
690   (define-charset-alias 'chinese-cns11643-5     '=cns11643-5)
691   (define-charset-alias 'chinese-cns11643-6     '=cns11643-6)
692   (define-charset-alias 'chinese-cns11643-7     '=cns11643-7)
693   )
694
695 ;; JIS X 0213:2000
696 (cond
697  ((featurep 'utf-2000)
698   (make-charset
699    '=jis-x0213-1
700    "JIS X 0213 Plain 1 (unchanged part)"
701    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
702               dimension 2
703               chars 94
704               =>iso-ir 228
705               final ?O
706               graphic 0
707               partial t))
708
709   (make-charset
710    '=jis-x0213-1@2000
711    "JIS X 0213:2000 Plain 1"
712    '(iso-ir 228
713             registry "jisx0213\\(\\.2000\\)-1"
714             dimension 2
715             chars 94
716             mother =jis-x0213-1
717             final ?O
718             graphic 0))
719   (make-charset
720    '=jis-x0213-2
721    "JIS X 0213 Plain 2"
722    '(iso-ir 229
723             registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
724             dimension 2
725             chars 94
726             final ?P
727             graphic 0))
728
729   (make-charset
730    '=jis-x0213-1@2004
731    "JIS X 0213:2004 Plain 1"
732    '(iso-ir 233
733             registry "jisx0213\\(\\.2004\\)-1"
734             dimension 2
735             chars 94
736             mother =jis-x0213-1
737             final ?Q
738             graphic 0))
739
740   (define-charset-alias 'japanese-jisx0213-1 '=jis-x0213-1@2000)
741   (define-charset-alias 'japanese-jisx0213-2 '=jis-x0213-2)
742   (define-charset-alias '=jis-x0213-1-2000 '=jis-x0213-1@2000)
743   (define-charset-alias '=jis-x0213-2-2000 '=jis-x0213-2)
744   )
745  (t
746   (make-charset
747    'japanese-jisx0213-1
748    "JIS X 0213:2000 Plain 1"
749    '(registry "jisx0213\\(\\.2000\\)-1"
750               dimension 2
751               chars 94
752               final ?O
753               graphic 0))
754   (make-charset
755    'japanese-jisx0213-2
756    "JIS X 0213:2000 Plain 2"
757    '(registry "jisx0213\\(\\.2000\\)-2"
758               dimension 2
759               chars 94
760               final ?P
761               graphic 0))
762   ))
763
764 (when (featurep 'utf-2000)
765   (define-charset-alias 'ucs '=ucs)
766   (define-charset-alias '=jis-x0208-1990 '=jis-x0208@1990)
767   (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208@1990)
768
769   (make-charset
770    '==jis-x0208
771    "JIS X 0208 abstract glyph-forms (unchanged part)."
772    '(registry "jisx0208\\.1990"
773               dimension 2
774               chars 94
775               mother =jis-x0208
776               =>iso-ir 168
777               ;; final ?B
778               graphic 0))
779   (make-charset
780    '==jis-x0208@1978
781    "JIS X 0208:1978 abstract glyph-forms."
782    '(registry "jisx0208\\.1978"
783               dimension 2
784               chars 94
785               mother ==jis-x0208
786               =>iso-ir 42
787               ;; final ?@
788               graphic 0))
789   (make-charset
790    '==jis-x0208@1978/-4pr
791    "JIS X 0208:1978, 1st - 3rd impressions."
792    '(registry "jisx0208\\.1978"
793               dimension 2
794               chars 94
795               mother ==jis-x0208@1978
796               =>iso-ir 42
797               ;; final ?@
798               graphic 0
799               ;; partial t
800               ))
801   (make-charset
802    '==jis-x0208@1978/1pr
803    "JIS X 0208:1978, 1st impression."
804    '(registry "jisx0208\\.1978"
805               =>iso-ir 42
806               dimension 2
807               chars 94
808               mother ==jis-x0208@1978/-4pr
809               ;; final ?@
810               graphic 0))
811   (make-charset
812    '==jis-x0208@1978/1pr/fixed
813    "JIS X 0208:1978, correct glyph in the errata of 1st impression."
814    '(registry "jisx0208\\.1978"
815               dimension 2
816               chars 94
817               mother ==jis-x0208@1978/1pr
818               =>iso-ir 42
819               ;; final ?@
820               graphic 0
821               partial t))
822   (make-charset
823    '==jis-x0208@1978/-4X
824    "JIS X 0208:1978, index before the 4th impression."
825    '(registry "jisx0208\\.1978"
826               dimension 2
827               chars 94
828               mother ==jis-x0208@1978
829               =>iso-ir 42
830               ;; final ?@
831               graphic 0
832               partial t))
833   (make-charset
834    '==jis-x0208@1978/2-pr
835    "JIS X 0208:1978, 2nd impression or later."
836    '(registry "jisx0208\\.1978"
837               dimension 2
838               chars 94
839               ;; mother =jis-x0208@1978/1er-pr
840               mother ==jis-x0208@1978
841               =>iso-ir 42
842               ;; final ?@
843               graphic 0
844               ;; partial t
845               ))
846   (make-charset
847    '==jis-x0208@1978/4er
848    "JIS X 0208:1978, replaced by errata of 4th impression."
849    '(registry "jisx0208\\.1978"
850               dimension 2
851               chars 94
852               mother ==jis-x0208@1978/2-pr
853               =>iso-ir 42
854               ;; final ?@
855               graphic 0
856               partial t))
857   (make-charset
858    '==jis-x0208@1978/4-pr
859    "JIS X 0208:1978, 4th impression or later."
860    '(registry "jisx0208\\.1978"
861               dimension 2
862               chars 94
863               mother ==jis-x0208@1978/2-pr
864               =>iso-ir 42
865               ;; final ?@
866               graphic 0
867               partial t))
868   (make-charset
869    '==jis-x0208@1978/5pr
870    "JIS X 0208:1978, 5th impression."
871    '(registry "jisx0208\\.1978"
872               dimension 2
873               chars 94
874               mother ==jis-x0208@1978/4-pr
875               =>iso-ir 42
876               ;; final ?@
877               graphic 0
878               partial t))
879   (make-charset
880    '==jis-x0208@1983
881    "JIS X 0208:1983 abstract glyph-forms."
882    '(registry "jisx0208\\.1983"
883               dimension 2
884               chars 94
885               mother ==jis-x0208
886               =>iso-ir 87
887               graphic 0))
888   (make-charset
889    '==jis-x0208@1990
890    "JIS X 0208:1990 abstract glyph-forms."
891    '(registry "jisx0208\\.1990"
892               dimension 2
893               chars 94
894               mother ==jis-x0208
895               =>iso-ir 168
896               ;; final ?B
897               graphic 0))
898
899   (make-charset
900    '==jis-x0213-1
901    "JIS X 0213 Plain 1 abstract glyph-forms (unchanged part)"
902    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
903               dimension 2
904               chars 94
905               mother =jis-x0213-1
906               =>iso-ir 228
907               ;; final ?O
908               graphic 0
909               ;; partial t
910               ))
911   (make-charset
912    '==jis-x0213-1@2000
913    "JIS X 0213:2000 Plain 1 abstract glyph-forms"
914    '(registry "jisx0213\\(\\.2000\\)-1"
915               dimension 2
916               chars 94
917               mother ==jis-x0213-1
918               =>iso-ir 228
919               ;; final ?O
920               graphic 0
921               ;; partial t
922               ))
923   (make-charset
924    '==jis-x0213-1@2004
925    "JIS X 0213:2004 Plain 1 abstract glyph-forms"
926    '(mother ==jis-x0213-1
927             =>iso-ir 233
928             ;; registry "jisx0213\\(\\.2004\\)-1"
929             dimension 2
930             chars 94
931             graphic 0))
932
933   (make-charset
934    '==jis-x0213-2
935    "JIS X 0213 Plain 2 abstract glyph-forms"
936    '(mother =jis-x0213-2
937             =>iso-ir 229
938             registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
939             dimension 2
940             chars 94
941             graphic 0))
942
943   (make-charset
944    '==jis-x0212
945    "JIS X 0212 representative glyph-images."
946    '(registry "jisx0212"
947               dimension 2
948               chars 94
949               mother =jis-x0212
950               =>iso-ir 159
951               ;; final ?D
952               graphic 0))
953
954   (make-charset
955    '==gb2312
956    "GB 2312 representative glyph-images."
957    '(registry "gb2312"
958               dimension 2
959               chars 94
960               mother =gb2312
961               =>iso-ir 58
962               ;; final ?A
963               graphic 0))
964   (make-charset
965    '==iso-ir165
966    "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
967    '(registry "isoir165"
968               =>iso-ir 165
969               dimension 2
970               chars 94
971               mother =iso-ir165
972               ;; final ?E
973               graphic 0))
974   (make-charset
975    '==gb12345
976    "GB 12345 representative glyph-images."
977    '(registry "gb12345"
978               dimension 2
979               chars 94
980               mother =gb12345
981               graphic 0))
982
983   (make-charset
984    '==ks-x1001
985    "KS X 1001 representative glyph-images."
986    '(registry "ksc5601"
987               dimension 2
988               chars 94
989               mother =ks-x1001
990               =>iso-ir 149
991               ;; final ?C
992               graphic 0))
993
994   (define-charset-alias '=>>>jis-x0208      '==jis-x0208)
995   (define-charset-alias '=>>>jis-x0208@1978 '==jis-x0208@1978)
996   (define-charset-alias '=>>>jis-x0208@1983 '==jis-x0208@1983)
997   (define-charset-alias '=>>>jis-x0208@1990 '==jis-x0208@1990)
998
999   (define-charset-alias '=>>>jis-x0213-1      '==jis-x0213-1)
1000   (define-charset-alias '=>>>jis-x0213-1@2000 '==jis-x0213-1@2000)
1001   (define-charset-alias '=>>>jis-x0213-1@2004 '==jis-x0213-1@2004)
1002   (define-charset-alias '=>>>jis-x0213-2      '==jis-x0213-2)
1003
1004   (make-charset
1005    '===jis-x0208
1006    "JIS X 0208 detailed representative glyph-images (unchanged part)."
1007    '(registry "jisx0208\\.1990"
1008               dimension 2
1009               chars 94
1010               mother ==jis-x0208
1011               =>iso-ir 168
1012               ;; final ?B
1013               graphic 0))
1014   (make-charset
1015    '===jis-x0208@1978
1016    "JIS X 0208:1978 detailed representative glyph-images."
1017    '(registry "jisx0208\\.1978"
1018               dimension 2
1019               chars 94
1020               mother ==jis-x0208@1978
1021               =>iso-ir 42
1022               ;; final ?@
1023               graphic 0))
1024   (make-charset
1025    '===jis-x0208@1983
1026    "JIS X 0208:1983 detailed representative glyph-images."
1027    '(registry "jisx0208\\.1983"
1028               dimension 2
1029               chars 94
1030               mother ==jis-x0208@1983
1031               =>iso-ir 87
1032               graphic 0))
1033   (make-charset
1034    '===jis-x0208@1990
1035    "JIS X 0208:1990 detailed representative glyph-images."
1036    '(registry "jisx0208\\.1990"
1037               dimension 2
1038               chars 94
1039               mother ==jis-x0208@1990
1040               =>iso-ir 168
1041               ;; final ?B
1042               graphic 0))
1043
1044   (make-charset
1045    '===jis-x0213-1
1046    "JIS X 0213 Plain 1 detailed representative glyph-images (unchanged part)."
1047    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1048               dimension 2
1049               chars 94
1050               mother ==jis-x0213-1
1051               =>iso-ir 228
1052               ;; final ?O
1053               graphic 0
1054               ;; partial t
1055               ))
1056   (make-charset
1057    '===jis-x0213-1@2000
1058    "JIS X 0213:2000 Plain 1 detailed representative glyph-images."
1059    '(registry "jisx0213\\(\\.2000\\)-1"
1060               dimension 2
1061               chars 94
1062               mother ==jis-x0213-1@2000
1063               =>iso-ir 228
1064               ;; final ?O
1065               graphic 0
1066               ;; partial t
1067               ))
1068   (make-charset
1069    '===jis-x0213-1@2004
1070    "JIS X 0213:2004 Plain 1 detailed representative glyph-images."
1071    '(mother ==jis-x0213-1@2004
1072             =>iso-ir 233
1073             ;; registry "jisx0213\\(\\.2004\\)-1"
1074             dimension 2
1075             chars 94
1076             graphic 0))
1077   (make-charset
1078    '===jis-x0213-2
1079    "JIS X 0213 Plain 2 detailed representative glyph-images."
1080    '(mother ==jis-x0213-2
1081             =>iso-ir 229
1082             registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1083             dimension 2
1084             chars 94
1085             graphic 0))
1086
1087   (make-charset
1088    '===jis-x0212
1089    "JIS X 0212 representative glyph-images."
1090    '(registry "jisx0212"
1091               dimension 2
1092               chars 94
1093               mother ==jis-x0212
1094               =>iso-ir 159
1095               ;; final ?D
1096               graphic 0))
1097
1098   (make-charset
1099    '===ks-x1001
1100    "KS X 1001 representative glyph-images."
1101    '(registry "ksc5601"
1102               dimension 2
1103               chars 94
1104               mother ==ks-x1001
1105               =>iso-ir 149
1106               ;; final ?C
1107               graphic 0))
1108
1109   (make-charset
1110    '=>>jis-x0208
1111    "JIS X 0208 abstract glyphs (unchanged part)."
1112    '(registry "jisx0208\\.1990"
1113               dimension 2
1114               chars 94
1115               mother =jis-x0208
1116               =>iso-ir 168
1117               ;; final ?B
1118               graphic 0))
1119   (make-charset
1120    '=>>jis-x0208@1978
1121    "JIS X 0208:1978 abstract glyphs."
1122    '(registry "jisx0208\\.1978"
1123               dimension 2
1124               chars 94
1125               mother =>>jis-x0208
1126               =>iso-ir 42
1127               ;; final ?@
1128               graphic 0))
1129   (make-charset
1130    '=>>jis-x0208@1983
1131    "JIS X 0208:1983 abstract glyphs."
1132    '(registry "jisx0208\\.1983"
1133               dimension 2
1134               chars 94
1135               mother =>>jis-x0208
1136               =>iso-ir 87
1137               graphic 0))
1138   (make-charset
1139    '=>>jis-x0208@1990
1140    "JIS X 0208:1990 abstract glyphs."
1141    '(registry "jisx0208\\.1990"
1142               dimension 2
1143               chars 94
1144               mother =>>jis-x0208
1145               =>iso-ir 168
1146               graphic 0))
1147
1148   (make-charset
1149    '=>>jis-x0213-1
1150    "JIS X 0213 Plain 1 abstract glyphs (unchanged part)"
1151    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1152               dimension 2
1153               chars 94
1154               mother =jis-x0213-1
1155               =>iso-ir 228
1156               ;; final ?O
1157               graphic 0
1158               ;; partial t
1159               ))
1160   (make-charset
1161    '=>>jis-x0213-1@2000
1162    "JIS X 0213:2000 Plain 1 abstract glyphs"
1163    '(registry "jisx0213\\(\\.2000\\)-1"
1164               dimension 2
1165               chars 94
1166               mother =>>jis-x0213-1
1167               =>iso-ir 228
1168               ;; final ?O
1169               graphic 0
1170               ;; partial t
1171               ))
1172   (make-charset
1173    '=>>jis-x0213-2
1174    "JIS X 0213 Plain 2 abstract glyphs"
1175    '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1176               dimension 2
1177               chars 94
1178               mother =jis-x0213-2
1179               =>iso-ir 229
1180               ;; final ?P
1181               graphic 0))
1182   (make-charset
1183    '=>>jis-x0213-1@2004
1184    "JIS X 0213:2004 Plain 1 abstract glyphs"
1185    '(registry "jisx0213\\(\\.2004\\)-1"
1186               dimension 2
1187               chars 94
1188               mother =>>jis-x0213-1
1189               =>iso-ir 233
1190               ;; final ?Q
1191               graphic 0
1192               ;; partial t
1193               ))
1194
1195   (make-charset
1196    '=+>jis-x0208
1197    "JIS X 0208 based on usual unification."
1198    '(registry "jisx0208\\.1990"
1199               dimension 2
1200               chars 94
1201               mother =>>jis-x0208
1202               =>iso-ir 168
1203               ;; final ?B
1204               graphic 0))
1205   (define-charset-alias '=>jis-x0208@usual '=+>jis-x0208)
1206   (make-charset
1207    '=+>jis-x0208@1978
1208    "JIS X 0208:1978 unified abstract glyphs."
1209    '(registry "jisx0208\\.1978"
1210               dimension 2
1211               chars 94
1212               mother =+>jis-x0208
1213               =>iso-ir 42
1214               ;; final ?@
1215               graphic 0))
1216   (make-charset
1217    '=+>jis-x0208@1983
1218    "JIS X 0208:1983 unified abstract glyphs."
1219    '(registry "jisx0208\\.1983"
1220               dimension 2
1221               chars 94
1222               mother =+>jis-x0208
1223               =>iso-ir 87
1224               graphic 0))
1225   (make-charset
1226    '=+>jis-x0208@1990
1227    "JIS X 0208:1990 unified abstract glyphs."
1228    '(registry "jisx0208\\.1990"
1229               dimension 2
1230               chars 94
1231               mother =+>jis-x0208
1232               =>iso-ir 168
1233               graphic 0))
1234   (make-charset
1235    '=+>jis-x0213-1
1236    "JIS X 0213 Plain 1 unified abstract glyphs (unchanged part)"
1237    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1238               dimension 2
1239               chars 94
1240               mother =>>jis-x0213-1
1241               =>iso-ir 228
1242               ;; final ?O
1243               graphic 0
1244               ;; partial t
1245               ))
1246   (make-charset
1247    '=+>jis-x0213-1@2000
1248    "JIS X 0213:2000 Plain 1 unified abstract glyphs"
1249    '(registry "jisx0213\\(\\.2000\\)-1"
1250               dimension 2
1251               chars 94
1252               mother =+>jis-x0213-1
1253               =>iso-ir 228
1254               ;; final ?O
1255               graphic 0
1256               ;; partial t
1257               ))
1258   (make-charset
1259    '=+>jis-x0213-1@2004
1260    "JIS X 0213:2004 Plain 1 unified abstract glyphs"
1261    '(registry "jisx0213\\(\\.2004\\)-1"
1262               dimension 2
1263               chars 94
1264               mother =+>jis-x0213-1
1265               =>iso-ir 233
1266               ;; final ?Q
1267               graphic 0
1268               ;; partial t
1269               ))
1270
1271   (make-charset
1272    '=>jis-x0208
1273    "JIS X 0208 based on the unchanged unification rules."
1274    '(registry "jisx0208\\.1990"
1275               dimension 2
1276               chars 94
1277               mother =+>jis-x0208
1278               =>iso-ir 168
1279               ;; final ?B
1280               graphic 0))
1281   (define-charset-alias '<=>jis-x0208 '=>jis-x0208)
1282   (make-charset
1283    '=>jis-x0208@1997
1284    "JIS X 0208 based on the unification rule of 1997 edition."
1285    '(registry "jisx0208\\.1990"
1286               dimension 2
1287               chars 94
1288               mother =>jis-x0208
1289               =>iso-ir 168
1290               ;; final ?B
1291               graphic 0))
1292   (define-charset-alias '<=>jis-x0208@1997 '=>jis-x0208@1997)
1293   (define-charset-alias '  =jis-x0208@1997 '=>jis-x0208@1997)
1294
1295   (make-charset
1296    '=>jis-x0213-1
1297    "JIS X 0213 Plain 1 abstract characters (unchanged part)"
1298    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1299               dimension 2
1300               chars 94
1301               mother =+>jis-x0213-1
1302               =>iso-ir 228
1303               ;; final ?O
1304               graphic 0
1305               ;; partial t
1306               ))
1307   (define-charset-alias '<=>jis-x0213-1 '=>jis-x0213-1)
1308   (make-charset
1309    '=>jis-x0213-1@2000
1310    "JIS X 0213:2000 Plain 1 abstract characters"
1311    '(registry "jisx0213\\(\\.2000\\)-1"
1312               dimension 2
1313               chars 94
1314               mother =>jis-x0213-1
1315               =>iso-ir 228
1316               ;; final ?O
1317               graphic 0
1318               ;; partial t
1319               ))
1320   (define-charset-alias '<=>jis-x0213-1@2000 '=>jis-x0213-1@2000)
1321   (make-charset
1322    '=>jis-x0213-1@2004
1323    "JIS X 0213:2004 Plain 1 abstract characters"
1324    '(registry "jisx0213\\(\\.2004\\)-1"
1325               dimension 2
1326               chars 94
1327               mother =>jis-x0213-1
1328               =>iso-ir 233
1329               ;; final ?Q
1330               graphic 0
1331               ;; partial t
1332               ))
1333   (define-charset-alias '<=>jis-x0213-1@2004 '=>jis-x0213-1@2004)
1334   (make-charset
1335    '=+>jis-x0213-2
1336    "JIS X 0213 Plain 2 based on usual unification."
1337    '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1338               dimension 2
1339               chars 94
1340               mother =>>jis-x0213-2
1341               =>iso-ir 229
1342               ;; final ?P
1343               graphic 0))
1344   (define-charset-alias '=>jis-x0213-2@usual '=+>jis-x0213-2)
1345   (make-charset
1346    '=>jis-x0213-2
1347    "JIS X 0213 Plain 2 abstract characters"
1348    '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1349               dimension 2
1350               chars 94
1351               mother =+>jis-x0213-2
1352               =>iso-ir 229
1353               ;; final ?P
1354               graphic 0))
1355
1356   (make-charset
1357    '==cns11643-1
1358    "CNS 11643 Plane 1 representative glyph-images."
1359    '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
1360               dimension 2
1361               chars 94
1362               mother =cns11643-1
1363               =>iso-ir 171
1364               graphic 0))
1365   (make-charset
1366    '==cns11643-2
1367    "CNS 11643 Plane 2 representative glyph-images."
1368    '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1369               dimension 2
1370               chars 94
1371               mother =cns11643-2
1372               =>iso-ir 172
1373               graphic 0))
1374   (make-charset
1375    '==cns11643-3
1376    "CNS 11643 Plane 3 representative glyph-images."
1377    '(registry "CNS11643[.-]\\(.*[.-]\\)?3$"
1378               dimension 2
1379               chars 94
1380               mother =cns11643-3
1381               =>iso-ir 183
1382               graphic 0))
1383   (make-charset
1384    '==cns11643-4
1385    "CNS 11643 Plane 4 representative glyph-images."
1386    '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
1387               dimension 2
1388               chars 94
1389               mother =cns11643-4
1390               =>iso-ir 184
1391               graphic 0))
1392   (make-charset
1393    '==cns11643-5
1394    "CNS 11643 Plane 5 representative glyph-images."
1395    '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
1396               dimension 2
1397               chars 94
1398               mother =cns11643-5
1399               =>iso-ir 185
1400               graphic 0))
1401   (make-charset
1402    '==cns11643-6
1403    "CNS 11643 Plane 6 representative glyph-images."
1404    '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
1405               dimension 2
1406               chars 94
1407               mother =cns11643-6
1408               =>iso-ir 186
1409               graphic 0))
1410   (make-charset
1411    '==cns11643-7
1412    "CNS 11643 Plane 7 representative glyph-images."
1413    '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
1414               dimension 2
1415               chars 94
1416               mother =cns11643-7
1417               =>iso-ir 187
1418               graphic 0))
1419
1420   (make-charset
1421    '===cns11643-1
1422    "CNS 11643 Plane 1 representative glyph-images."
1423    '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
1424               dimension 2
1425               chars 94
1426               mother ==cns11643-1
1427               =>iso-ir 171
1428               graphic 0))
1429   (make-charset
1430    '===cns11643-2
1431    "CNS 11643 Plane 2 representative glyph-images."
1432    '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1433               dimension 2
1434               chars 94
1435               mother ==cns11643-2
1436               =>iso-ir 172
1437               graphic 0))
1438   (make-charset
1439    '===cns11643-3
1440    "CNS 11643 Plane 3 representative glyph-images."
1441    '(registry "CNS11643[.-]\\(.*[.-]\\)?3$"
1442               dimension 2
1443               chars 94
1444               mother ==cns11643-3
1445               =>iso-ir 183
1446               graphic 0))
1447   (make-charset
1448    '===cns11643-4
1449    "CNS 11643 Plane 4 representative glyph-images."
1450    '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
1451               dimension 2
1452               chars 94
1453               mother ==cns11643-4
1454               =>iso-ir 184
1455               graphic 0))
1456   (make-charset
1457    '===cns11643-5
1458    "CNS 11643 Plane 5 representative glyph-images."
1459    '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
1460               dimension 2
1461               chars 94
1462               mother ==cns11643-5
1463               =>iso-ir 185
1464               graphic 0))
1465   (make-charset
1466    '===cns11643-6
1467    "CNS 11643 Plane 6 representative glyph-images."
1468    '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
1469               dimension 2
1470               chars 94
1471               mother ==cns11643-6
1472               =>iso-ir 186
1473               graphic 0))
1474   (make-charset
1475    '===cns11643-7
1476    "CNS 11643 Plane 7 representative glyph-images."
1477    '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
1478               dimension 2
1479               chars 94
1480               mother ==cns11643-7
1481               =>iso-ir 187
1482               graphic 0))
1483
1484   (make-charset
1485    '=>>cns11643-1
1486    "CNS 11643 Plane 1 abstract glyphs."
1487    '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
1488               dimension 2
1489               chars 94
1490               mother =cns11643-1
1491               =>iso-ir 184
1492               graphic 0))
1493   (make-charset
1494    '=>>cns11643-4
1495    "CNS 11643 Plane 4 abstract glyphs."
1496    '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
1497               dimension 2
1498               chars 94
1499               mother =cns11643-4
1500               =>iso-ir 184
1501               graphic 0))
1502
1503   (make-charset
1504    '=>cns11643-2
1505    "CNS 11643 Plane 2 abstract characters."
1506    '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1507               dimension 2
1508               chars 94
1509               mother =cns11643-2
1510               =>iso-ir 172
1511               graphic 0))
1512   (make-charset
1513    '=>cns11643-5
1514    "CNS 11643 Plane 5 abstract characters."
1515    '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
1516               dimension 2
1517               chars 94
1518               mother =cns11643-5
1519               =>iso-ir 185
1520               graphic 0))
1521   (make-charset
1522    '=>cns11643-6
1523    "CNS 11643 Plane 6 abstract characters."
1524    '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
1525               dimension 2
1526               chars 94
1527               mother =cns11643-6
1528               =>iso-ir 186
1529               graphic 0))
1530   (make-charset
1531    '=>cns11643-7
1532    "CNS 11643 Plane 7 abstract characters."
1533    '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
1534               dimension 2
1535               chars 94
1536               mother =cns11643-7
1537               =>iso-ir 187
1538               graphic 0))
1539
1540   (make-charset '=big5-eten
1541                 "Big5 ETEN"
1542                 '(long-name     "Big5-ETEN"
1543                   chars         256
1544                   dimension     2
1545                   columns       2
1546                   graphic       2
1547                   direction     l2r
1548                   mother        chinese-big5
1549                   min-code      #x8140
1550                   max-code      #xFEFE
1551                   registry      "Big5\\.ETEN"))
1552   (define-charset-alias 'chinese-big5-eten '=big5-eten)
1553   (make-charset 'chinese-big5-eten-a
1554                 "Big5 ETEN (#xF9D6 .. #xF9FE)"
1555                 '(long-name     "Big5-ETEN-a"
1556                   chars         256
1557                   dimension     2
1558                   columns       2
1559                   graphic       2
1560                   direction     l2r
1561                   mother        chinese-big5
1562                   min-code      #xF9D6
1563                   max-code      #xF9FE
1564                   registry      "Big5\\.ETEN"))
1565   (make-charset 'chinese-big5-eten-b
1566                 "Big5 ETEN (#xC6A1 .. #xC8FE)"
1567                 '(long-name     "Big5-ETEN-b"
1568                   chars         256
1569                   dimension     2
1570                   columns       2
1571                   graphic       2
1572                   direction     l2r
1573                   mother        chinese-big5
1574                   min-code      #xC6A1
1575                   max-code      #xC8FE
1576                   registry      "Big5\\.ETEN"))
1577
1578   (make-charset '=big5-cdp
1579                 "Big5 with CDP extension"
1580                 '(long-name     "Big5-CDP"
1581                   chars         256
1582                   dimension     2
1583                   columns       2
1584                   graphic       2
1585                   direction     l2r
1586                   registry      "big5\\.cdp-0"
1587                   mother        chinese-big5
1588                   min-code      #x8140
1589                   max-code      #x8DFE))
1590   (define-charset-alias 'chinese-big5-cdp '=big5-cdp)
1591
1592   (make-charset '==big5-cdp
1593                 "Abstract glyph-images of Big5-CDP"
1594                 '(long-name     "Big5-CDP glyph-forms"
1595                   chars         256
1596                   dimension     2
1597                   columns       2
1598                   graphic       2
1599                   direction     l2r
1600                   registry      "big5\\.cdp-0"
1601                   mother        =big5-cdp))
1602   (make-charset '===big5-cdp
1603                 "Representative glyph-images of Big5-CDP"
1604                 '(long-name     "Big5-CDP glyph-images"
1605                   chars         256
1606                   dimension     2
1607                   columns       2
1608                   graphic       2
1609                   direction     l2r
1610                   registry      "big5\\.cdp-0"
1611                   mother        ==big5-cdp))
1612
1613   (make-charset '=>>big5-cdp
1614                 "Abstract glyphs of Big5-CDP"
1615                 '(long-name     "Big5-CDP glyphs"
1616                   chars         256
1617                   dimension     2
1618                   columns       2
1619                   graphic       2
1620                   direction     l2r
1621                   registry      "big5\\.cdp-0"
1622                   mother        =big5-cdp))
1623
1624   (make-charset '=>big5-cdp
1625                 "Big5-CDP abstract characters"
1626                 '(long-name     "Big5-CDP abstract characters"
1627                   chars         256
1628                   dimension     2
1629                   columns       2
1630                   graphic       2
1631                   direction     l2r
1632                   registry      "big5\\.cdp-0"
1633                   mother        =>>big5-cdp))
1634
1635   (make-charset
1636    '=mj
1637    "Moji-Jouhou-Kiban characters"
1638    `(long-name "Moji-Jouhou-Kiban"
1639                chars 256
1640                dimension 2
1641                columns 2
1642                graphic 2
1643                direction l2r
1644                ;; registry "mj-0$"
1645                min-code     #xE30000
1646                max-code ,(+ #xE30000 68053)
1647                code-offset  #xE30000
1648                ;; min-code            ,(lsh #x6404 16)
1649                ;; max-code         ,(+ (lsh #x6404 16) 68053)
1650                ;; code-offset    ,(lsh #x6404 16)
1651                ))
1652   (make-charset
1653    '=mj-0
1654    "Moji-Jouhou-Kiban plane 0"
1655    '(long-name "Moji-Jouhou-Kiban-0"
1656                chars 256
1657                dimension 2
1658                columns 2
1659                graphic 2
1660                direction l2r
1661                registry "mj-0$"
1662                mother =mj
1663                min-code 0
1664                max-code #xFFFF))
1665   (make-charset
1666    '=mj-1
1667    "Moji-Jouhou-Kiban plane 1"
1668    '(long-name "Moji-Jouhou-Kiban-1"
1669                chars 256
1670                dimension 2
1671                columns 2
1672                graphic 2
1673                direction l2r
1674                registry "mj-1$"
1675                mother =mj
1676                min-code #x10000
1677                code-offset #x10000))
1678
1679   (make-charset
1680    '=hanyo-denshi/ja
1681    "JA (JIS X0208) part of Han'you-Denshi characters"
1682    `(long-name "Han'you-Denshi/JA"
1683                chars 94
1684                dimension 2
1685                columns 2
1686                graphic 2
1687                direction l2r
1688                registry "HanyoDenshi\\.JA-0$"
1689                min-code ,(lsh #x6400 16)
1690                max-code ,(+ (lsh #x6400 16) (1- (* 94 94)))
1691                code-offset ,(lsh #x6400 16)))
1692   (make-charset
1693    '=hanyo-denshi/jb
1694    "JB (JIS X0212) part of Han'you-Denshi characters"
1695    `(long-name "Han'you-Denshi/JB"
1696                chars 94
1697                dimension 2
1698                columns 2
1699                graphic 2
1700                direction l2r
1701                registry "HanyoDenshi\\.JB-0$"
1702                min-code    ,(+ (lsh #x6400 16) (* 94 94))
1703                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 2)))
1704                code-offset ,(+ (lsh #x6400 16) (* 94 94))))
1705   (make-charset
1706    '=hanyo-denshi/jc
1707    "JC (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
1708    `(long-name "Han'you-Denshi/JC"
1709                chars 94
1710                dimension 2
1711                columns 2
1712                graphic 2
1713                direction l2r
1714                registry "HanyoDenshi\\.JC-0$"
1715                min-code    ,(+ (lsh #x6400 16) (* 94 94 2))
1716                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 3)))
1717                code-offset ,(+ (lsh #x6400 16) (* 94 94 2))))
1718   (make-charset
1719    '=hanyo-denshi/jd
1720    "JD (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
1721    `(long-name "Han'you-Denshi/JD"
1722                chars 94
1723                dimension 2
1724                columns 2
1725                graphic 2
1726                direction l2r
1727                registry "HanyoDenshi\\.JD-0$"
1728                min-code    ,(+ (lsh #x6400 16) (* 94 94 3))
1729                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 4)))
1730                code-offset ,(+ (lsh #x6400 16) (* 94 94 3))))
1731   (make-charset
1732    '=hanyo-denshi/ft
1733    "FT (FDPC additional) part of Han'you-Denshi characters"
1734    `(long-name "Han'you-Denshi/FT"
1735                chars 94
1736                dimension 2
1737                columns 2
1738                graphic 2
1739                direction l2r
1740                registry "HanyoDenshi\\.FT-0$"
1741                min-code    ,(+ (lsh #x6400 16) (* 94 94 4))
1742                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 5)))
1743                code-offset ,(+ (lsh #x6400 16) (* 94 94 4))))
1744   (make-charset
1745    '=hanyo-denshi/ia
1746    "IA part of Han'you-Denshi characters"
1747    `(long-name "Han'you-Denshi/IA"
1748                chars 94
1749                dimension 2
1750                columns 2
1751                graphic 2
1752                direction l2r
1753                registry "HanyoDenshi\\.IA-0$"
1754                min-code    ,(+ (lsh #x6400 16) (* 94 94 5))
1755                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 6)))
1756                code-offset ,(+ (lsh #x6400 16) (* 94 94 5))))
1757   (make-charset
1758    '=hanyo-denshi/ib
1759    "IB part of Han'you-Denshi characters"
1760    `(long-name "Han'you-Denshi/IB"
1761                chars 94
1762                dimension 2
1763                columns 2
1764                graphic 2
1765                direction l2r
1766                registry "HanyoDenshi\\.IB-0$"
1767                min-code    ,(+ (lsh #x6400 16) (* 94 94 6))
1768                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 7)))
1769                code-offset ,(+ (lsh #x6400 16) (* 94 94 6))))
1770   (make-charset
1771    '=hanyo-denshi/hg
1772    "HG (HyouGai Kanji) part of Han'you-Denshi characters"
1773    `(long-name "Han'you-Denshi/HG"
1774                chars 94
1775                dimension 2
1776                columns 2
1777                graphic 2
1778                direction l2r
1779                registry "HanyoDenshi\\.HG-0$"
1780                min-code    ,(+ (lsh #x6400 16) (* 94 94 7))
1781                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 8)))
1782                code-offset ,(+ (lsh #x6400 16) (* 94 94 7))))
1783   (make-charset
1784    '=hanyo-denshi/ip
1785    "IP (for IPA) part of Han'you-Denshi characters"
1786    `(long-name "Han'you-Denshi/IP"
1787                chars 256
1788                dimension 2
1789                columns 2
1790                graphic 2
1791                direction l2r
1792                registry "HanyoDenshi\\.IP-0$"
1793                min-code    ,(+ (lsh #x6402 16) #x4E00)
1794                max-code    ,(+ (lsh #x6402 16) #x9FFF)
1795                code-offset ,(+ (lsh #x6402 16))))
1796   (make-charset
1797    '=hanyo-denshi/jt
1798    "JT (Juuki Touitsu Moji) part of Han'you-Denshi characters"
1799    `(long-name "Han'you-Denshi/JT"
1800                chars 256
1801                dimension 2
1802                columns 2
1803                graphic 2
1804                direction l2r
1805                registry "HanyoDenshi\\.JT-0$"
1806                min-code    ,(+ (lsh #x6402 16) #xAC00)
1807                max-code    ,(+ (lsh #x6402 16) #xD7AF)
1808                code-offset ,(+ (lsh #x6402 16))))
1809   (make-charset
1810    '=hanyo-denshi/ks
1811    "KS (KoSeki) part of Han'you-Denshi characters"
1812    `(long-name "Han'you-Denshi/KS font encoding"
1813                chars 256
1814                dimension 3
1815                columns 2
1816                graphic 2
1817                direction l2r))
1818
1819   (make-charset
1820    '==mj
1821    "Moji-Jouhou-Kiban detailed glyph-images."
1822    '(long-name "MJ glyph-images"
1823                chars 256
1824                dimension 2
1825                columns 2
1826                graphic 2
1827                direction l2r
1828                mother =mj))
1829   (make-charset
1830    '==mj-0
1831    "MJ detailed glyph-images plane 0"
1832    '(long-name "MJ glyph-images-0"
1833                chars 256
1834                dimension 2
1835                columns 2
1836                graphic 2
1837                direction l2r
1838                registry "mj-0$"
1839                mother ==mj
1840                min-code 0
1841                max-code #xFFFF))
1842   (make-charset
1843    '==mj-1
1844    "MJ detailed glyph-images plane 1"
1845    '(long-name "MJ glyph-images-1"
1846                chars 256
1847                dimension 2
1848                columns 2
1849                graphic 2
1850                direction l2r
1851                registry "mj-1$"
1852                mother ==mj
1853                min-code #x10000
1854                code-offset #x10000))
1855
1856   (make-charset
1857    '==hanyo-denshi/ja
1858    "Han'you-Denshi/JA abstract glyph-forms."
1859    '(long-name "Han'you-Denshi/JA glyph-forms"
1860                chars 94
1861                dimension 2
1862                columns 2
1863                graphic 2
1864                direction l2r
1865                registry "HanyoDenshi\\.JA-0$"
1866                mother =hanyo-denshi/ja))
1867   (make-charset
1868    '==hanyo-denshi/jb
1869    "Han'you-Denshi/JB abstract glyph-forms."
1870    '(long-name "Han'you-Denshi/JB glyph-forms"
1871                chars 94
1872                dimension 2
1873                columns 2
1874                graphic 2
1875                direction l2r
1876                registry "HanyoDenshi\\.JB-0$"
1877                mother =hanyo-denshi/jb))
1878   (make-charset
1879    '==hanyo-denshi/jc
1880    "Han'you-Denshi/JC abstract glyph-forms."
1881    '(long-name "Han'you-Denshi/JC glyph-forms"
1882                chars 94
1883                dimension 2
1884                columns 2
1885                graphic 2
1886                direction l2r
1887                registry "HanyoDenshi\\.JC-0$"
1888                mother =hanyo-denshi/jc))
1889   (make-charset
1890    '==hanyo-denshi/jd
1891    "Han'you-Denshi/JD abstract glyph-forms."
1892    '(long-name "Han'you-Denshi/JD glyph-forms"
1893                chars 94
1894                dimension 2
1895                columns 2
1896                graphic 2
1897                direction l2r
1898                registry "HanyoDenshi\\.JD-0$"
1899                mother =hanyo-denshi/jd))
1900   (make-charset
1901    '==hanyo-denshi/ft
1902    "Han'you-Denshi/FT abstract glyph-forms."
1903    '(long-name "Han'you-Denshi/FT glyph-forms"
1904                chars 94
1905                dimension 2
1906                columns 2
1907                graphic 2
1908                direction l2r
1909                registry "HanyoDenshi\\.FT-0$"
1910                mother =hanyo-denshi/ft))
1911   (make-charset
1912    '==hanyo-denshi/ia
1913    "Han'you-Denshi/IA abstract glyph-forms."
1914    '(long-name "Han'you-Denshi/IA glyph-images"
1915                chars 94
1916                dimension 2
1917                columns 2
1918                graphic 2
1919                direction l2r
1920                registry "HanyoDenshi\\.IA-0$"
1921                mother =hanyo-denshi/ia))
1922   (make-charset
1923    '==hanyo-denshi/ib
1924    "Han'you-Denshi/IB abstract glyph-forms."
1925    '(long-name "Han'you-Denshi/IB glyph-forms"
1926                chars 94
1927                dimension 2
1928                columns 2
1929                graphic 2
1930                direction l2r
1931                registry "HanyoDenshi\\.IB-0$"
1932                mother =hanyo-denshi/ib))
1933   (make-charset
1934    '==hanyo-denshi/hg
1935    "Han'you-Denshi/HG abstract glyph-forms."
1936    '(long-name "Han'you-Denshi/HG glyph-forms"
1937                chars 94
1938                dimension 2
1939                columns 2
1940                graphic 2
1941                direction l2r
1942                registry "HanyoDenshi\\.HG-0$"
1943                mother =hanyo-denshi/hg))
1944   (make-charset
1945    '==hanyo-denshi/ip
1946    "Han'you-Denshi/IP abstract glyph-forms."
1947    '(long-name "Han'you-Denshi/IP glyph-images"
1948                chars 256
1949                dimension 2
1950                columns 2
1951                graphic 2
1952                direction l2r
1953                registry "HanyoDenshi\\.IP-0$"
1954                mother =hanyo-denshi/ip))
1955   (make-charset
1956    '==hanyo-denshi/jt
1957    "JT (Juuki Touitsu Moji) abstract glyph-forms."
1958    '(long-name "Han'you-Denshi/JT glyph-forms"
1959                chars 256
1960                dimension 2
1961                columns 2
1962                graphic 2
1963                direction l2r
1964                registry "HanyoDenshi\\.JT-0$"
1965                mother =hanyo-denshi/jt))
1966   (make-charset
1967    '==hanyo-denshi/ks
1968    "KoSeki-touitsu-moji abstract glyph-forms."
1969    '(long-name "Han'you-Denshi/KS glyph-forms"
1970                chars 256
1971                dimension 3
1972                columns 2
1973                graphic 2
1974                direction l2r
1975                mother =hanyo-denshi/ks))
1976
1977   (make-charset
1978    '=koseki
1979    "Abstract glyph-forms of KoSeki-touitsu-moji."
1980    '(long-name "KoSeki-touitsu-moji glyph-forms"
1981                chars 256
1982                dimension 3
1983                columns 2
1984                graphic 2
1985                direction l2r
1986                mother =hanyo-denshi/ks))
1987   (make-charset
1988    '==koseki
1989    "Representative glyph-images of KoSeki-touitsu-moji."
1990    '(long-name "KoSeki-touitsu-moji glyph-images"
1991                chars 256
1992                dimension 3
1993                columns 2
1994                graphic 2
1995                direction l2r
1996                mother =koseki))
1997
1998   (define-charset-alias '=>>>hanyo-denshi/ja '==hanyo-denshi/ja)
1999   (define-charset-alias '=>>>hanyo-denshi/jb '==hanyo-denshi/jb)
2000   (define-charset-alias '=>>>hanyo-denshi/jc '==hanyo-denshi/jc)
2001   (define-charset-alias '=>>>hanyo-denshi/jd '==hanyo-denshi/jd)
2002   (define-charset-alias '=>>>hanyo-denshi/ft '==hanyo-denshi/ft)
2003   (define-charset-alias '=>>>hanyo-denshi/ib '==hanyo-denshi/ib)
2004   (define-charset-alias '=>>>hanyo-denshi/hg '==hanyo-denshi/hg)
2005   (define-charset-alias '=>>>hanyo-denshi/jt '==hanyo-denshi/jt)
2006   (define-charset-alias '=>>>hanyo-denshi/ks '==hanyo-denshi/ks)
2007
2008   ;; (make-charset
2009   ;;  '===hanyo-denshi/ja
2010   ;;  "Han'you-Denshi/JA detailed glyph-images."
2011   ;;  '(long-name "Han'you-Denshi/JA glyph-images"
2012   ;;              chars 94
2013   ;;              dimension 2
2014   ;;              columns 2
2015   ;;              graphic 2
2016   ;;              direction l2r
2017   ;;              registry "HanyoDenshi\\.JA-0$"
2018   ;;              mother ==hanyo-denshi/ja))
2019   (make-charset
2020    '===hanyo-denshi/jb
2021    "Han'you-Denshi/JB detailed glyph-images."
2022    '(long-name "Han'you-Denshi/JB glyph-images"
2023                chars 94
2024                dimension 2
2025                columns 2
2026                graphic 2
2027                direction l2r
2028                registry "HanyoDenshi\\.JB-0$"
2029                mother ==hanyo-denshi/jb))
2030   (make-charset
2031    '===hanyo-denshi/jc
2032    "Han'you-Denshi/JC representative glyph-images."
2033    '(long-name "Han'you-Denshi/JC glyph-images"
2034                chars 94
2035                dimension 2
2036                columns 2
2037                graphic 2
2038                direction l2r
2039                registry "HanyoDenshi\\.JC-0$"
2040                mother ==hanyo-denshi/jc))
2041   (make-charset
2042    '===hanyo-denshi/jd
2043    "Han'you-Denshi/JD representative glyph-images."
2044    '(long-name "Han'you-Denshi/JD glyph-images"
2045                chars 94
2046                dimension 2
2047                columns 2
2048                graphic 2
2049                direction l2r
2050                registry "HanyoDenshi\\.JD-0$"
2051                mother ==hanyo-denshi/jd))
2052   (make-charset
2053    '===hanyo-denshi/ft
2054    "Han'you-Denshi/FT detailed glyph-images."
2055    '(long-name "Han'you-Denshi/FT glyph-images"
2056                chars 94
2057                dimension 2
2058                columns 2
2059                graphic 2
2060                direction l2r
2061                registry "HanyoDenshi\\.FT-0$"
2062                mother ==hanyo-denshi/ft))
2063   (make-charset
2064    '===hanyo-denshi/ia
2065    "Han'you-Denshi/IA detailed glyph-images."
2066    '(long-name "Han'you-Denshi/IA glyph-images"
2067                chars 94
2068                dimension 2
2069                columns 2
2070                graphic 2
2071                direction l2r
2072                registry "HanyoDenshi\\.IA-0$"
2073                mother ==hanyo-denshi/ia))
2074   (make-charset
2075    '===hanyo-denshi/ib
2076    "Han'you-Denshi/IB detailed glyph-images."
2077    '(long-name "Han'you-Denshi/IB glyph-images"
2078                chars 94
2079                dimension 2
2080                columns 2
2081                graphic 2
2082                direction l2r
2083                registry "HanyoDenshi\\.IB-0$"
2084                mother ==hanyo-denshi/ib))
2085   (make-charset
2086    '===hanyo-denshi/hg
2087    "Han'you-Denshi/HG detailed glyph-images."
2088    '(long-name "Han'you-Denshi/HG glyph-images"
2089                chars 94
2090                dimension 2
2091                columns 2
2092                graphic 2
2093                direction l2r
2094                registry "HanyoDenshi\\.HG-0$"
2095                mother ==hanyo-denshi/hg))
2096   (make-charset
2097    '===hanyo-denshi/ip
2098    "Han'you-Denshi/IP representative glyph-images."
2099    '(long-name "Han'you-Denshi/IP glyph-images"
2100                chars 256
2101                dimension 2
2102                columns 2
2103                graphic 2
2104                direction l2r
2105                registry "HanyoDenshi\\.IP-0$"
2106                mother ==hanyo-denshi/ip))
2107   (make-charset
2108    '===hanyo-denshi/jt
2109    "JT (Juuki Touitsu Moji) detailed glyph-images."
2110    '(long-name "Han'you-Denshi/JT glyph-images"
2111                chars 256
2112                dimension 2
2113                columns 2
2114                graphic 2
2115                direction l2r
2116                registry "HanyoDenshi\\.JT-0$"
2117                mother ==hanyo-denshi/jt))
2118   (make-charset
2119    '===hanyo-denshi/ks
2120    "KoSeki-touitsu-moji detailed glyph-images."
2121    '(long-name "Han'you-Denshi/KS glyph-images"
2122                chars 256
2123                dimension 3
2124                columns 2
2125                graphic 2
2126                direction l2r
2127                mother ==hanyo-denshi/ks))
2128
2129   (make-charset
2130    '=hanyo-denshi/ks/mf
2131    "font encoding for KS (KoSeki) characters"
2132    `(long-name "Han'you-Denshi/KS font encoding"
2133                chars 256
2134                dimension 2
2135                columns 2
2136                graphic 2
2137                direction l2r
2138                registry "HanyoDenshi\\.KSMF-0$"
2139                min-code       ,(lsh #x6403 16)
2140                max-code    ,(+ (lsh #x6403 16) #xFFFF)
2141                code-offset    ,(lsh #x6403 16)))
2142
2143   (make-charset
2144    '===mj
2145    "Moji-Jouhou-Kiban detailed glyph-images."
2146    '(long-name "MJ glyph-images"
2147                chars 256
2148                dimension 2
2149                columns 2
2150                graphic 2
2151                direction l2r
2152                mother ==mj))
2153   (make-charset
2154    '===mj-0
2155    "MJ detailed glyph-images plane 0"
2156    '(long-name "MJ glyph-images-0"
2157                chars 256
2158                dimension 2
2159                columns 2
2160                graphic 2
2161                direction l2r
2162                registry "mj-0$"
2163                mother ===mj
2164                min-code 0
2165                max-code #xFFFF))
2166   (make-charset
2167    '===mj-1
2168    "MJ detailed glyph-images plane 1"
2169    '(long-name "MJ glyph-images-1"
2170                chars 256
2171                dimension 2
2172                columns 2
2173                graphic 2
2174                direction l2r
2175                registry "mj-1$"
2176                mother ===mj
2177                min-code #x10000
2178                code-offset #x10000))
2179
2180   (make-charset
2181    '=+>hanyo-denshi/ft
2182    "Han'you-Denshi/FT abstract glyphs"
2183    '(long-name "Han'you-Denshi/FT glyphs"
2184                chars 94
2185                dimension 2
2186                columns 2
2187                graphic 2
2188                direction l2r
2189                registry "HanyoDenshi\\.FT-0$"
2190                mother =hanyo-denshi/ft))
2191   (make-charset
2192    '=+>hanyo-denshi/jt
2193    "JT (Juuki Touitsu Moji) unified abstract glyphs."
2194    '(long-name "Han'you-Denshi/JT unified glyphs"
2195                chars 256
2196                dimension 2
2197                columns 2
2198                graphic 2
2199                direction l2r
2200                registry "HanyoDenshi\\.JT-0$"
2201                mother =hanyo-denshi/jt))
2202
2203   (make-charset
2204    '=>>mj
2205    "Moji-Jouhou-Kiban abstract glyphs."
2206    '(long-name "MJ glyphs"
2207                chars 256
2208                dimension 2
2209                columns 2
2210                graphic 2
2211                direction l2r
2212                mother =mj))
2213
2214   (make-charset
2215    '=>>hanyo-denshi/ja
2216    "Han'you-Denshi/JA abstract glyphs"
2217    '(long-name "Han'you-Denshi/JA glyphs"
2218                chars 94
2219                dimension 2
2220                columns 2
2221                graphic 2
2222                direction l2r
2223                registry "HanyoDenshi\\.JA-0$"
2224                mother =hanyo-denshi/ja))
2225   (make-charset
2226    '=>>hanyo-denshi/jb
2227    "Han'you-Denshi/JB abstract glyphs"
2228    '(long-name "Han'you-Denshi/JB glyphs"
2229                chars 94
2230                dimension 2
2231                columns 2
2232                graphic 2
2233                direction l2r
2234                registry "HanyoDenshi\\.JB-0$"
2235                mother =hanyo-denshi/jb))
2236   (make-charset
2237    '=>>hanyo-denshi/jc
2238    "Han'you-Denshi/JC abstract glyphs"
2239    '(long-name "Han'you-Denshi/JC glyphs"
2240                chars 94
2241                dimension 2
2242                columns 2
2243                graphic 2
2244                direction l2r
2245                registry "HanyoDenshi\\.JC-0$"
2246                mother =hanyo-denshi/jc))
2247   (make-charset
2248    '=>>hanyo-denshi/jd
2249    "Han'you-Denshi/JD abstract glyphs"
2250    '(long-name "Han'you-Denshi/JD glyphs"
2251                chars 94
2252                dimension 2
2253                columns 2
2254                graphic 2
2255                direction l2r
2256                registry "HanyoDenshi\\.JD-0$"
2257                mother =hanyo-denshi/jd))
2258   (make-charset
2259    '=>>hanyo-denshi/ft
2260    "Han'you-Denshi/FT abstract glyphs"
2261    '(long-name "Han'you-Denshi/FT glyphs"
2262                chars 94
2263                dimension 2
2264                columns 2
2265                graphic 2
2266                direction l2r
2267                registry "HanyoDenshi\\.FT-0$"
2268                mother =hanyo-denshi/ft))
2269   (make-charset
2270    '=>>hanyo-denshi/ia
2271    "Han'you-Denshi/IA abstract glyphs"
2272    '(long-name "Han'you-Denshi/IA glyphs"
2273                chars 94
2274                dimension 2
2275                columns 2
2276                graphic 2
2277                direction l2r
2278                registry "HanyoDenshi\\.IA-0$"
2279                mother =hanyo-denshi/ia))
2280   (make-charset
2281    '=>>hanyo-denshi/ib
2282    "Han'you-Denshi/IB abstract glyphs"
2283    '(long-name "Han'you-Denshi/IB abstract glyphs"
2284                chars 94
2285                dimension 2
2286                columns 2
2287                graphic 2
2288                direction l2r
2289                registry "HanyoDenshi\\.IB-0$"
2290                mother =hanyo-denshi/ib))
2291   (make-charset
2292    '=>>hanyo-denshi/hg
2293    "Han'you-Denshi/HG abstract glyphs"
2294    '(long-name "Han'you-Denshi/HG abstract glyphs"
2295                chars 94
2296                dimension 2
2297                columns 2
2298                graphic 2
2299                direction l2r
2300                registry "HanyoDenshi\\.HG-0$"
2301                mother =hanyo-denshi/hg))
2302   (make-charset
2303    '=>>hanyo-denshi/ip
2304    "Han'you-Denshi/IP abstract glyphs"
2305    '(long-name "Han'you-Denshi/IP abstract glyphs"
2306                chars 256
2307                dimension 2
2308                columns 2
2309                graphic 2
2310                direction l2r
2311                registry "HanyoDenshi\\.IP-0$"
2312                mother =hanyo-denshi/ip))
2313   (make-charset
2314    '=>>hanyo-denshi/jt
2315    "JT (Juuki Touitsu Moji) abstract glyphs"
2316    '(long-name "Han'you-Denshi/JT glyphs"
2317                chars 256
2318                dimension 2
2319                columns 2
2320                graphic 2
2321                direction l2r
2322                registry "HanyoDenshi\\.JT-0$"
2323                mother =hanyo-denshi/jt))
2324   (make-charset
2325    '=>>hanyo-denshi/ks
2326    "Han'you-Denshi/KS abstract glyphs"
2327    '(long-name "Han'you-Denshi/KS glyphs"
2328                chars 256
2329                dimension 3
2330                columns 2
2331                graphic 2
2332                direction l2r
2333                mother =hanyo-denshi/ks))
2334
2335   (make-charset '=gt
2336                 "GT 2000"
2337                 `(long-name     "GT"
2338                   chars         256
2339                   dimension     3
2340                   columns       2
2341                   graphic       2
2342                   direction     l2r
2343                   registry      ""
2344                   min-code      ,(lsh #x6100 16)
2345                   max-code      ,(+ (lsh #x6100 16) 67547)
2346                   code-offset   ,(lsh #x6100 16)))
2347   (make-charset '==gt
2348                 "GT 2000 abstract glyph-forms."
2349                 '(long-name     "GT abstract glyph-forms"
2350                   chars         256
2351                   dimension     3
2352                   columns       2
2353                   graphic       2
2354                   direction     l2r
2355                   mother        =gt))
2356   (make-charset '===gt
2357                 "GT 2000 detailed glyph-images."
2358                 '(long-name     "GT glyph-images"
2359                   chars         256
2360                   dimension     3
2361                   columns       2
2362                   graphic       2
2363                   direction     l2r
2364                   mother        ==gt
2365                   ;; min-code   1
2366                   ;; max-code   67392
2367                   ))
2368   (define-charset-alias 'ideograph-gt '=gt)
2369   (define-charset-alias '=>>>gt '==gt)
2370   (make-charset '=>>gt
2371                 "GT 2000 abstract glyphs"
2372                 '(long-name     "GT abstract glyphs"
2373                   chars         256
2374                   dimension     3
2375                   columns       2
2376                   graphic       2
2377                   direction     l2r
2378                   mother        =gt))
2379   (define-charset-alias '<=>gt '=>>gt)
2380   (define-charset-alias '<==>gt '=>>gt)
2381   (make-charset '=+>gt
2382                 "GT 2000 unified abstract glyphs"
2383                 '(long-name     "Unified abstract GT glyphs"
2384                   chars         256
2385                   dimension     3
2386                   columns       2
2387                   graphic       2
2388                   direction     l2r
2389                   mother        =>>gt))
2390   (make-charset '=>gt
2391                 "GT 2000 abstract characters"
2392                 '(long-name     "abstract GT characters"
2393                   chars         256
2394                   dimension     3
2395                   columns       2
2396                   graphic       2
2397                   direction     l2r
2398                   mother        =+>gt))
2399   (make-charset '=gt-k
2400                 "Ideographic components of GT"
2401                 `(long-name     "GT components"
2402                   chars         256
2403                   dimension     2
2404                   columns       2
2405                   graphic       2
2406                   direction     l2r
2407                   registry      ""
2408                   min-code      ,(lsh #x6110 16)
2409                   max-code      ,(+ (lsh #x6110 16) 17090)
2410                   code-offset   ,(lsh #x6110 16)))
2411   (define-charset-alias 'ideograph-gt-k '=gt-k)
2412   (make-charset '==gt-k
2413                 "Abstract glyph-images of GT-K"
2414                 '(long-name     "GT-K glyph-images"
2415                   chars         256
2416                   dimension     2
2417                   columns       2
2418                   graphic       2
2419                   direction     l2r
2420                   mother        =gt-k))
2421   (make-charset '===gt-k
2422                 "Representative glyph-images of GT-K"
2423                 '(long-name     "GT-K glyph-images"
2424                   chars         256
2425                   dimension     2
2426                   columns       2
2427                   graphic       2
2428                   direction     l2r
2429                   mother        ==gt-k))
2430   (make-charset '=>>gt-k
2431                 "abstract glyphs of GT-K"
2432                 '(long-name     "GT-K abstract glyphs"
2433                   chars         256
2434                   dimension     2
2435                   columns       2
2436                   graphic       2
2437                   direction     l2r
2438                   mother        =gt-k))
2439   (make-charset '=>gt-k
2440                 "GT-K abstract characters"
2441                 '(long-name     "GT-K abstract characters"
2442                   chars         256
2443                   dimension     2
2444                   columns       2
2445                   graphic       2
2446                   direction     l2r
2447                   mother        =>>gt-k))
2448   (let ((i 1))
2449     (while (<= i 11)
2450       (make-charset
2451        (intern (format "=gt-pj-%d" i))
2452        (format "GT 2000 (pseudo JIS encoding) part %d" i)
2453        `(long-name ,(format "GT PJ %d" i)
2454                    chars 94
2455                    dimension 2
2456                    columns 2
2457                    graphic 0
2458                    direction l2r
2459                    registry ,(format "\\(GTpj-%d\\|jisx0208\\.GT-%d\\)$" i i)))
2460       (define-charset-alias
2461         (intern (format "ideograph-gt-pj-%d" i))
2462         (intern (format "=gt-pj-%d" i)))
2463       (setq i (1+ i))))
2464   (make-charset
2465    '=gt-pj-k1
2466    "Ideographic parts of GT (pseudo JIS encoding) part 1"
2467    '(long-name "GT K1"
2468                chars 94
2469                dimension 2
2470                columns 2
2471                graphic 0
2472                direction l2r
2473                registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$"))
2474   (define-charset-alias 'ideograph-gt-pj-k1 '=gt-pj-k1)
2475   (make-charset
2476    '=gt-pj-k2
2477    "Ideographic parts of GT (pseudo JIS encoding) part 2"
2478    '(long-name "GT K2"
2479                chars 94
2480                dimension 2
2481                columns 2
2482                graphic 0
2483                direction l2r
2484                registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$"))
2485   (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2)
2486
2487   (make-charset '=daikanwa
2488                 "Daikanwa dictionary (unchanged part)"
2489                 `(long-name     "Daikanwa"
2490                   chars         256
2491                   dimension     2
2492                   columns       2
2493                   graphic       2
2494                   direction     l2r
2495                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2496                   min-code      #xE00000
2497                   max-code      ,(+ #xE00000 50100)
2498                   code-offset   #xE00000))
2499   (define-charset-alias 'ideograph-daikanwa '=daikanwa)
2500
2501   (make-charset '=daikanwa@rev1
2502                 "Daikanwa dictionary (revised version)"
2503                 '(long-name     "Daikanwa Rev."
2504                   chars         256
2505                   dimension     2
2506                   columns       2
2507                   graphic       2
2508                   direction     l2r
2509                   registry      "Daikanwa\\(\\.[0-9]+\\)?-2"
2510                   mother        =daikanwa))
2511   (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa@rev1)
2512   (define-charset-alias '=daikanwa-rev1 '=daikanwa@rev1)
2513
2514   (make-charset '=daikanwa@rev2
2515                 "Daikanwa dictionary (revised version 2)"
2516                 '(long-name     "Daikanwa"
2517                   chars         256
2518                   dimension     2
2519                   columns       2
2520                   graphic       2
2521                   direction     l2r
2522                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2523                   mother        =daikanwa
2524                   min-code      1
2525                   max-code      49964))
2526   (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2)
2527
2528   (make-charset '=daikanwa/+p
2529                 "Daikanwa dictionary (ddddd')"
2530                 '(long-name     "Daikanwa ddddd'"
2531                   chars         256
2532                   dimension     2
2533                   columns       2
2534                   graphic       2
2535                   direction     l2r))
2536   (make-charset '=daikanwa/+2p
2537                 "Daikanwa dictionary (ddddd'')"
2538                 '(long-name     "Daikanwa ddddd''"
2539                   chars         256
2540                   dimension     2
2541                   columns       2
2542                   graphic       2
2543                   direction     l2r))
2544   (make-charset '=daikanwa/ho
2545                 "Daikanwa dictionary (Hokan)"
2546                 '(long-name     "Daikanwa-ho"
2547                   chars         256
2548                   dimension     2
2549                   columns       2
2550                   graphic       2
2551                   direction     l2r))
2552
2553   (make-charset '==daikanwa
2554                 "Daikanwa glyph-images."
2555                 '(long-name     "Daikanwa glyph-images"
2556                   chars         256
2557                   dimension     2
2558                   columns       2
2559                   graphic       2
2560                   direction     l2r
2561                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2562                   mother        =daikanwa))
2563   (make-charset '==daikanwa/+p
2564                 "Daikanwa detailed glyph-images (ddddd')"
2565                 '(long-name     "Daikanwa detailed glyphs-images (ddddd')"
2566                   chars         256
2567                   dimension     2
2568                   columns       2
2569                   graphic       2
2570                   direction     l2r
2571                   mother        =daikanwa/+p))
2572   (make-charset '==daikanwa/+2p
2573                 "Daikanwa detailed glyph-images (ddddd'')"
2574                 '(long-name     "Daikanwa glyph-images ddddd''"
2575                   chars         256
2576                   dimension     2
2577                   columns       2
2578                   graphic       2
2579                   direction     l2r
2580                   mother        =daikanwa/+2p))
2581   (make-charset '==daikanwa/ho
2582                 "Daikanwa detailed glyph-images (Hokan)"
2583                 '(long-name     "Daikanwa-ho detailed glyph-images"
2584                   chars         256
2585                   dimension     2
2586                   columns       2
2587                   graphic       2
2588                   direction     l2r
2589                   mother        =daikanwa/ho))
2590
2591   (make-charset '===daikanwa
2592                 "Daikanwa detailed glyph-images."
2593                 '(long-name     "Daikanwa detailed glyph-images"
2594                   chars         256
2595                   dimension     2
2596                   columns       2
2597                   graphic       2
2598                   direction     l2r
2599                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2600                   mother        ==daikanwa))
2601   (make-charset '===daikanwa/+p
2602                 "Daikanwa detailed glyph-images (ddddd')"
2603                 '(long-name     "Daikanwa detailed glyphs-images (ddddd')"
2604                   chars         256
2605                   dimension     2
2606                   columns       2
2607                   graphic       2
2608                   direction     l2r
2609                   mother        ==daikanwa/+p))
2610   (make-charset '===daikanwa/ho
2611                 "Daikanwa detailed glyph-images (Hokan)"
2612                 '(long-name     "Daikanwa-ho detailed glyph-images"
2613                   chars         256
2614                   dimension     2
2615                   columns       2
2616                   graphic       2
2617                   direction     l2r
2618                   mother        ==daikanwa/ho))
2619
2620   (make-charset '=>>daikanwa
2621                 "Daikanwa abstract glyphs"
2622                 '(long-name     "Daikanwa glyphs"
2623                   chars         256
2624                   dimension     2
2625                   columns       2
2626                   graphic       2
2627                   direction     l2r
2628                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2629                   mother        =daikanwa))
2630   (make-charset '=>>daikanwa/+p
2631                 "Daikanwa abstract glyphs (ddddd')"
2632                 '(long-name     "Daikanwa glyphs (ddddd')"
2633                   chars         256
2634                   dimension     2
2635                   columns       2
2636                   graphic       2
2637                   direction     l2r
2638                   mother        =daikanwa/+p))
2639   (make-charset '=>>daikanwa/+2p
2640                 "Daikanwa abstract glyphs (ddddd'')"
2641                 '(long-name     "Daikanwa glyphs (ddddd'')"
2642                   chars         256
2643                   dimension     2
2644                   columns       2
2645                   graphic       2
2646                   direction     l2r
2647                   mother        =daikanwa/+2p))
2648   (make-charset '=>>daikanwa/ho
2649                 "Daikanwa abstract glyphs (Hokan)"
2650                 '(long-name     "Daikanwa-ho glyph"
2651                   chars         256
2652                   dimension     2
2653                   columns       2
2654                   graphic       2
2655                   direction     l2r
2656                   mother        =daikanwa/ho))
2657
2658   (make-charset '=>daikanwa
2659                 "Daikanwa abstract characters"
2660                 '(long-name     "abstract Daikanwa"
2661                   chars         256
2662                   dimension     2
2663                   columns       2
2664                   graphic       2
2665                   direction     l2r
2666                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2667                   mother        =>>daikanwa))
2668   (make-charset '=>daikanwa/ho
2669                 "Daikanwa abstract characters (Hokan)"
2670                 '(long-name     "abstract Daikanwa-ho"
2671                   chars         256
2672                   dimension     2
2673                   columns       2
2674                   graphic       2
2675                   direction     l2r
2676                   mother        =>>daikanwa/ho))
2677
2678   (make-charset '=shinjigen
2679                 "Kadokawa ShinJigen dictionary (common parts)"
2680                 `(long-name     "Shinjigen common parts"
2681                   chars         256
2682                   dimension     2
2683                   columns       2
2684                   graphic       2
2685                   direction     l2r
2686                   registry      "Shinjigen\\(\\.[0-9]+\\)?-*"))
2687
2688   (make-charset '=shinjigen@1ed
2689                 "Kadokawa ShinJigen dictionary (the first edition)"
2690                 `(long-name     "Shinjigen-1"
2691                   chars         256
2692                   dimension     2
2693                   columns       2
2694                   graphic       2
2695                   direction     l2r
2696                   mother        =shinjigen
2697                   registry      "Shinjigen\\(\\.[0-9]+\\)?-1"))
2698   (define-charset-alias 'shinjigen-1 '=shinjigen@1ed)
2699
2700   (make-charset '=shinjigen@1ed/24pr
2701                 "Kadokawa ShinJigen dictionary (the 24th impression)"
2702                 `(long-name     "Shinjigen-1 24pr"
2703                   chars         256
2704                   dimension     2
2705                   columns       2
2706                   graphic       2
2707                   direction     l2r
2708                   mother        =shinjigen@1ed))
2709
2710   (make-charset '=shinjigen@rev
2711                 "Kadokawa ShinJigen dictionary (the revised edition)"
2712                 `(long-name     "Shinjigen-2"
2713                   chars         256
2714                   dimension     2
2715                   columns       2
2716                   graphic       2
2717                   direction     l2r
2718                   mother        =shinjigen
2719                   registry      "Shinjigen\\(\\.[0-9]+\\)?-2"))
2720   (define-charset-alias 'shinjigen-2 '=shinjigen@rev)
2721   (make-charset '=shinjigen/+p@rev
2722                 "ShinJigen (the second edition) number with '"
2723                 `(long-name     "Shinjigen-2 with '"
2724                   chars         256
2725                   dimension     2
2726                   columns       2
2727                   graphic       2
2728                   direction     l2r))
2729   (define-charset-alias 'shinjigen-2-p '=shinjigen/+p@rev)
2730
2731   (make-charset '==shinjigen
2732                 "Detailed glyph-images of ShinJigen (common parts)"
2733                 '(long-name     "Shinjigen common parts"
2734                   chars         256
2735                   dimension     2
2736                   columns       2
2737                   graphic       2
2738                   direction     l2r
2739                   mother        =shinjigen
2740                   registry      "Shinjigen\\(\\.[0-9]+\\)?-*"))
2741   (make-charset '==shinjigen@1ed
2742                 "Detailed glyph-images of ShinJigen (the first edition)"
2743                 '(long-name     "Detailed glyph-images of Shinjigen-1"
2744                   chars         256
2745                   dimension     2
2746                   columns       2
2747                   graphic       2
2748                   direction     l2r
2749                   mother        ==shinjigen
2750                   registry      "Shinjigen\\(\\.[0-9]+\\)?-1"))
2751   (make-charset '==shinjigen@rev
2752                 "Detailed glyph-images of ShinJigen (the revised edition)"
2753                 '(long-name     "Detailed glyph-images of Shinjigen-2"
2754                   chars         256
2755                   dimension     2
2756                   columns       2
2757                   graphic       2
2758                   direction     l2r
2759                   mother        ==shinjigen
2760                   registry      "Shinjigen\\(\\.[0-9]+\\)?-2"))
2761   (make-charset
2762    '==shinjigen/+p@rev
2763    "Detailed glyph-images of ShinJigen (the second edition) number with '"
2764    '(long-name  "Detailed glyph-images of Shinjigen-2 with '"
2765                 mother  =shinjigen/+p@rev
2766                 chars           256
2767                 dimension       2
2768                 columns 2
2769                 graphic 2
2770                 direction       l2r))
2771
2772   (make-charset '=big5-pua
2773                 "Big5 with private used area"
2774                 '(long-name     "Big5-PUA"
2775                   chars         256
2776                   dimension     2
2777                   columns       2
2778                   graphic       2
2779                   direction     l2r
2780                   mother        chinese-big5
2781                   registry      "Big5\\.ETEN"))
2782   (define-charset-alias 'chinese-big5-pua '=big5-pua)
2783
2784   (let* ((i 1)
2785          (hzk-min (+ (lsh #x6200 16) 65536))
2786          (hzk-max (+ hzk-min 65535)))
2787     (while (<= i 12)
2788       (make-charset
2789        (intern (format "=hanziku-%d" i))
2790        (format "HANZIKU (pseudo BIG5 encoding) part %d" i)
2791        `(long-name ,(format "HANZIKU-%d" i)
2792                    chars 256
2793                    dimension 2
2794                    columns 2
2795                    graphic 2
2796                    direction l2r
2797                    registry ,(format "hanziku-%d$" i i)
2798                    min-code ,hzk-min
2799                    max-code ,hzk-max
2800                    code-offset ,hzk-min))
2801       (define-charset-alias
2802         (intern (format "ideograph-hanziku-%d" i))
2803         (intern (format "=hanziku-%d" i)))
2804       (setq hzk-min (1+ hzk-max)
2805             hzk-max (+ hzk-min 65535))
2806       (setq i (1+ i))))
2807
2808   (make-charset '===hng-jou "HNG:誠實論卷八(P.2179)"
2809                 '(long-name "HNG/P2179"
2810                   chars         256
2811                   dimension     2
2812                   registry      "hng-1$"
2813                   graphic       2
2814                   columns       2
2815                   direction     l2r))
2816   (make-charset '===hng-khi "HNG:妙法蓮華經卷五(今西本)"
2817                 '(long-name "HNG/宮廷今西"
2818                   chars         256
2819                   dimension     2
2820                   registry      "hng-10$"
2821                   graphic       2
2822                   columns       2
2823                   direction     l2r))
2824   (make-charset '===hng-khm "HNG:妙法蓮華經卷三(守屋本)"
2825                 '(long-name "HNG/宮廷守屋"
2826                   chars         256
2827                   dimension     2
2828                   registry      "hng-11$"
2829                   graphic       2
2830                   columns       2
2831                   direction     l2r))
2832   (make-charset '===hng-kak "HNG:開成石經孝經"
2833                 '(long-name "HNG/開成孝經"
2834                   chars         256
2835                   dimension     2
2836                   registry      "hng-17$"
2837                   graphic       2
2838                   columns       2
2839                   direction     l2r))
2840   (make-charset '===hng-sys "HNG:瑜伽師地論卷三十(S.5309)"
2841                 '(long-name "HNG/S5309"
2842                   chars         256
2843                   dimension     2
2844                   registry      "hng-22$"
2845                   graphic       2
2846                   columns       2
2847                   direction     l2r))
2848   (make-charset '===hng-tsu "HNG:通典卷一"
2849                 '(long-name "HNG/通典卷一"
2850                   chars         256
2851                   dimension     2
2852                   registry      "hng-24$"
2853                   graphic       2
2854                   columns       2
2855                   direction     l2r))
2856   (make-charset '===hng-hod "HNG:法藏和尚傳(高山寺本)"
2857                 '(long-name "HNG/法藏和尚"
2858                   chars         256
2859                   dimension     2
2860                   registry      "hng-30$"
2861                   graphic       2
2862                   columns       2
2863                   direction     l2r))
2864   (make-charset '===hng-gok "HNG:後漢書光武帝紀"
2865                 '(long-name "HNG/光武帝紀"
2866                   chars         256
2867                   dimension     2
2868                   registry      "hng-31$"
2869                   graphic       2
2870                   columns       2
2871                   direction     l2r))
2872   (make-charset '===hng-k24 "HNG:日本書紀 卷二十四(寛文九年版)"
2873                 '(long-name "HNG/寛九紀24"
2874                   chars         256
2875                   dimension     2
2876                   registry      "hng-37$"
2877                   graphic       2
2878                   columns       2
2879                   direction     l2r))
2880   (make-charset '===hng-kcj "HNG:日本書紀 卷二(慶長十五年版)"
2881                 '(long-name "HNG/慶長紀2"
2882                   chars         256
2883                   dimension     2
2884                   registry      "hng-42$"
2885                   graphic       2
2886                   columns       2
2887                   direction     l2r))
2888   (make-charset '===hng-kbk "HNG:日本書紀 卷二(寛文九年版)"
2889                 '(long-name "HNG/寛九紀2"
2890                   chars         256
2891                   dimension     2
2892                   registry      "hng-43$"
2893                   graphic       2
2894                   columns       2
2895                   direction     l2r))
2896   (make-charset '===hng-sik "HNG:花嚴經卷八(新羅本寫本)"
2897                 '(long-name "HNG/花嚴新羅"
2898                   chars         256
2899                   dimension     2
2900                   registry      "hng-44$"
2901                   graphic       2
2902                   columns       2
2903                   direction     l2r))
2904   (make-charset '===hng-skk "HNG:華嚴經卷二十(晉本高麗古版)"
2905                 '(long-name "HNG/古麗華20"
2906                   chars         256
2907                   dimension     2
2908                   registry      "hng-46$"
2909                   graphic       2
2910                   columns       2
2911                   direction     l2r))
2912   (make-charset '===hng-kyu "HNG:初麗瑜5"
2913                 '(long-name "HNG/瑜伽師地論卷五(高麗初彫本)"
2914                   chars         256
2915                   dimension     2
2916                   registry      "hng-47$"
2917                   graphic       2
2918                   columns       2
2919                   direction     l2r))
2920   (make-charset '===hng-ksk "HNG:華嚴經卷六(高麗再彫本)"
2921                 '(long-name "HNG/再麗華6"
2922                   chars         256
2923                   dimension     2
2924                   registry      "hng-48$"
2925                   graphic       2
2926                   columns       2
2927                   direction     l2r))
2928   (make-charset '===hng-wan "HNG:華嚴經卷三十八(趙氏藏本)"
2929                 '(long-name "HNG/和寧華38"
2930                   chars         256
2931                   dimension     2
2932                   registry      "hng-49$"
2933                   graphic       2
2934                   columns       2
2935                   direction     l2r))
2936   (make-charset '===hng-kss "HNG:華嚴信種義(明惠自筆)"
2937                 '(long-name "HNG/華嚴信種"
2938                   chars         256
2939                   dimension     2
2940                   registry      "hng-64$"
2941                   graphic       2
2942                   columns       2
2943                   direction     l2r))
2944   (make-charset '===hng-kyo "HNG:教行信証卷四(親鸞自筆)"
2945                 '(long-name "HNG/教行信証"
2946                   chars         256
2947                   dimension     2
2948                   registry      "hng-66$"
2949                   graphic       2
2950                   columns       2
2951                   direction     l2r))
2952   (make-charset '===hng-smk "HNG:西夏版妙法蓮華經卷一"
2953                 '(long-name "HNG/西夏法華"
2954                   chars         256
2955                   dimension     2
2956                   registry      "hng-74$"
2957                   graphic       2
2958                   columns       2
2959                   direction     l2r))
2960
2961   (make-charset '=cbeta "CBETA private characters"
2962                 '(long-name     "CBETA PUA"
2963                   chars         256
2964                   dimension     2
2965                   registry      "cbeta-0"
2966                   graphic       2
2967                   min-code      #xE20000
2968                   max-code      #xE2FFFF
2969                   code-offset   #xE20000
2970                   columns       2
2971                   direction     l2r))
2972   (define-charset-alias 'ideograph-cbeta '=cbeta)
2973   (make-charset '==cbeta "CBETA private characters"
2974                 '(long-name     "CBETA PUA glyph-images"
2975                   chars         256
2976                   dimension     2
2977                   registry      "cbeta-0"
2978                   graphic       2
2979                   columns       2
2980                   direction     l2r
2981                   mother        =cbeta))
2982   (make-charset '===cbeta "CBETA private characters"
2983                 '(long-name     "CBETA PUA glyph-images"
2984                   chars         256
2985                   dimension     2
2986                   registry      "cbeta-0"
2987                   graphic       2
2988                   columns       2
2989                   direction     l2r
2990                   mother        ==cbeta))
2991   (make-charset '=>>cbeta "CBETA abstract glyphs"
2992                 '(long-name     "CBETA glyphs"
2993                   chars         256
2994                   dimension     2
2995                   registry      "cbeta-0"
2996                   graphic       2
2997                   columns       2
2998                   direction     l2r
2999                   mother        =cbeta))
3000   (make-charset '=>cbeta "CBETA abstract characters"
3001                 '(long-name     "CBETA characters"
3002                   chars         256
3003                   dimension     2
3004                   registry      "cbeta-0"
3005                   graphic       2
3006                   columns       2
3007                   direction     l2r
3008                   mother        =cbeta))
3009
3010   (make-charset '=zinbun-oracle
3011                 "Oracle Bones Script"
3012                 `(long-name     "Oracle Bones Script in Zinbun, Kyoto Univ."
3013                   chars         256
3014                   dimension     2
3015                   registry      "zob1968-0"
3016                   graphic       2
3017                   min-code      #xE70000
3018                   max-code      ,(+ #xE70000 8192)
3019                   code-offset   #xE70000
3020                   columns       2
3021                   direction     l2r))
3022
3023   (make-charset '=>zinbun-oracle
3024                 "Abstract Oracle Bones"
3025                 '(long-name     "Abstract characters of Zinbun Oracle Bones."
3026                   chars         256
3027                   dimension     2
3028                   mother        =zinbun-oracle
3029                   registry      "zob1968-0"
3030                   graphic       2
3031                   columns       2
3032                   direction     l2r))
3033
3034   (make-charset '=jef-china3
3035                 "JEF + CHINA3 private characters"
3036                 '(long-name     "JEF + CHINA3"
3037                   chars         256
3038                   dimension     2
3039                   columns       2
3040                   graphic       2
3041                   direction     l2r
3042                   registry      "china3jef-0"
3043                   min-code      #xE80000
3044                   max-code      #xE8FFFF
3045                   code-offset   #xE80000))
3046   (define-charset-alias 'china3-jef '=jef-china3)
3047   (make-charset '==jef-china3
3048                 "JEF + CHINA3 abstract glyph-images."
3049                 '(long-name     "JEF + CHINA3"
3050                   chars         256
3051                   dimension     2
3052                   columns       2
3053                   graphic       2
3054                   direction     l2r
3055                   registry      "china3jef-0"
3056                   mother        =jef-china3))
3057   (make-charset '===jef-china3
3058                 "JEF + CHINA3 glyph-images."
3059                 '(long-name     "JEF-CHINA3 glyph-images"
3060                   chars         256
3061                   dimension     2
3062                   columns       2
3063                   graphic       2
3064                   direction     l2r
3065                   registry      "china3jef-0"
3066                   mother        ==jef-china3))
3067
3068   (make-charset '=ruimoku-v6
3069                 "private characters used in RUIMOKU Version.6"
3070                 `(long-name     "RUI6"
3071                   chars         256
3072                   dimension     2
3073                   columns       2
3074                   graphic       2
3075                   direction     l2r
3076                   registry      "rui6-0"
3077                   ;; mother     ucs
3078                   min-code      #xE90000 ; #xE000
3079                   max-code      #xE908FF ; #xE8FF
3080                   code-offset   ,(- #xE90000 #xE000)))
3081   (make-charset '==ruimoku-v6
3082                 "RUIMOKU Version.6 glyph-images."
3083                 '(long-name     "RUI6 glyph-images."
3084                   chars         256
3085                   dimension     2
3086                   columns       2
3087                   graphic       2
3088                   direction     l2r
3089                   registry      "rui6-0"
3090                   mother        =ruimoku-v6))
3091   (make-charset '===ruimoku-v6
3092                 "RUIMOKU Version.6 representative glyph-images."
3093                 '(long-name     "RUI6 rep-glyph-images."
3094                   chars         256
3095                   dimension     2
3096                   columns       2
3097                   graphic       2
3098                   direction     l2r
3099                   registry      "rui6-0"
3100                   mother        ==ruimoku-v6))
3101   (make-charset '=>>ruimoku-v6
3102                 "RUIMOKU Version.6 glyphs"
3103                 '(long-name     "RUI6 glyphs"
3104                   chars         256
3105                   dimension     2
3106                   columns       2
3107                   graphic       2
3108                   direction     l2r
3109                   registry      "rui6-0"
3110                   mother        =ruimoku-v6))
3111
3112   ;; (make-charset
3113   ;;  '=zihai
3114   ;;  "ZhongHua-ZiHai glyph-images"
3115   ;;  '(long-name "ZhongHua-ZiHai (pppp-nn)"
3116   ;;              chars 256
3117   ;;              dimension 3
3118   ;;              columns 2
3119   ;;              graphic 2
3120   ;;              direction l2r))
3121
3122   ;; (make-charset
3123   ;;  '=zihai-17xx
3124   ;;  "ZhongHua-ZiHai (pp.1700〜1781) glyph-images"
3125   ;;  '(long-name "ZhongHua-ZiHai pp.17xx"
3126   ;;              chars 256
3127   ;;              dimension 2
3128   ;;              columns 2
3129   ;;              graphic 2
3130   ;;              direction l2r
3131   ;;              registry "zihai\\.cp-17$"))
3132
3133   (make-charset '=big5-cdp-var-3
3134                 "Big5-CDP-var-3 glyph-images of GlyphWiki"
3135                 '(long-name     "Big5-CDP-var-3"
3136                   chars         256
3137                   dimension     2
3138                   columns       2
3139                   graphic       2
3140                   direction     l2r
3141                   registry      "cdp\\.var-3$"
3142                   mother        =big5-cdp))
3143
3144   (make-charset '=big5-cdp-var-5
3145                 "Big5-CDP-var-5 glyph-images of GlyphWiki"
3146                 '(long-name     "Big5-CDP-var-5"
3147                   chars         256
3148                   dimension     2
3149                   columns       2
3150                   graphic       2
3151                   direction     l2r
3152                   registry      "cdp\\.var-5$"
3153                   mother        =big5-cdp))
3154
3155   (make-charset '==>ucs@bucs
3156                 "Basic Subset of Coded Character Sets (BUCS)"
3157                 '(long-name     "BUCS abstract characters"
3158                   chars         256
3159                   dimension     3
3160                   columns       2
3161                   graphic       2
3162                   direction     l2r
3163                   =>iso-ir      177
3164                   mother        =ucs))
3165
3166   (make-charset '=>iwds-1
3167                 "The IRG Working Document Series 1: List of UCV of Ideograhs."
3168                 '(long-name     "IWDS 1: List of UCV"
3169                   chars         256
3170                   dimension     2
3171                   columns       2
3172                   graphic       2
3173                   direction     l2r))
3174
3175   (make-charset '=>ucs@iwds-1
3176                 "UCS abstract characters based on IWDS-1."
3177                 '(long-name     "UCS based on IWDS-1"
3178                   chars         256
3179                   dimension     3
3180                   columns       2
3181                   graphic       2
3182                   direction     l2r
3183                   =>iso-ir      177
3184                   mother        =ucs))
3185
3186   (make-charset '=>ucs@component
3187                 "UCS encoding for abstract components of IWDS-1."
3188                 '(long-name     "UCS for IWDS-1 abstract components"
3189                   chars         256
3190                   dimension     3
3191                   columns       2
3192                   graphic       2
3193                   direction     l2r
3194                   =>iso-ir      177
3195                   mother        =ucs))
3196
3197   (make-charset '=>ucs@hanyo-denshi
3198                 "UCS abstract characters based on Han'you-Denshi collection."
3199                 '(long-name     "UCS base characters of Han'you-Denshi"
3200                   chars         256
3201                   dimension     3
3202                   columns       2
3203                   graphic       2
3204                   direction     l2r
3205                   =>iso-ir      177
3206                   mother        =ucs))
3207
3208   (make-charset '=>ucs@iso
3209                 "Abstract characters of ISO/IEC 10646 representatives"
3210                 '(long-name     "UCS characters for ISO"
3211                   chars         256
3212                   dimension     3
3213                   columns       2
3214                   graphic       2
3215                   direction     l2r
3216                   =>iso-ir      177
3217                   mother        =ucs))
3218   (make-charset '=>ucs@unicode
3219                 "Abstract characters of Unicode representatives"
3220                 '(long-name     "UCS characters for Unicode"
3221                   chars         256
3222                   dimension     3
3223                   columns       2
3224                   graphic       2
3225                   direction     l2r
3226                   =>iso-ir      177
3227                   mother        =>ucs@iso))
3228   (make-charset '=>ucs@jis
3229                 "UCS representative characters for JIS X0208/0212/0213"
3230                 '(long-name     "UCS characters for JIS"
3231                   chars         256
3232                   dimension     3
3233                   columns       2
3234                   graphic       2
3235                   direction     l2r
3236                   =>iso-ir      177
3237                   mother        =>ucs@unicode))
3238   (make-charset '=>ucs@ks
3239                 "UCS representative characters for Korean Standards"
3240                 '(long-name     "UCS characters for KS"
3241                   chars         256
3242                   dimension     3
3243                   columns       2
3244                   graphic       2
3245                   direction     l2r
3246                   =>iso-ir      177
3247                   mother        =>ucs@unicode))
3248   (make-charset '=>ucs@cns
3249                 "UCS representatives characters for CNS 11643 sources"
3250                 '(long-name     "UCS characters for CNS 11643"
3251                   chars         256
3252                   dimension     3
3253                   columns       2
3254                   graphic       2
3255                   direction     l2r
3256                   =>iso-ir      177
3257                   mother        =>ucs@unicode))
3258
3259   (make-charset '=+>ucs@iso
3260                 "UCS based on ISO/IEC 10646 representative glyphs"
3261                 '(long-name     "Unified abstract glyphs of UCS"
3262                   chars         256
3263                   dimension     3
3264                   columns       2
3265                   graphic       2
3266                   direction     l2r
3267                   =>iso-ir      177
3268                   mother        =>ucs@iso))
3269   (make-charset '=+>ucs@unicode
3270                 "Unicode representative unified abstract glyphs"
3271                 '(long-name     "UCS unified abstract glyphs for Unicode"
3272                   chars         256
3273                   dimension     3
3274                   columns       2
3275                   graphic       2
3276                   direction     l2r
3277                   =>iso-ir      177
3278                   mother        =+>ucs@iso))
3279   (make-charset '=+>ucs@jis
3280                 "UCS based on Japanese usual unification"
3281                 '(long-name     "UCS unified abstract glyphs for JP"
3282                   chars         256
3283                   dimension     3
3284                   columns       2
3285                   graphic       2
3286                   direction     l2r
3287                   =>iso-ir      177
3288                   mother        =+>ucs@unicode))
3289   (define-charset-alias '=>ucs@JP '=+>ucs@jis)
3290   (make-charset '=+>ucs@jis/1990
3291                 "UCS representative characters for JIS X0208/0212:1990"
3292                 '(long-name     "UCS characters for JIS:1990"
3293                   chars         256
3294                   dimension     3
3295                   columns       2
3296                   graphic       2
3297                   direction     l2r
3298                   =>iso-ir      177
3299                   mother        =+>ucs@jis))
3300   (define-charset-alias '=>ucs@jis/1990 '=+>ucs@jis/1990)
3301   (make-charset '=+>ucs@jis/2004
3302                 "UCS representative characters for JIS X 0213:2004"
3303                 '(long-name     "UCS characters for JIS:2004"
3304                   chars         256
3305                   dimension     3
3306                   columns       2
3307                   graphic       2
3308                   direction     l2r
3309                   =>iso-ir      177
3310                   mother        =+>ucs@jis))
3311   (make-charset '=+>ucs@ks
3312                 "UCS representative unified abstract glyphs for Korean Standards"
3313                 '(long-name     "UCS unified abstract glyphs for KS"
3314                   chars         256
3315                   dimension     3
3316                   columns       2
3317                   graphic       2
3318                   direction     l2r
3319                   =>iso-ir      177
3320                   mother        =+>ucs@unicode))
3321   (make-charset '=+>ucs@cns
3322                 "UCS representatives unified abstract glyphs for CNS 11643 sources"
3323                 '(long-name     "UCS unified abstract glyphs for CNS"
3324                   chars         256
3325                   dimension     3
3326                   columns       2
3327                   graphic       2
3328                   direction     l2r
3329                   =>iso-ir      177
3330                   mother        =+>ucs@unicode))
3331
3332   (make-charset '=ucs@iso
3333                 "ISO/IEC 10646 for its representative glyphs"
3334                 '(long-name     "UCS for ISO"
3335                   chars         256
3336                   dimension     3
3337                   columns       2
3338                   graphic       2
3339                   direction     l2r
3340                   =>iso-ir      177
3341                   mother        =+>ucs@iso
3342                   ))
3343   (make-charset '=ucs@unicode
3344                 "Unicode for its representative glyphs"
3345                 '(long-name     "UCS for Unicode"
3346                   chars         256
3347                   dimension     3
3348                   columns       2
3349                   graphic       2
3350                   direction     l2r
3351                   =>iso-ir      177
3352                   mother        =ucs@iso))
3353   (make-charset '=ucs@gb
3354                 "ISO/IEC 10646 for GB"
3355                 '(long-name     "UCS for GB"
3356                   chars         256
3357                   dimension     3
3358                   columns       2
3359                   graphic       2
3360                   direction     l2r
3361                   =>iso-ir      177
3362                   mother        =ucs@unicode))
3363   (define-charset-alias 'ucs-gb '=ucs@gb)
3364   (make-charset '=ucs@gb/fw
3365                 "ISO/IEC 10646 for GB with fullwidth"
3366                 '(long-name     "UCS for GB-fullwidth"
3367                   chars         256
3368                   dimension     3
3369                   columns       2
3370                   graphic       2
3371                   direction     l2r
3372                   =>iso-ir      177
3373                   mother        =ucs@gb))
3374   (make-charset '=ucs-bmp@gb
3375                 "ISO/IEC 10646 BMP for GB"
3376                 '(long-name     "BMP for GB"
3377                   chars         256
3378                   dimension     3
3379                   columns       2
3380                   graphic       2
3381                   direction     l2r
3382                   mother        =ucs@gb
3383                   min-code      #x0000
3384                   max-code      #xFFFF))
3385   (make-charset '=ucs@cns
3386                 "ISO/IEC 10646 for CNS 11643"
3387                 '(long-name     "UCS for CNS"
3388                   chars         256
3389                   dimension     3
3390                   columns       2
3391                   graphic       2
3392                   direction     l2r
3393                   =>iso-ir      177
3394                   mother        =ucs@unicode))
3395   (define-charset-alias 'ucs-cns '=ucs@cns)
3396   (make-charset '=ucs@cns/fw
3397                 "ISO/IEC 10646 for CNS 11643 with fullwidth"
3398                 '(long-name     "UCS for CNS-fullwidth"
3399                   chars         256
3400                   dimension     3
3401                   columns       2
3402                   graphic       2
3403                   direction     l2r
3404                   =>iso-ir      177
3405                   mother        =ucs@cns))
3406   (make-charset '=ucs-bmp@cns
3407                 "ISO/IEC 10646 BMP for CNS"
3408                 '(long-name     "BMP for CNS"
3409                   chars         256
3410                   dimension     3
3411                   columns       2
3412                   graphic       2
3413                   direction     l2r
3414                   mother        =ucs@cns
3415                   min-code      #x0000
3416                   max-code      #xFFFF))
3417   (make-charset '=ucs@jis
3418                 "ISO/IEC 10646 for JIS X0208/0212/0213"
3419                 '(long-name     "UCS for JIS"
3420                   chars         256
3421                   dimension     3
3422                   columns       2
3423                   graphic       2
3424                   direction     l2r
3425                   =>iso-ir      177
3426                   mother        =ucs@unicode))
3427   (define-charset-alias 'ucs-jis '=ucs@jis)
3428   (make-charset '=ucs@jis/fw
3429                 "ISO/IEC 10646 for JIS X0208/0212/0213 with fullwidth"
3430                 '(long-name     "UCS for JIS-fullwidth"
3431                   chars         256
3432                   dimension     3
3433                   columns       2
3434                   graphic       2
3435                   direction     l2r
3436                   =>iso-ir      177
3437                   mother        =ucs@jis))
3438   (make-charset '=ucs-bmp@jis
3439                 "ISO/IEC 10646 BMP for JIS"
3440                 '(long-name     "BMP for JIS"
3441                   chars         256
3442                   dimension     3
3443                   columns       2
3444                   graphic       2
3445                   direction     l2r
3446                   mother        =ucs@jis
3447                   min-code      #x0000
3448                   max-code      #xFFFF))
3449   ;; (make-charset '=ucs@jis/1983
3450   ;;               "ISO/IEC 10646 for JIS X 0208:1983"
3451   ;;               '(long-name     "UCS for JIS:1983"
3452   ;;                 chars         256
3453   ;;                 dimension     3
3454   ;;                 columns       2
3455   ;;                 graphic       2
3456   ;;                 direction     l2r
3457   ;;                 =>iso-ir      177
3458   ;;                 mother        =ucs@jis))
3459   (make-charset '=ucs@jis/1990
3460                 "ISO/IEC 10646 for JIS X 0208/0212:1990"
3461                 '(long-name     "UCS for JIS:1990"
3462                   chars         256
3463                   dimension     3
3464                   columns       2
3465                   graphic       2
3466                   direction     l2r
3467                   =>iso-ir      177
3468                   mother        =ucs@jis))
3469   (define-charset-alias '=ucs@jis-1990 '=ucs@jis/1990)
3470   (define-charset-alias '=ucs-jis-1990 '=ucs@jis/1990)
3471   (make-charset '=ucs@jis/2000
3472                 "ISO/IEC 10646 for JIS X 0213:2000"
3473                 '(long-name     "UCS for JIS:2000"
3474                   chars         256
3475                   dimension     3
3476                   columns       2
3477                   graphic       2
3478                   direction     l2r
3479                   =>iso-ir      177
3480                   mother        =ucs@jis))
3481   (define-charset-alias '=ucs@jis-2000 '=ucs@jis/2000)
3482   (define-charset-alias '=ucs-jis-2000 '=ucs@jis/2000)
3483   (make-charset '=ucs@jis/2004
3484                 "ISO/IEC 10646 for JIS X 0213:2004"
3485                 '(long-name     "UCS for JIS:2004"
3486                   chars         256
3487                   dimension     3
3488                   columns       2
3489                   graphic       2
3490                   direction     l2r
3491                   =>iso-ir      177
3492                   mother        =ucs@jis))
3493   (make-charset '=ucs@JP
3494                 "UCS for common glyphs used in Japan"
3495                 '(long-name     "UCS for Japan"
3496                   chars         256
3497                   dimension     3
3498                   columns       2
3499                   graphic       2
3500                   direction     l2r
3501                   =>iso-ir      177
3502                   mother        =ucs@jis/2004))
3503   (define-charset-alias '=ucs@jp '=ucs@JP)
3504   (make-charset '=ucs@JP/hanazono
3505                 "Japanese glyph-images of Hanazono Mincho"
3506                 '(long-name     "UCS for Hana-Min"
3507                   chars         256
3508                   dimension     3
3509                   columns       2
3510                   graphic       2
3511                   direction     l2r
3512                   =>iso-ir      177
3513                   mother        =ucs@JP))
3514   (make-charset '=ucs@ks
3515                 "ISO/IEC 10646 for Korean Standards"
3516                 '(long-name     "UCS for KS"
3517                   chars         256
3518                   dimension     3
3519                   columns       2
3520                   graphic       2
3521                   direction     l2r
3522                   =>iso-ir      177
3523                   mother        =ucs@unicode))
3524   (define-charset-alias 'ucs-ks '=ucs@ks)
3525   (make-charset '=ucs@ks/2012
3526                 "Mapping for Korean Standards in ISO/IEC 10646:2012"
3527                 '(long-name     "UCS:2012 for KS"
3528                   chars         256
3529                   dimension     3
3530                   columns       2
3531                   graphic       2
3532                   direction     l2r
3533                   =>iso-ir      177
3534                   mother        =ucs@ks))
3535   (make-charset '=ucs-bmp@ks
3536                 "ISO/IEC 10646 BMP for KS"
3537                 '(long-name     "BMP for KS"
3538                   chars         256
3539                   dimension     3
3540                   columns       2
3541                   graphic       2
3542                   direction     l2r
3543                   mother        =ucs@ks
3544                   min-code      #x0000
3545                   max-code      #xFFFF))
3546   (make-charset '=ucs@cns11643
3547                 "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw"
3548                 '(long-name     "UCS for CNS11643"
3549                   chars         256
3550                   dimension     3
3551                   columns       2
3552                   graphic       2
3553                   direction     l2r
3554                   =>iso-ir      177
3555                   mother        =ucs@cns))
3556   (make-charset '=ucs@big5
3557                 "ISO/IEC 10646 for Big5"
3558                 '(long-name     "UCS for Big5"
3559                   chars         256
3560                   dimension     3
3561                   columns       2
3562                   graphic       2
3563                   direction     l2r
3564                   =>iso-ir      177
3565                   mother        =ucs@cns
3566                   ;; mother     =>>ucs@cns
3567                   ))
3568   (define-charset-alias 'ucs-big5 '=ucs@big5)
3569   (make-charset '=ucs@big5/cns11643
3570                 "ISO/IEC 10646 for Big5 based on www.cns11643.gov.tw"
3571                 '(long-name     "UCS for Big5@CNS11643"
3572                   chars         256
3573                   dimension     3
3574                   columns       2
3575                   graphic       2
3576                   direction     l2r
3577                   =>iso-ir      177
3578                   mother        =ucs@big5))
3579
3580   (make-charset '=>>ucs@iso
3581                 "Representative abstract-glyphs of ISO/IEC 10646"
3582                 '(long-name     "UCS abstract glyphs for UCS"
3583                   chars         256
3584                   dimension     3
3585                   columns       2
3586                   graphic       2
3587                   direction     l2r
3588                   =>iso-ir      177
3589                   mother        =ucs@iso))
3590   (make-charset '=>>ucs@unicode
3591                 "Representative abstract-glyphs of Unicode"
3592                 '(long-name     "Unicode abstract glyphs"
3593                   chars         256
3594                   dimension     3
3595                   columns       2
3596                   graphic       2
3597                   direction     l2r
3598                   =>iso-ir      177
3599                   mother        =>>ucs@iso))
3600   (make-charset '=>>ucs@jis
3601                 "UCS Representative abstract-glyphs for JIS X0208/0212/0213"
3602                 '(long-name     "UCS abstract glyphs for JIS"
3603                   chars         256
3604                   dimension     3
3605                   columns       2
3606                   graphic       2
3607                   direction     l2r
3608                   =>iso-ir      177
3609                   mother        =>>ucs@unicode))
3610   (make-charset '=>>ucs@jis/1990
3611                 "UCS Representative glyphs for JIS X 0208/0212:1990"
3612                 '(long-name     "UCS glyphs for JIS:1990"
3613                   chars         256
3614                   dimension     3
3615                   columns       2
3616                   graphic       2
3617                   direction     l2r
3618                   =>iso-ir      177
3619                   mother        =>>ucs@jis))
3620   (make-charset '=>>ucs@jis/2000
3621                 "UCS Representative glyphs for JIS X 0213:2000"
3622                 '(long-name     "UCS glyphs for JIS:2000"
3623                   chars         256
3624                   dimension     3
3625                   columns       2
3626                   graphic       2
3627                   direction     l2r
3628                   =>iso-ir      177
3629                   mother        =>>ucs@jis))
3630   (make-charset '=>>ucs@jis/2004
3631                 "UCS Representative glyphs for JIS X 0213:2004"
3632                 '(long-name     "UCS glyphs for JIS:2004"
3633                   chars         256
3634                   dimension     3
3635                   columns       2
3636                   graphic       2
3637                   direction     l2r
3638                   =>iso-ir      177
3639                   mother        =>>ucs@jis))
3640   (make-charset '=>>ucs@JP
3641                 "UCS abstract-glyphs based on Japanese style glyphs"
3642                 '(long-name     "UCS glyphs for JP"
3643                   chars         256
3644                   dimension     3
3645                   columns       2
3646                   graphic       2
3647                   direction     l2r
3648                   =>iso-ir      177
3649                   mother        =>>ucs@jis/2004))
3650   (make-charset '=>>ucs@ks
3651                 "UCS Representative glyphs for Korean Standards"
3652                 '(long-name     "UCS glyphs for KS"
3653                   chars         256
3654                   dimension     3
3655                   columns       2
3656                   graphic       2
3657                   direction     l2r
3658                   =>iso-ir      177
3659                   mother        =>>ucs@unicode))
3660   (make-charset '=>>ucs@cns
3661                 "UCS Representative glyphs for CNS 11643 sources"
3662                 '(long-name     "UCS glyphs for CNS"
3663                   chars         256
3664                   dimension     3
3665                   columns       2
3666                   graphic       2
3667                   direction     l2r
3668                   =>iso-ir      177
3669                   mother        =>>ucs@unicode))
3670
3671   (make-charset '==ucs@iso
3672                 "Representative glyph-forms of ISO/IEC 10646."
3673                 '(long-name     "UCS glyph-forms for UCS"
3674                   chars         256
3675                   dimension     3
3676                   columns       2
3677                   graphic       2
3678                   direction     l2r
3679                   =>iso-ir      177
3680                   mother        =>>ucs@iso))
3681   (define-charset-alias '=>>>ucs@iso '==ucs@iso)
3682   (make-charset '==ucs@unicode
3683                 "Representative glyph-forms of Unicode."
3684                 '(long-name     "UCS glyph-forms for Unicode"
3685                   chars         256
3686                   dimension     3
3687                   columns       2
3688                   graphic       2
3689                   direction     l2r
3690                   =>iso-ir      177
3691                   mother        ==ucs@iso))
3692   (define-charset-alias '=>>>ucs@unicode '==ucs@unicode)
3693   (make-charset '==ucs@gb
3694                 "ISO/IEC 10646 for GB"
3695                 '(long-name     "UCS for GB"
3696                   chars         256
3697                   dimension     3
3698                   columns       2
3699                   graphic       2
3700                   direction     l2r
3701                   =>iso-ir      177
3702                   mother        ==ucs@unicode))
3703   (make-charset '==ucs-bmp@gb
3704                 "ISO/IEC 10646 BMP for GB"
3705                 '(long-name     "BMP for GB"
3706                   chars         256
3707                   dimension     3
3708                   columns       2
3709                   graphic       2
3710                   direction     l2r
3711                   mother        ==ucs@gb
3712                   min-code      #x0000
3713                   max-code      #xFFFF))
3714   (make-charset '==ucs@cns
3715                 "UCS Representative glyph-forms for CNS 11643 sources."
3716                 '(long-name     "UCS glyph-forms for CNS"
3717                   chars         256
3718                   dimension     3
3719                   columns       2
3720                   graphic       2
3721                   direction     l2r
3722                   =>iso-ir      177
3723                   mother        ==ucs@unicode))
3724   (define-charset-alias '=>>>ucs@cns '==ucs@cns)
3725   (make-charset '==ucs-bmp@cns
3726                 "ISO/IEC 10646 BMP for CNS"
3727                 '(long-name     "BMP for CNS"
3728                   chars         256
3729                   dimension     3
3730                   columns       2
3731                   graphic       2
3732                   direction     l2r
3733                   mother        ==ucs@cns
3734                   min-code      #x0000
3735                   max-code      #xFFFF))
3736   (make-charset '==ucs@jis
3737                 "UCS Representative glyph-forms for JIS X0208/0212/0213."
3738                 '(long-name     "UCS glyph-forms for JIS"
3739                   chars         256
3740                   dimension     3
3741                   columns       2
3742                   graphic       2
3743                   direction     l2r
3744                   =>iso-ir      177
3745                   mother        ==ucs@unicode))
3746   (define-charset-alias '=>>>ucs@jis '==ucs@jis)
3747   (make-charset '==ucs@jis/1990
3748                 "UCS Representative glyph-forms for JIS X 0208/0212:1990."
3749                 '(long-name     "UCS glyph-forms for JIS:1990"
3750                   chars         256
3751                   dimension     3
3752                   columns       2
3753                   graphic       2
3754                   direction     l2r
3755                   =>iso-ir      177
3756                   mother        ==ucs@jis))
3757   (define-charset-alias '=>>>ucs@jis/1990 '==ucs@jis/1990)
3758   (make-charset '==ucs@jis/2000
3759                 "UCS Representative glyph-forms for JIS X 0213:2000."
3760                 '(long-name     "UCS glyph-forms for JIS:2000"
3761                   chars         256
3762                   dimension     3
3763                   columns       2
3764                   graphic       2
3765                   direction     l2r
3766                   =>iso-ir      177
3767                   mother        ==ucs@jis))
3768   (define-charset-alias '=>>>ucs@jis/2000 '==ucs@jis/2000)
3769   (make-charset '==ucs@jis/2004
3770                 "UCS Representative glyph-forms for JIS X 0213:2004."
3771                 '(long-name     "UCS glyph-forms for JIS:2004"
3772                   chars         256
3773                   dimension     3
3774                   columns       2
3775                   graphic       2
3776                   direction     l2r
3777                   =>iso-ir      177
3778                   mother        ==ucs@jis))
3779   (define-charset-alias '=>>>ucs@jis/2004 '==ucs@jis/2004)
3780   (make-charset '==ucs@JP
3781                 "UCS for common glyph-forms used in Japan."
3782                 '(long-name     "UCS for Japan"
3783                   chars         256
3784                   dimension     3
3785                   columns       2
3786                   graphic       2
3787                   direction     l2r
3788                   =>iso-ir      177
3789                   mother        ==ucs@jis/2004))
3790   (make-charset '==ucs@JP/hanazono
3791                 "Japanese glyph-forms of Hanazono Mincho."
3792                 '(long-name     "UCS for Hana-Min"
3793                   chars         256
3794                   dimension     3
3795                   columns       2
3796                   graphic       2
3797                   direction     l2r
3798                   =>iso-ir      177
3799                   mother        ==ucs@JP))
3800   (make-charset '==ucs@ks
3801                 "UCS Representative glyph-forms for Korean Standards."
3802                 '(long-name     "UCS glyph-forms for KS"
3803                   chars         256
3804                   dimension     3
3805                   columns       2
3806                   graphic       2
3807                   direction     l2r
3808                   =>iso-ir      177
3809                   mother        ==ucs@unicode))
3810   (define-charset-alias '=>>>ucs@ks '==ucs@ks)
3811   (make-charset '==ucs-bmp@ks
3812                 "ISO/IEC 10646 BMP for KS."
3813                 '(long-name     "BMP for KS"
3814                   chars         256
3815                   dimension     3
3816                   columns       2
3817                   graphic       2
3818                   direction     l2r
3819                   mother        ==ucs@ks
3820                   min-code      #x0000
3821                   max-code      #xFFFF))
3822   (make-charset '==ucs@cns11643
3823                 "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw."
3824                 '(long-name     "UCS for CNS11643"
3825                   chars         256
3826                   dimension     3
3827                   columns       2
3828                   graphic       2
3829                   direction     l2r
3830                   =>iso-ir      177
3831                   mother        ==ucs@cns))
3832
3833   (make-charset '===ucs@iso
3834                 "ISO/IEC 10646-2 representative glyph-images."
3835                 '(long-name     "ISO rep-images for UCS"
3836                   chars         256
3837                   dimension     3
3838                   columns       2
3839                   graphic       2
3840                   direction     l2r
3841                   =>iso-ir      177
3842                   mother        ==ucs@iso))
3843   (make-charset '===ucs@unicode
3844                 "Unicode for its representative glyph-images."
3845                 '(long-name     "UCS for Unicode"
3846                   chars         256
3847                   dimension     3
3848                   columns       2
3849                   graphic       2
3850                   direction     l2r
3851                   =>iso-ir      177
3852                   mother        ==ucs@unicode))
3853   (make-charset '===ucs@gb
3854                 "UCS representative glyph-images of GB."
3855                 '(long-name     "UCS rep-images for GB"
3856                   chars         256
3857                   dimension     3
3858                   columns       2
3859                   graphic       2
3860                   direction     l2r
3861                   =>iso-ir      177
3862                   mother        ===ucs@unicode))
3863   (make-charset '===ucs@ks
3864                 "UCS representative glyph-images of Korean Standards."
3865                 '(long-name     "UCS rep-images for KS"
3866                   chars         256
3867                   dimension     3
3868                   columns       2
3869                   graphic       2
3870                   direction     l2r
3871                   =>iso-ir      177
3872                   mother        ==ucs@ks))
3873
3874   (make-charset '=ucs-var-001
3875                 "uXXXX-var-001 glyph-images of GlyphWiki"
3876                 '(long-name     "UCS-var-001"
3877                   chars         256
3878                   dimension     3
3879                   columns       2
3880                   graphic       2
3881                   direction     l2r
3882                   ;; =>iso-ir   177
3883                   mother        =ucs))
3884   (make-charset '=ucs-bmp-var-001
3885                 "uXXXX-var-001 glyph-images in BMP"
3886                 '(long-name     "UCS-BMP-var-001"
3887                   chars         256
3888                   dimension     2
3889                   columns       2
3890                   graphic       2
3891                   direction     l2r
3892                   ;; =>iso-ir   177
3893                   mother        =ucs-var-001
3894                   min-code #x2E00
3895                   max-code #x9FCC
3896                   registry "ucs\\.var001-0"))
3897   (make-charset '=ucs-var-002
3898                 "uXXXX-var-002 glyph-images of GlyphWiki"
3899                 '(long-name     "UCS-var-002"
3900                   chars         256
3901                   dimension     3
3902                   columns       2
3903                   graphic       2
3904                   direction     l2r
3905                   ;; =>iso-ir   177
3906                   mother        =ucs))
3907   (make-charset '=ucs-bmp-var-002
3908                 "uXXXX-var-002 glyph-images in BMP"
3909                 '(long-name     "UCS-BMP-var-002"
3910                   chars         256
3911                   dimension     2
3912                   columns       2
3913                   graphic       2
3914                   direction     l2r
3915                   ;; =>iso-ir   177
3916                   mother        =ucs-var-002
3917                   min-code #x2E00
3918                   max-code #x9FCC
3919                   registry "ucs\\.var002-0"))
3920   (make-charset '=ucs-var-003
3921                 "uXXXX-var-003 glyph-images of GlyphWiki"
3922                 '(long-name     "UCS-var-003"
3923                   chars         256
3924                   dimension     3
3925                   columns       2
3926                   graphic       2
3927                   direction     l2r
3928                   ;; =>iso-ir   177
3929                   mother        =ucs))
3930   (make-charset '=ucs-bmp-var-003
3931                 "uXXXX-var-003 glyph-images in BMP"
3932                 '(long-name     "UCS-BMP-var-003"
3933                   chars         256
3934                   dimension     2
3935                   columns       2
3936                   graphic       2
3937                   direction     l2r
3938                   ;; =>iso-ir   177
3939                   mother        =ucs-var-003
3940                   min-code #x2E00
3941                   max-code #x9FCC
3942                   registry "ucs\\.var003-0"))
3943   (make-charset '=ucs-itaiji-002
3944                 "uXXXX-itaiji-002 glyphs of GlyphWiki"
3945                 '(long-name     "UCS-itaiji-002"
3946                   chars         256
3947                   dimension     3
3948                   columns       2
3949                   graphic       2
3950                   direction     l2r
3951                   ;; =>iso-ir   177
3952                   mother        =ucs))
3953   (make-charset '=ucs-bmp-itaiji-002
3954                 "uXXXX-itaiji-002 glyph-images in BMP"
3955                 '(long-name     "UCS-BMP-itaiji-002"
3956                   chars         256
3957                   dimension     2
3958                   columns       2
3959                   graphic       2
3960                   direction     l2r
3961                   ;; =>iso-ir   177
3962                   mother        =ucs-itaiji-002
3963                   min-code #x2E00
3964                   max-code #x9FCC
3965                   registry "ucs\\.itaiji002-0"))
3966   (make-charset '=ucs-itaiji-084
3967                 "uXXXX-itaiji-084 glyph-images of GlyphWiki"
3968                 '(long-name     "UCS-itaiji-084"
3969                   chars         256
3970                   dimension     3
3971                   columns       2
3972                   graphic       2
3973                   direction     l2r
3974                   ;; =>iso-ir   177
3975                   mother        =ucs))
3976   (make-charset '=ucs-bmp-itaiji-084
3977                 "uXXXX-itaiji-084 glyph-images in BMP"
3978                 '(long-name     "UCS-BMP-itaiji-084"
3979                   chars         256
3980                   dimension     2
3981                   columns       2
3982                   graphic       2
3983                   direction     l2r
3984                   ;; =>iso-ir   177
3985                   mother        =ucs-itaiji-084
3986                   min-code #x2E00
3987                   max-code #x9FCC
3988                   registry "ucs\\.itaiji084-0"))
3989
3990   (make-charset
3991    '=ucs-radicals
3992    "CJK Radicals of UCS"
3993    '(long-name "UCS-Radicals"
3994                chars 256
3995                dimension 2
3996                columns 2
3997                graphic 2
3998                direction l2r
3999                registry "-zhRadicals-.*-ucs-0"
4000                mother ucs-bmp
4001                min-code #x2E00 max-code #x2FFF))
4002   (make-charset
4003    '=ucs-radicals@unicode
4004    "CJK Radicals of UCS"
4005    '(long-name "UCS-Radicals"
4006                chars 256
4007                dimension 2
4008                columns 2
4009                graphic 2
4010                direction l2r
4011                registry "-zhRadicals-.*-ucs-0"
4012                mother =ucs@unicode
4013                min-code #x2E00 max-code #x2FFF))
4014   (make-charset
4015    '==ucs-radicals@unicode
4016    "CJK Radicals of UCS"
4017    '(long-name "UCS-Radicals"
4018                chars 256
4019                dimension 2
4020                columns 2
4021                graphic 2
4022                direction l2r
4023                registry "-zhRadicals-.*-ucs-0"
4024                mother ==ucs@unicode
4025                min-code #x2E00 max-code #x2FFF))
4026   (make-charset
4027    '=ucs-hangul
4028    "Hangul Syllables of UCS"
4029    '(long-name "UCS-Hangul-Syllables"
4030                chars 256
4031                dimension 2
4032                columns 2
4033                graphic 2
4034                direction l2r
4035                registry "-Hangul-.*-ucs-0"
4036                mother =ucs
4037                min-code #xAC00 max-code #xD7AF))
4038   (make-charset
4039    '=ucs-bmp-cjk
4040    "CJK Characters in BMP of UCS"
4041    '(long-name "UCS-BMP-CJK"
4042                chars 256
4043                dimension 2
4044                columns 2
4045                graphic 2
4046                direction l2r
4047                registry "-zh-.*-ucs-0"
4048                mother ucs-bmp
4049                min-code #x2E00
4050                max-code #x9FA5
4051                ;; max-code #x9FCC
4052                ;; max-code #xA4CF
4053                ))
4054   (make-charset
4055    '=ucs-bmp-cjk@gb
4056    "CJK Characters in BMP with GB representative glyph-images."
4057    '(long-name "CJK in BMP@GB"
4058                chars 256
4059                dimension 2
4060                columns 2
4061                graphic 2
4062                direction l2r
4063                registry "-zh-.*-ucs-0"
4064                mother =ucs@gb
4065                min-code #x2E00
4066                max-code #x9FA5
4067                ;; max-code #x9FCC
4068                ;; max-code #xA4CF
4069                ))
4070   (make-charset
4071    '==ucs-bmp-cjk@gb
4072    "CJK Characters in BMP with GB representative glyph-images."
4073    '(long-name "CJK in BMP@GB"
4074                chars 256
4075                dimension 2
4076                columns 2
4077                graphic 2
4078                direction l2r
4079                registry "-zh-.*-ucs-0"
4080                mother ==ucs@gb
4081                min-code #x2E00
4082                max-code #x9FA5
4083                ;; max-code #x9FCC
4084                ;; max-code #xA4CF
4085                ))
4086   (make-charset
4087    '===ucs-bmp-cjk@gb
4088    "CJK Characters in BMP with GB representative glyph-images."
4089    '(long-name "CJK in BMP@GB"
4090                chars 256
4091                dimension 2
4092                columns 2
4093                graphic 2
4094                direction l2r
4095                registry "-zh-.*-ucs-0"
4096                mother ===ucs@gb
4097                min-code #x2E00
4098                max-code #x9FA5
4099                ;; max-code #x9FCC
4100                ;; max-code #xA4CF
4101                ))
4102   (make-charset
4103    '=ucs-bmp-cjk@JP
4104    "CJK Characters in BMP with JIS representative glyphs"
4105    '(long-name "CJK in BMP@JP"
4106                chars 256
4107                dimension 2
4108                columns 2
4109                graphic 2
4110                direction l2r
4111                registry "-ja-.*-ucs-0"
4112                mother =ucs@JP
4113                min-code #x2E00
4114                max-code #x9FCC
4115                ;; max-code #xA4CF
4116                ))
4117   (make-charset
4118    '=ucs-bmp-cjk@JP/hanazono
4119    "CJK Characters in BMP with Hanazono font"
4120    '(long-name "CJK in BMP@JP/Hanazono"
4121                chars 256
4122                dimension 2
4123                columns 2
4124                graphic 2
4125                direction l2r
4126                registry "-ja-.*-ucs-0"
4127                mother =ucs@JP/hanazono
4128                min-code #x2E00
4129                max-code #x9FCC
4130                ;; max-code #xA4CF
4131                ))
4132   (make-charset
4133    '==ucs-bmp-cjk@JP/hanazono
4134    "CJK Characters in BMP with Hanazono font"
4135    '(long-name "CJK in BMP@JP/Hanazono"
4136                chars 256
4137                dimension 2
4138                columns 2
4139                graphic 2
4140                direction l2r
4141                registry "-ja-.*-ucs-0"
4142                mother ==ucs@JP/hanazono
4143                min-code #x2E00
4144                max-code #x9FCC
4145                ;; max-code #xA4CF
4146                ))
4147   (make-charset
4148    '=+>ucs-bmp-cjk@unicode
4149    "Unicode representative characters of CJK Unified Ideographs in BMP"
4150    '(long-name "Unicode-BMP-CJK unified abstract glyphs"
4151                chars 256
4152                dimension 2
4153                columns 2
4154                graphic 2
4155                direction l2r
4156                registry "-zh-.*-ucs-0"
4157                mother =+>ucs@unicode
4158                min-code #x2E00
4159                max-code #x9FA5
4160                ;; max-code #x9FCC
4161                ;; max-code #xA4CF
4162                ))
4163   (make-charset
4164    '=>ucs-bmp-cjk@unicode
4165    "Unicode representative characters of CJK Unified Ideographs in BMP"
4166    '(long-name "Unicode-BMP-CJK"
4167                chars 256
4168                dimension 2
4169                columns 2
4170                graphic 2
4171                direction l2r
4172                registry "-zh-.*-ucs-0"
4173                mother =>ucs@unicode
4174                min-code #x2E00
4175                max-code #x9FA5
4176                ;; max-code #x9FCC
4177                ;; max-code #xA4CF
4178                ))
4179   (make-charset
4180    '=>ucs-bmp-cjk@component
4181    "CJK Characters in BMP for IWDS-1 abstract components."
4182    '(long-name "CJK in BMP@component"
4183                chars 256
4184                dimension 2
4185                columns 2
4186                graphic 2
4187                direction l2r
4188                registry "-ja-.*-ucs-0"
4189                mother =>ucs@component
4190                min-code #x2E00
4191                max-code #x9FCC
4192                ;; max-code #xA4CF
4193                ))
4194   (make-charset
4195    '==>ucs-bmp-cjk@bucs
4196    "CJK Characters in BMP of BUCS"
4197    '(long-name "BUCS-BMP-CJK"
4198                chars 256
4199                dimension 2
4200                columns 2
4201                graphic 2
4202                direction l2r
4203                registry "-zh-.*-ucs-0"
4204                mother ==>ucs@bucs
4205                min-code #x2E00
4206                max-code #x9FA5
4207                ;; max-code #x9FCC
4208                ;; max-code #xA4CF
4209                ))
4210   (make-charset
4211    '=ucs-bmp-cjk-compat
4212    "CJK Compatibility Ideographs in BMP of UCS"
4213    '(long-name "CJK Compatibility Ideographs"
4214                chars 256
4215                dimension 2
4216                columns 2
4217                graphic 2
4218                direction l2r
4219                registry "-ja-.*-ucs-0"
4220                mother ucs-bmp
4221                min-code #xF900
4222                max-code #xFAFF
4223                ))
4224   (make-charset
4225    '=ucs-bmp-cjk-compat@unicode
4226    "CJK Compatibility Ideographs of Unicode representatives"
4227    '(long-name "CJK Compatibility Ideographs of Unicode"
4228                chars 256
4229                dimension 2
4230                columns 2
4231                graphic 2
4232                direction l2r
4233                registry "-ja-.*-ucs-0"
4234                mother =ucs@unicode
4235                min-code #xF900
4236                max-code #xFAFF
4237                ))
4238   (make-charset
4239    '=+>ucs-bmp-cjk-compat@jis
4240    "CJK Compatibility Ideographs of JIS representatives unified glyphs"
4241    '(long-name "JIS unified glyphs for CJK Compat chars"
4242                chars 256
4243                dimension 2
4244                columns 2
4245                graphic 2
4246                direction l2r
4247                registry "-ja-.*-ucs-0"
4248                mother =+>ucs@jis
4249                min-code #xF900
4250                max-code #xFAFF
4251                ))
4252   (make-charset
4253    '=ucs-sip-ext-b
4254    "CJK Ideographs Extension B"
4255    '(long-name "UCS CJK Ext-B"
4256                chars 256
4257                dimension 2
4258                columns 2
4259                graphic 2
4260                direction l2r
4261                registry "\\(iso10646\\|ucs00\\)-2$"
4262                mother ucs
4263                min-code #x20000 max-code #x2A6D6
4264                code-offset #x20000))
4265   (make-charset
4266    '=ucs-sip@iso
4267    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
4268    '(long-name "UCS CJK Ext-B"
4269                chars 256
4270                dimension 2
4271                columns 2
4272                graphic 2
4273                direction l2r
4274                registry "ucs00-2$"
4275                mother =ucs@iso
4276                min-code #x20000 max-code #x2FFFF
4277                code-offset #x20000))
4278   (make-charset
4279    '=ucs-sip-ext-b@iso
4280    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
4281    '(long-name "UCS CJK Ext-B"
4282                chars 256
4283                dimension 2
4284                columns 2
4285                graphic 2
4286                direction l2r
4287                registry "\\(iso10646\\|ucs00\\)-2$"
4288                mother =ucs@iso
4289                min-code #x20000 max-code #x2A6D6
4290                code-offset #x20000))
4291   (make-charset
4292    '==ucs-sip@iso
4293    "ISO representative abstract-glyph-images of ISO/IEC 10646 Plane 2"
4294    '(long-name "SIP abstract glyph-images"
4295                chars 256
4296                dimension 2
4297                columns 2
4298                graphic 2
4299                direction l2r
4300                registry "\\(ucs00\\)-2$"
4301                mother ==ucs@iso
4302                code-offset #x20000))
4303   (make-charset
4304    '==ucs-sip-ext-b@iso
4305    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
4306    '(long-name "UCS CJK Ext-B"
4307                chars 256
4308                dimension 2
4309                columns 2
4310                graphic 2
4311                direction l2r
4312                registry "\\(iso10646\\|ucs00\\)-2$"
4313                mother ==ucs@iso
4314                min-code #x20000 max-code #x2A6D6
4315                code-offset #x20000))
4316   (make-charset
4317    '===ucs-sip@iso
4318    "ISO representative glyph-images of ISO/IEC 10646 Plane 2"
4319    '(long-name "SIP rep-glyph-images"
4320                chars 256
4321                dimension 2
4322                columns 2
4323                graphic 2
4324                direction l2r
4325                registry "\\(ucs00\\)-2$"
4326                mother ===ucs@iso
4327                code-offset #x20000))
4328   (make-charset
4329    '===ucs-sip-ext-b@iso
4330    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
4331    '(long-name "UCS CJK Ext-B"
4332                chars 256
4333                dimension 2
4334                columns 2
4335                graphic 2
4336                direction l2r
4337                registry "\\(iso10646\\|ucs00\\)-2$"
4338                mother ===ucs@iso
4339                min-code #x20000 max-code #x2A6D6
4340                code-offset #x20000))
4341   )
4342
4343 ;;; mule-conf.el ends here