07702403541a887eb10729e1bc4f18057f30379f
[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, 2016, 2017, 2018
7 ;;   MORIOKA Tomohiko
8
9 ;; Keywords: mule, multilingual, character set, coding system
10
11 ;; This file is part of XEmacs.
12
13 ;; XEmacs is free software; you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by
15 ;; the Free Software Foundation; either version 2, or (at your option)
16 ;; any later version.
17
18 ;; XEmacs is distributed in the hope that it will be useful,
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
21 ;; GNU General Public License for more details.
22
23 ;; You should have received a copy of the GNU General Public License
24 ;; along with XEmacs; see the file COPYING.  If not, write to the
25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
26 ;; Boston, MA 02111-1307, USA.
27
28 ;;; Code:
29
30 (cond
31  ((featurep 'utf-2000)
32   (make-charset
33    '=adobe-japan1-base
34    "Adobe-Japan1 Character Collection for CID-Keyed Fonts"
35    `(long-name "Adobe-Japan1"
36                chars 256
37                dimension 2
38                columns 2
39                graphic 2
40                direction l2r
41                registry "AdobeJapan1-[0-6]$"
42                min-code     #xE10000
43                max-code ,(+ #xE10000 23057)
44                code-offset  #xE10000
45                ;; min-code      ,(lsh #x6300 16)
46                ;; max-code      ,(+ (lsh #x6300 16) 23057)
47                ;; code-offset   ,(lsh #x6300 16)
48                ))
49   (make-charset
50    '=adobe-japan1-0
51    "Adobe-Japan1-0 Character Collection for CID-Keyed Fonts"
52    '(long-name "Adobe-Japan1-0"
53                chars 256
54                dimension 2
55                columns 2
56                graphic 2
57                direction l2r
58                mother =adobe-japan1-base
59                min-code 0
60                max-code 8283
61                registry "AdobeJapan1-[0-6]$"))
62   (make-charset
63    '=adobe-japan1-1
64    "Adobe-Japan1-1 Character Collection for CID-Keyed Fonts"
65    '(long-name "Adobe-Japan1-1"
66                chars 256
67                dimension 2
68                columns 2
69                graphic 2
70                direction l2r
71                mother =adobe-japan1-0
72                min-code 0
73                max-code 8358
74                registry "AdobeJapan1-[1-6]$"))
75   (make-charset
76    '=adobe-japan1-2
77    "Adobe-Japan1-2 Character Collection for CID-Keyed Fonts"
78    '(long-name "Adobe-Japan1-2"
79                chars 256
80                dimension 2
81                columns 2
82                graphic 2
83                direction l2r
84                mother =adobe-japan1-1
85                min-code 0
86                max-code 8719
87                registry "AdobeJapan1-[2-6]$"))
88   (make-charset
89    '=adobe-japan1-3
90    "Adobe-Japan1-3 Character Collection for CID-Keyed Fonts"
91    '(long-name "Adobe-Japan1-3"
92                chars 256
93                dimension 2
94                columns 2
95                graphic 2
96                direction l2r
97                mother =adobe-japan1-2
98                min-code 0
99                max-code 9353
100                registry "AdobeJapan1-[3-6]$"))
101   (make-charset
102    '=adobe-japan1-4
103    "Adobe-Japan1-4 Character Collection for CID-Keyed Fonts"
104    '(long-name "Adobe-Japan1-4"
105                chars 256
106                dimension 2
107                columns 2
108                graphic 2
109                direction l2r
110                mother =adobe-japan1-3
111                min-code 0
112                max-code 15443
113                registry "AdobeJapan1-[4-6]$"))
114   (make-charset
115    '=adobe-japan1-5
116    "Adobe-Japan1-5 Character Collection for CID-Keyed Fonts"
117    '(long-name "Adobe-Japan1-5"
118                chars 256
119                dimension 2
120                columns 2
121                graphic 2
122                direction l2r
123                mother =adobe-japan1-4
124                min-code 0
125                max-code 20316
126                registry "AdobeJapan1-[5-6]$"))
127   (make-charset
128    '=adobe-japan1-6
129    "Adobe-Japan1-6 Character Collection for CID-Keyed Fonts"
130    '(long-name "Adobe-Japan1-6"
131                chars 256
132                dimension 2
133                columns 2
134                graphic 2
135                direction l2r
136                mother =adobe-japan1-5
137                min-code 0
138                max-code 23057
139                registry "AdobeJapan1-6$"))
140   (define-charset-alias '=adobe-japan1 '=adobe-japan1-6)
141
142   (make-charset
143    '==adobe-japan1-0
144    "Adobe-Japan1-0 abstract glyph-forms."
145    '(long-name "Adobe-Japan1-0 abstract glyph-forms"
146                chars 256
147                dimension 2
148                columns 2
149                graphic 2
150                direction l2r
151                mother =adobe-japan1-0
152                registry "AdobeJapan1-0$"))
153   (make-charset
154    '==adobe-japan1-1
155    "Adobe-Japan1-1 abstract glyph-forms."
156    '(long-name "Adobe-Japan1-1 abstract glyph-forms"
157                chars 256
158                dimension 2
159                columns 2
160                graphic 2
161                direction l2r
162                mother ==adobe-japan1-0
163                registry "AdobeJapan1-1$"))
164   (make-charset
165    '==adobe-japan1-2
166    "Adobe-Japan1-2 abstract glyph-forms."
167    '(long-name "Adobe-Japan1-2 abstract glyph-forms"
168                chars 256
169                dimension 2
170                columns 2
171                graphic 2
172                direction l2r
173                mother ==adobe-japan1-1
174                registry "AdobeJapan1-2$"))
175   (make-charset
176    '==adobe-japan1-3
177    "Adobe-Japan1-3 abstract glyph-forms."
178    '(long-name "Adobe-Japan1-3 abstract glyph-forms"
179                chars 256
180                dimension 2
181                columns 2
182                graphic 2
183                direction l2r
184                mother ==adobe-japan1-2
185                registry "AdobeJapan1-3$"))
186   (make-charset
187    '==adobe-japan1-4
188    "Adobe-Japan1-4 abstract glyph-forms."
189    '(long-name "Adobe-Japan1-4 abstract glyph-forms"
190                chars 256
191                dimension 2
192                columns 2
193                graphic 2
194                direction l2r
195                mother ==adobe-japan1-3
196                registry "AdobeJapan1-4$"))
197   (make-charset
198    '==adobe-japan1-5
199    "Adobe-Japan1-5 abstract glyph-forms."
200    '(long-name "Adobe-Japan1-5 abstract glyph-forms"
201                chars 256
202                dimension 2
203                columns 2
204                graphic 2
205                direction l2r
206                mother ==adobe-japan1-4
207                registry "AdobeJapan1-5$"))
208   (make-charset
209    '==adobe-japan1-6
210    "Adobe-Japan1-6 abstract glyph-forms."
211    '(long-name "Adobe-Japan1-6 abstract glyph-forms"
212                chars 256
213                dimension 2
214                columns 2
215                graphic 2
216                direction l2r
217                mother ==adobe-japan1-5
218                registry "AdobeJapan1-6$"))
219   (define-charset-alias '==adobe-japan1 '==adobe-japan1-6)
220
221   (define-charset-alias '=>>>adobe-japan1-0 '==adobe-japan1-0)
222   (define-charset-alias '=>>>adobe-japan1-1 '==adobe-japan1-1)
223   (define-charset-alias '=>>>adobe-japan1-2 '==adobe-japan1-2)
224   (define-charset-alias '=>>>adobe-japan1-3 '==adobe-japan1-3)
225   (define-charset-alias '=>>>adobe-japan1-4 '==adobe-japan1-4)
226   (define-charset-alias '=>>>adobe-japan1-5 '==adobe-japan1-5)
227   (define-charset-alias '=>>>adobe-japan1-6 '==adobe-japan1-6)
228   (define-charset-alias '=>>>adobe-japan1 '=>>>adobe-japan1-6)
229
230   (make-charset
231    '===adobe-japan1-0
232    "Adobe-Japan1-0 detailed glyph-images."
233    '(long-name "Adobe-Japan1-0 glyph-images"
234                chars 256
235                dimension 2
236                columns 2
237                graphic 2
238                direction l2r
239                mother ==adobe-japan1-0
240                registry "AdobeJapan1-0$"))
241   (make-charset
242    '===adobe-japan1-1
243    "Adobe-Japan1-1 detailed glyph-images."
244    '(long-name "Adobe-Japan1-1 glyph-images"
245                chars 256
246                dimension 2
247                columns 2
248                graphic 2
249                direction l2r
250                mother ===adobe-japan1-0
251                registry "AdobeJapan1-1$"))
252   (make-charset
253    '===adobe-japan1-2
254    "Adobe-Japan1-2 detailed glyph-images."
255    '(long-name "Adobe-Japan1-2 glyph-images"
256                chars 256
257                dimension 2
258                columns 2
259                graphic 2
260                direction l2r
261                mother ===adobe-japan1-1
262                registry "AdobeJapan1-2$"))
263   (make-charset
264    '===adobe-japan1-3
265    "Adobe-Japan1-3 detailed glyph-images."
266    '(long-name "Adobe-Japan1-3 glyph-images"
267                chars 256
268                dimension 2
269                columns 2
270                graphic 2
271                direction l2r
272                mother ===adobe-japan1-2
273                registry "AdobeJapan1-3$"))
274   (make-charset
275    '===adobe-japan1-4
276    "Adobe-Japan1-4 detailed glyph-images."
277    '(long-name "Adobe-Japan1-4 glyph-images"
278                chars 256
279                dimension 2
280                columns 2
281                graphic 2
282                direction l2r
283                mother ===adobe-japan1-3
284                registry "AdobeJapan1-4$"))
285   (make-charset
286    '===adobe-japan1-5
287    "Adobe-Japan1-5 detailed glyph-images."
288    '(long-name "Adobe-Japan1-5 glyph-images"
289                chars 256
290                dimension 2
291                columns 2
292                graphic 2
293                direction l2r
294                mother ===adobe-japan1-4
295                registry "AdobeJapan1-5$"))
296   (make-charset
297    '===adobe-japan1-6
298    "Adobe-Japan1-6 detailed glyph-images."
299    '(long-name "Adobe-Japan1-6 glyph-images"
300                chars 256
301                dimension 2
302                columns 2
303                graphic 2
304                direction l2r
305                mother ===adobe-japan1-5
306                registry "AdobeJapan1-6$"))
307   (define-charset-alias '===adobe-japan1 '===adobe-japan1-6)
308
309   (make-charset
310    '=>>adobe-japan1-0
311    "Adobe-Japan1-0 abstract glyphs"
312    '(long-name "Adobe-Japan1-0 abstract glyphs"
313                chars 256
314                dimension 2
315                columns 2
316                graphic 2
317                direction l2r
318                mother =adobe-japan1
319                registry "AdobeJapan1-0$"))
320   (make-charset
321    '=>>adobe-japan1-1
322    "Adobe-Japan1-1 abstract glyphs"
323    '(long-name "Adobe-Japan1-1 abstract glyphs"
324                chars 256
325                dimension 2
326                columns 2
327                graphic 2
328                direction l2r
329                mother =>>adobe-japan1-0
330                registry "AdobeJapan1-1"))
331   (make-charset
332    '=>>adobe-japan1-2
333    "Adobe-Japan1-2 abstract glyphs"
334    '(long-name "Adobe-Japan1-2 abstract glyphs"
335                chars 256
336                dimension 2
337                columns 2
338                graphic 2
339                direction l2r
340                mother =>>adobe-japan1-1
341                registry "AdobeJapan1-2"))
342   (make-charset
343    '=>>adobe-japan1-3
344    "Adobe-Japan1-3 abstract glyphs"
345    '(long-name "Adobe-Japan1-3 abstract glyphs"
346                chars 256
347                dimension 2
348                columns 2
349                graphic 2
350                direction l2r
351                mother =>>adobe-japan1-2
352                registry "AdobeJapan1-3"))
353   (make-charset
354    '=>>adobe-japan1-4
355    "Adobe-Japan1-4 abstract glyphs"
356    '(long-name "Adobe-Japan1-4 abstract glyphs"
357                chars 256
358                dimension 2
359                columns 2
360                graphic 2
361                direction l2r
362                mother =>>adobe-japan1-3
363                registry "AdobeJapan1-4"))
364   (make-charset
365    '=>>adobe-japan1-5
366    "Adobe-Japan1-5 abstract glyphs"
367    '(long-name "Adobe-Japan1-5 abstract glyphs"
368                chars 256
369                dimension 2
370                columns 2
371                graphic 2
372                direction l2r
373                mother =>>adobe-japan1-4
374                registry "AdobeJapan1-5"))
375   (make-charset
376    '=>>adobe-japan1-6
377    "Adobe-Japan1-6 abstract glyphs"
378    '(long-name "Adobe-Japan1-6 abstract glyphs"
379                chars 256
380                dimension 2
381                columns 2
382                graphic 2
383                direction l2r
384                mother =>>adobe-japan1-5
385                registry "AdobeJapan1-6"))
386   (define-charset-alias '=>>adobe-japan1 '=>>adobe-japan1-6)
387
388   (make-charset
389    '=+>adobe-japan1-0
390    "Adobe-Japan1-0 unified abstract glyphs"
391    '(long-name "Adobe-Japan1-0 unified abstract glyphs"
392                chars 256
393                dimension 2
394                columns 2
395                graphic 2
396                direction l2r
397                mother =adobe-japan1
398                registry "AdobeJapan1-0$"))
399   (make-charset
400    '=+>adobe-japan1-1
401    "Adobe-Japan1-1 unified abstract glyphs"
402    '(long-name "Adobe-Japan1-1 unified abstract glyphs"
403                chars 256
404                dimension 2
405                columns 2
406                graphic 2
407                direction l2r
408                mother =+>adobe-japan1-0
409                registry "AdobeJapan1-1"))
410   (make-charset
411    '=+>adobe-japan1-2
412    "Adobe-Japan1-2 unified abstract glyphs"
413    '(long-name "Adobe-Japan1-2 unified abstract glyphs"
414                chars 256
415                dimension 2
416                columns 2
417                graphic 2
418                direction l2r
419                mother =+>adobe-japan1-1
420                registry "AdobeJapan1-2"))
421   (make-charset
422    '=+>adobe-japan1-3
423    "Adobe-Japan1-3 unified abstract glyphs"
424    '(long-name "Adobe-Japan1-3 unified abstract glyphs"
425                chars 256
426                dimension 2
427                columns 2
428                graphic 2
429                direction l2r
430                mother =+>adobe-japan1-2
431                registry "AdobeJapan1-3"))
432   (make-charset
433    '=+>adobe-japan1-4
434    "Adobe-Japan1-4 unified abstract glyphs"
435    '(long-name "Adobe-Japan1-4 unified abstract glyphs"
436                chars 256
437                dimension 2
438                columns 2
439                graphic 2
440                direction l2r
441                mother =+>adobe-japan1-3
442                registry "AdobeJapan1-4"))
443   (make-charset
444    '=+>adobe-japan1-5
445    "Adobe-Japan1-5 unified abstract glyphs"
446    '(long-name "Adobe-Japan1-5 unified abstract glyphs"
447                chars 256
448                dimension 2
449                columns 2
450                graphic 2
451                direction l2r
452                mother =+>adobe-japan1-4
453                registry "AdobeJapan1-5"))
454   (make-charset
455    '=+>adobe-japan1-6
456    "Adobe-Japan1-6 unified abstract glyphs"
457    '(long-name "Adobe-Japan1-6 unified abstract glyphs"
458                chars 256
459                dimension 2
460                columns 2
461                graphic 2
462                direction l2r
463                mother =+>adobe-japan1-5
464                registry "AdobeJapan1-6"))
465   (define-charset-alias '=+>adobe-japan1 '=+>adobe-japan1-6)
466
467   (make-charset
468    '=jis-x0208@1978
469    "JIS X 0208:1978, unchanged part."
470    '(registry "jisx0208\\.1978"
471               dimension 2
472               chars 94
473               mother =jis-x0208
474               =>iso-ir 42
475               final ?@
476               graphic 0
477               partial t))
478   (make-charset
479    '=jis-x0208@1978/-4pr
480    "JIS X 0208:1978, 1st - 3rd impressions."
481    '(registry "jisx0208\\.1978"
482               dimension 2
483               chars 94
484               mother =jis-x0208@1978
485               =>iso-ir 42
486               final ?@
487               graphic 0
488               partial t))
489   (make-charset
490    '=jis-x0208@1978/1pr
491    "JIS X 0208:1978, 1st impression."
492    '(iso-ir 42
493             registry "jisx0208\\.1978"
494             dimension 2
495             chars 94
496             mother =jis-x0208@1978/-4pr
497             final ?@
498             graphic 0))
499   (make-charset
500    '=jis-x0208@1978/1pr/fixed
501    "JIS X 0208:1978, correct glyph in the errata of 1st impression."
502    '(registry "jisx0208\\.1978"
503               dimension 2
504               chars 94
505               mother =jis-x0208@1978/1pr
506               =>iso-ir 42
507               ;; final ?@
508               graphic 0
509               partial t))
510   (make-charset
511    '=jis-x0208@1978/-4X
512    "JIS X 0208:1978, index before the 4th impression."
513    '(registry "jisx0208\\.1978"
514               dimension 2
515               chars 94
516               mother =jis-x0208@1978
517               =>iso-ir 42
518               ;; final ?@
519               graphic 0
520               partial t))
521   ;; (make-charset
522   ;;  '=jis-x0208@1978/1er-pr
523   ;;  "JIS X 0208:1978, fixed by errata [Nov 1978]."
524   ;;  '(registry "jisx0208\\.1978"
525   ;;             dimension 2
526   ;;             chars 94
527   ;;             mother =jis-x0208@1978
528   ;;             =>iso-ir 42
529   ;;             ;; final ?@
530   ;;             graphic 0
531   ;;             partial t))
532   (make-charset
533    '=jis-x0208@1978/2-pr
534    "JIS X 0208:1978, 2nd impression or later."
535    '(registry "jisx0208\\.1978"
536               dimension 2
537               chars 94
538               ;; mother =jis-x0208@1978/1er-pr
539               mother =jis-x0208@1978
540               =>iso-ir 42
541               ;; final ?@
542               graphic 0
543               partial t))
544   (make-charset
545    '=jis-x0208@1978/4er
546    "JIS X 0208:1978, replaced by errata of 4th impression."
547    '(registry "jisx0208\\.1978"
548               dimension 2
549               chars 94
550               mother =jis-x0208@1978/2-pr
551               =>iso-ir 42
552               ;; final ?@
553               graphic 0
554               partial t))
555   (make-charset
556    '=jis-x0208@1978/4-pr
557    "JIS X 0208:1978, 4th impression or later."
558    '(registry "jisx0208\\.1978"
559               dimension 2
560               chars 94
561               mother =jis-x0208@1978/2-pr
562               =>iso-ir 42
563               ;; final ?@
564               graphic 0
565               partial t))
566   (make-charset
567    '=jis-x0208@1978/5pr
568    "JIS X 0208:1978, 5th impression."
569    '(registry "jisx0208\\.1978"
570               dimension 2
571               chars 94
572               mother =jis-x0208@1978/4-pr
573               =>iso-ir 42
574               ;; final ?@
575               graphic 0
576               partial t))
577   (define-charset-alias '=jis-x0208@1978/i1 '=jis-x0208@1978/1pr)
578   (define-charset-alias '=jis-x0208@1978/i-4 '=jis-x0208@1978/-4pr)
579   (define-charset-alias '=jis-x0208@1978/i4- '=jis-x0208@1978/4-pr)
580   )
581  (t
582   (make-charset
583    '=jis-x0208@1978
584    "JIS X0208:1978 Japanese Kanji (so called \"old JIS\")."
585    '(iso-ir 42
586             registry "jisx0208\\.1978"
587             dimension 2
588             chars 94
589             mother =jis-x0208
590             final ?@
591             graphic 0))
592   ))
593
594 (define-charset-alias '=jis-x0208-1978          '=jis-x0208@1978)
595 (define-charset-alias 'japanese-jisx0208-1978   '=jis-x0208@1978)
596 (define-charset-alias 'chinese-gb2312           '=gb2312)
597 (define-charset-alias '=jis-x0208-1983          '=jis-x0208@1983)
598 (define-charset-alias 'japanese-jisx0208        '=jis-x0208@1983)
599 (define-charset-alias 'korean-ksc5601           '=ks-x1001)
600 (define-charset-alias 'japanese-jisx0212        '=jis-x0212)
601 (define-charset-alias 'chinese-cns11643-1       '=cns11643-1)
602 (define-charset-alias 'chinese-cns11643-2       '=cns11643-2)
603 (define-charset-alias 'chinese-gb12345          '=gb12345)
604 (define-charset-alias 'chinese-big5             '=big5)
605
606 ;; PinYin-ZhuYin
607 (make-charset 'sisheng "PinYin-ZhuYin"
608               '(registry "sisheng_cwnn\\|OMRON_UDC_ZH"
609                 dimension 1
610                 chars 94
611                 final ?0
612                 graphic 0
613                 ))
614
615 ;; Lao script.
616 ;; ISO10646's 0x0E80..0x0EDF are mapped to 0x20..0x7F.
617 (make-charset 'lao "Lao script"
618               '(registry "MuleLao-1"
619                 dimension 1
620                 chars 94
621                 final ?1
622                 graphic 1))
623
624 ;; IPA (International Phonetic Alphabet)
625 (make-charset 'ipa "International Phonetic Alphabet"
626               '(registry "MuleIPA"
627                 dimension 1
628                 chars 96
629                 final ?0
630                 graphic 1))
631
632 ;; Ethiopic
633 (make-charset 'ethiopic "Ethiopic"
634               '(registry "Ethio"
635                 dimension 2
636                 chars 94
637                 final ?3
638                 graphic 0
639                 ))
640
641 ;; ISO-IR-165 (CCITT Extended GB)
642 ;;    It is based on CCITT Recommendation T.101, includes GB 2312-80 +
643 ;;    GB 8565-88 table A4 + 293 characters.
644 (if (featurep 'utf-2000)
645     (progn
646       (make-charset '=iso-ir165
647                     "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
648                     '(iso-ir 165
649                              dimension 2
650                              chars 94
651                              mother =gb2312
652                              final ?E
653                              registry "isoir165"
654                              graphic 0))
655       (define-charset-alias 'chinese-isoir165 '=iso-ir165))
656   (make-charset 'chinese-isoir165
657                 "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
658                 '(iso-ir 165
659                          dimension 2
660                          chars 94
661                          final ?E
662                          registry "isoir165"
663                          graphic 0)))
664
665 ;; CNS11643 Plane3 thru Plane7
666 ;; These represent more and more obscure Chinese characters.
667 ;; By the time you get to Plane 7, we're talking about characters
668 ;; that appear once in some ancient manuscript and whose meaning
669 ;; is unknown.
670
671 (flet
672     ((make-chinese-cns11643-charset
673       (name iso-ir plane final)
674       (make-charset
675        name (concat "CNS 11643 Plane " plane " (Chinese traditional)")
676        `(iso-ir ,iso-ir
677          registry 
678          ,(concat "CNS11643[.-]\\(.*[.-]\\)?" plane "$")
679          dimension 2
680          chars 94
681          final ,final
682          graphic 0))
683       ))
684   (make-chinese-cns11643-charset '=cns11643-3 183 "3" ?I)
685   (make-chinese-cns11643-charset '=cns11643-4 184 "4" ?J)
686   (make-chinese-cns11643-charset '=cns11643-5 185 "5" ?K)
687   (make-chinese-cns11643-charset '=cns11643-6 186 "6" ?L)
688   (make-chinese-cns11643-charset '=cns11643-7 187 "7" ?M)
689   (define-charset-alias 'chinese-cns11643-3     '=cns11643-3)
690   (define-charset-alias 'chinese-cns11643-4     '=cns11643-4)
691   (define-charset-alias 'chinese-cns11643-5     '=cns11643-5)
692   (define-charset-alias 'chinese-cns11643-6     '=cns11643-6)
693   (define-charset-alias 'chinese-cns11643-7     '=cns11643-7)
694   )
695
696 ;; JIS X 0213:2000
697 (cond
698  ((featurep 'utf-2000)
699   (make-charset
700    '=jis-x0213-1
701    "JIS X 0213 Plain 1 (unchanged part)"
702    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
703               dimension 2
704               chars 94
705               =>iso-ir 228
706               final ?O
707               graphic 0
708               partial t))
709
710   (make-charset
711    '=jis-x0213-1@2000
712    "JIS X 0213:2000 Plain 1"
713    '(iso-ir 228
714             registry "jisx0213\\(\\.2000\\)-1"
715             dimension 2
716             chars 94
717             mother =jis-x0213-1
718             final ?O
719             graphic 0))
720   (make-charset
721    '=jis-x0213-2
722    "JIS X 0213 Plain 2"
723    '(iso-ir 229
724             registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
725             dimension 2
726             chars 94
727             final ?P
728             graphic 0))
729
730   (make-charset
731    '=jis-x0213-1@2004
732    "JIS X 0213:2004 Plain 1"
733    '(iso-ir 233
734             registry "jisx0213\\.2004-1"
735             dimension 2
736             chars 94
737             mother =jis-x0213-1
738             final ?Q
739             graphic 0))
740
741   (define-charset-alias 'japanese-jisx0213-1 '=jis-x0213-1@2000)
742   (define-charset-alias 'japanese-jisx0213-2 '=jis-x0213-2)
743   (define-charset-alias '=jis-x0213-1-2000 '=jis-x0213-1@2000)
744   (define-charset-alias '=jis-x0213-2-2000 '=jis-x0213-2)
745   )
746  (t
747   (make-charset
748    'japanese-jisx0213-1
749    "JIS X 0213:2000 Plain 1"
750    '(registry "jisx0213\\(\\.2000\\)-1"
751               dimension 2
752               chars 94
753               final ?O
754               graphic 0))
755   (make-charset
756    'japanese-jisx0213-2
757    "JIS X 0213:2000 Plain 2"
758    '(registry "jisx0213\\(\\.2000\\)-2"
759               dimension 2
760               chars 94
761               final ?P
762               graphic 0))
763   ))
764
765 (when (featurep 'utf-2000)
766   (define-charset-alias 'ucs '=ucs)
767   (define-charset-alias '=jis-x0208-1990 '=jis-x0208@1990)
768   (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208@1990)
769
770   (make-charset
771    '==jis-x0208
772    "JIS X 0208 abstract glyph-forms (unchanged part)."
773    '(registry "jisx0208\\.1990"
774               dimension 2
775               chars 94
776               mother =jis-x0208
777               =>iso-ir 168
778               ;; final ?B
779               graphic 0))
780   (make-charset
781    '==jis-x0208@1978
782    "JIS X 0208:1978 abstract glyph-forms."
783    '(registry "jisx0208\\.1978"
784               dimension 2
785               chars 94
786               mother ==jis-x0208
787               =>iso-ir 42
788               ;; final ?@
789               graphic 0))
790   (make-charset
791    '==jis-x0208@1978/-4pr
792    "JIS X 0208:1978, 1st - 3rd impressions."
793    '(registry "jisx0208\\.1978"
794               dimension 2
795               chars 94
796               mother ==jis-x0208@1978
797               =>iso-ir 42
798               ;; final ?@
799               graphic 0
800               ;; partial t
801               ))
802   (make-charset
803    '==jis-x0208@1978/1pr
804    "JIS X 0208:1978, 1st impression."
805    '(registry "jisx0208\\.1978"
806               =>iso-ir 42
807               dimension 2
808               chars 94
809               mother ==jis-x0208@1978/-4pr
810               ;; final ?@
811               graphic 0))
812   (make-charset
813    '==jis-x0208@1978/1pr/fixed
814    "JIS X 0208:1978, correct glyph in the errata of 1st impression."
815    '(registry "jisx0208\\.1978"
816               dimension 2
817               chars 94
818               mother ==jis-x0208@1978/1pr
819               =>iso-ir 42
820               ;; final ?@
821               graphic 0
822               partial t))
823   (make-charset
824    '==jis-x0208@1978/-4X
825    "JIS X 0208:1978, index before the 4th impression."
826    '(registry "jisx0208\\.1978"
827               dimension 2
828               chars 94
829               mother ==jis-x0208@1978
830               =>iso-ir 42
831               ;; final ?@
832               graphic 0
833               partial t))
834   (make-charset
835    '==jis-x0208@1978/2-pr
836    "JIS X 0208:1978, 2nd impression or later."
837    '(registry "jisx0208\\.1978"
838               dimension 2
839               chars 94
840               ;; mother =jis-x0208@1978/1er-pr
841               mother ==jis-x0208@1978
842               =>iso-ir 42
843               ;; final ?@
844               graphic 0
845               ;; partial t
846               ))
847   (make-charset
848    '==jis-x0208@1978/4er
849    "JIS X 0208:1978, replaced by errata of 4th impression."
850    '(registry "jisx0208\\.1978"
851               dimension 2
852               chars 94
853               mother ==jis-x0208@1978/2-pr
854               =>iso-ir 42
855               ;; final ?@
856               graphic 0
857               partial t))
858   (make-charset
859    '==jis-x0208@1978/4-pr
860    "JIS X 0208:1978, 4th impression or later."
861    '(registry "jisx0208\\.1978"
862               dimension 2
863               chars 94
864               mother ==jis-x0208@1978/2-pr
865               =>iso-ir 42
866               ;; final ?@
867               graphic 0
868               partial t))
869   (make-charset
870    '==jis-x0208@1978/5pr
871    "JIS X 0208:1978, 5th impression."
872    '(registry "jisx0208\\.1978"
873               dimension 2
874               chars 94
875               mother ==jis-x0208@1978/4-pr
876               =>iso-ir 42
877               ;; final ?@
878               graphic 0
879               partial t))
880   (make-charset
881    '==jis-x0208@1983
882    "JIS X 0208:1983 abstract glyph-forms."
883    '(registry "jisx0208\\.1983"
884               dimension 2
885               chars 94
886               mother ==jis-x0208
887               =>iso-ir 87
888               graphic 0))
889   (make-charset
890    '==jis-x0208@1990
891    "JIS X 0208:1990 abstract glyph-forms."
892    '(registry "jisx0208\\.1990"
893               dimension 2
894               chars 94
895               mother ==jis-x0208
896               =>iso-ir 168
897               ;; final ?B
898               graphic 0))
899
900   (make-charset
901    '==jis-x0213-1
902    "JIS X 0213 Plain 1 abstract glyph-forms (unchanged part)"
903    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
904               dimension 2
905               chars 94
906               mother =jis-x0213-1
907               =>iso-ir 228
908               ;; final ?O
909               graphic 0
910               ;; partial t
911               ))
912   (make-charset
913    '==jis-x0213-1@2000
914    "JIS X 0213:2000 Plain 1 abstract glyph-forms"
915    '(registry "jisx0213\\(\\.2000\\)-1"
916               dimension 2
917               chars 94
918               mother ==jis-x0213-1
919               =>iso-ir 228
920               ;; final ?O
921               graphic 0
922               ;; partial t
923               ))
924   (make-charset
925    '==jis-x0213-1@2004
926    "JIS X 0213:2004 Plain 1 abstract glyph-forms"
927    '(mother ==jis-x0213-1
928             =>iso-ir 233
929             registry "jisx0213\\.2004-1"
930             dimension 2
931             chars 94
932             graphic 0))
933
934   (make-charset
935    '==jis-x0213-2
936    "JIS X 0213 Plain 2 abstract glyph-forms"
937    '(mother =jis-x0213-2
938             =>iso-ir 229
939             registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
940             dimension 2
941             chars 94
942             graphic 0))
943
944   (make-charset
945    '==jis-x0212
946    "JIS X 0212 representative glyph-images."
947    '(registry "jisx0212"
948               dimension 2
949               chars 94
950               mother =jis-x0212
951               =>iso-ir 159
952               ;; final ?D
953               graphic 0))
954
955   (make-charset
956    '==gb2312
957    "GB 2312 representative glyph-images."
958    '(registry "gb2312"
959               dimension 2
960               chars 94
961               mother =gb2312
962               =>iso-ir 58
963               ;; final ?A
964               graphic 0))
965   (make-charset
966    '==iso-ir165
967    "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
968    '(registry "isoir165"
969               =>iso-ir 165
970               dimension 2
971               chars 94
972               mother =iso-ir165
973               ;; final ?E
974               graphic 0))
975   (make-charset
976    '==gb12345
977    "GB 12345 representative glyph-images."
978    '(registry "gb12345"
979               dimension 2
980               chars 94
981               mother =gb12345
982               graphic 0))
983
984   (make-charset
985    '==ks-x1001
986    "KS X 1001 representative glyph-images."
987    '(registry "ksc5601"
988               dimension 2
989               chars 94
990               mother =ks-x1001
991               =>iso-ir 149
992               ;; final ?C
993               graphic 0))
994
995   (define-charset-alias '=>>>jis-x0208      '==jis-x0208)
996   (define-charset-alias '=>>>jis-x0208@1978 '==jis-x0208@1978)
997   (define-charset-alias '=>>>jis-x0208@1983 '==jis-x0208@1983)
998   (define-charset-alias '=>>>jis-x0208@1990 '==jis-x0208@1990)
999
1000   (define-charset-alias '=>>>jis-x0213-1      '==jis-x0213-1)
1001   (define-charset-alias '=>>>jis-x0213-1@2000 '==jis-x0213-1@2000)
1002   (define-charset-alias '=>>>jis-x0213-1@2004 '==jis-x0213-1@2004)
1003   (define-charset-alias '=>>>jis-x0213-2      '==jis-x0213-2)
1004
1005   (make-charset
1006    '===jis-x0208
1007    "JIS X 0208 detailed representative glyph-images (unchanged part)."
1008    '(registry "jisx0208\\.1990"
1009               dimension 2
1010               chars 94
1011               mother ==jis-x0208
1012               =>iso-ir 168
1013               ;; final ?B
1014               graphic 0))
1015   (make-charset
1016    '===jis-x0208@1978
1017    "JIS X 0208:1978 detailed representative glyph-images."
1018    '(registry "jisx0208\\.1978"
1019               dimension 2
1020               chars 94
1021               mother ==jis-x0208@1978
1022               =>iso-ir 42
1023               ;; final ?@
1024               graphic 0))
1025   (make-charset
1026    '===jis-x0208@1983
1027    "JIS X 0208:1983 detailed representative glyph-images."
1028    '(registry "jisx0208\\.1983"
1029               dimension 2
1030               chars 94
1031               mother ==jis-x0208@1983
1032               =>iso-ir 87
1033               graphic 0))
1034   (make-charset
1035    '===jis-x0208@1990
1036    "JIS X 0208:1990 detailed representative glyph-images."
1037    '(registry "jisx0208\\.1990"
1038               dimension 2
1039               chars 94
1040               mother ==jis-x0208@1990
1041               =>iso-ir 168
1042               ;; final ?B
1043               graphic 0))
1044
1045   (make-charset
1046    '===jis-x0213-1
1047    "JIS X 0213 Plain 1 detailed representative glyph-images (unchanged part)."
1048    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1049               dimension 2
1050               chars 94
1051               mother ==jis-x0213-1
1052               =>iso-ir 228
1053               ;; final ?O
1054               graphic 0
1055               ;; partial t
1056               ))
1057   (make-charset
1058    '===jis-x0213-1@2000
1059    "JIS X 0213:2000 Plain 1 detailed representative glyph-images."
1060    '(registry "jisx0213\\(\\.2000\\)-1"
1061               dimension 2
1062               chars 94
1063               mother ==jis-x0213-1@2000
1064               =>iso-ir 228
1065               ;; final ?O
1066               graphic 0
1067               ;; partial t
1068               ))
1069   (make-charset
1070    '===jis-x0213-1@2004
1071    "JIS X 0213:2004 Plain 1 detailed representative glyph-images."
1072    '(mother ==jis-x0213-1@2004
1073             =>iso-ir 233
1074             registry "jisx0213\\.2004-1"
1075             dimension 2
1076             chars 94
1077             graphic 0))
1078   (make-charset
1079    '===jis-x0213-2
1080    "JIS X 0213 Plain 2 detailed representative glyph-images."
1081    '(mother ==jis-x0213-2
1082             =>iso-ir 229
1083             registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1084             dimension 2
1085             chars 94
1086             graphic 0))
1087
1088   (make-charset
1089    '===jis-x0212
1090    "JIS X 0212 representative glyph-images."
1091    '(registry "jisx0212"
1092               dimension 2
1093               chars 94
1094               mother ==jis-x0212
1095               =>iso-ir 159
1096               ;; final ?D
1097               graphic 0))
1098
1099   (make-charset
1100    '===ks-x1001
1101    "KS X 1001 representative glyph-images."
1102    '(registry "ksc5601"
1103               dimension 2
1104               chars 94
1105               mother ==ks-x1001
1106               =>iso-ir 149
1107               ;; final ?C
1108               graphic 0))
1109
1110   (make-charset
1111    '=>>jis-x0208
1112    "JIS X 0208 abstract glyphs (unchanged part)."
1113    '(registry "jisx0208\\.1990"
1114               dimension 2
1115               chars 94
1116               mother =jis-x0208
1117               =>iso-ir 168
1118               ;; final ?B
1119               graphic 0))
1120   (make-charset
1121    '=>>jis-x0208@1978
1122    "JIS X 0208:1978 abstract glyphs."
1123    '(registry "jisx0208\\.1978"
1124               dimension 2
1125               chars 94
1126               mother =>>jis-x0208
1127               =>iso-ir 42
1128               ;; final ?@
1129               graphic 0))
1130   (make-charset
1131    '=>>jis-x0208@1983
1132    "JIS X 0208:1983 abstract glyphs."
1133    '(registry "jisx0208\\.1983"
1134               dimension 2
1135               chars 94
1136               mother =>>jis-x0208
1137               =>iso-ir 87
1138               graphic 0))
1139   (make-charset
1140    '=>>jis-x0208@1990
1141    "JIS X 0208:1990 abstract glyphs."
1142    '(registry "jisx0208\\.1990"
1143               dimension 2
1144               chars 94
1145               mother =>>jis-x0208
1146               =>iso-ir 168
1147               graphic 0))
1148
1149   (make-charset
1150    '=>>jis-x0213-1
1151    "JIS X 0213 Plain 1 abstract glyphs (unchanged part)"
1152    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1153               dimension 2
1154               chars 94
1155               mother =jis-x0213-1
1156               =>iso-ir 228
1157               ;; final ?O
1158               graphic 0
1159               ;; partial t
1160               ))
1161   (make-charset
1162    '=>>jis-x0213-1@2000
1163    "JIS X 0213:2000 Plain 1 abstract glyphs"
1164    '(registry "jisx0213\\(\\.2000\\)-1"
1165               dimension 2
1166               chars 94
1167               mother =>>jis-x0213-1
1168               =>iso-ir 228
1169               ;; final ?O
1170               graphic 0
1171               ;; partial t
1172               ))
1173   (make-charset
1174    '=>>jis-x0213-2
1175    "JIS X 0213 Plain 2 abstract glyphs"
1176    '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1177               dimension 2
1178               chars 94
1179               mother =jis-x0213-2
1180               =>iso-ir 229
1181               ;; final ?P
1182               graphic 0))
1183   (make-charset
1184    '=>>jis-x0213-1@2004
1185    "JIS X 0213:2004 Plain 1 abstract glyphs"
1186    '(registry "jisx0213\\.2004-1"
1187               dimension 2
1188               chars 94
1189               mother =>>jis-x0213-1
1190               =>iso-ir 233
1191               ;; final ?Q
1192               graphic 0
1193               ;; partial t
1194               ))
1195
1196   (make-charset
1197    '=+>jis-x0208
1198    "JIS X 0208 based on usual unification."
1199    '(registry "jisx0208\\.1990"
1200               dimension 2
1201               chars 94
1202               mother =>>jis-x0208
1203               =>iso-ir 168
1204               ;; final ?B
1205               graphic 0))
1206   (define-charset-alias '=>jis-x0208@usual '=+>jis-x0208)
1207   (make-charset
1208    '=+>jis-x0208@1978
1209    "JIS X 0208:1978 unified abstract glyphs."
1210    '(registry "jisx0208\\.1978"
1211               dimension 2
1212               chars 94
1213               mother =+>jis-x0208
1214               =>iso-ir 42
1215               ;; final ?@
1216               graphic 0))
1217   (make-charset
1218    '=+>jis-x0208@1983
1219    "JIS X 0208:1983 unified abstract glyphs."
1220    '(registry "jisx0208\\.1983"
1221               dimension 2
1222               chars 94
1223               mother =+>jis-x0208
1224               =>iso-ir 87
1225               graphic 0))
1226   (make-charset
1227    '=+>jis-x0208@1990
1228    "JIS X 0208:1990 unified abstract glyphs."
1229    '(registry "jisx0208\\.1990"
1230               dimension 2
1231               chars 94
1232               mother =+>jis-x0208
1233               =>iso-ir 168
1234               graphic 0))
1235   (make-charset
1236    '=+>jis-x0213-1
1237    "JIS X 0213 Plain 1 unified abstract glyphs (unchanged part)"
1238    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1239               dimension 2
1240               chars 94
1241               mother =>>jis-x0213-1
1242               =>iso-ir 228
1243               ;; final ?O
1244               graphic 0
1245               ;; partial t
1246               ))
1247   (make-charset
1248    '=+>jis-x0213-1@2000
1249    "JIS X 0213:2000 Plain 1 unified abstract glyphs"
1250    '(registry "jisx0213\\(\\.2000\\)-1"
1251               dimension 2
1252               chars 94
1253               mother =+>jis-x0213-1
1254               =>iso-ir 228
1255               ;; final ?O
1256               graphic 0
1257               ;; partial t
1258               ))
1259   (make-charset
1260    '=+>jis-x0213-1@2004
1261    "JIS X 0213:2004 Plain 1 unified abstract glyphs"
1262    '(registry "jisx0213\\.2004-1"
1263               dimension 2
1264               chars 94
1265               mother =+>jis-x0213-1
1266               =>iso-ir 233
1267               ;; final ?Q
1268               graphic 0
1269               ;; partial t
1270               ))
1271
1272   (make-charset
1273    '=>jis-x0208
1274    "JIS X 0208 based on the unchanged unification rules."
1275    '(registry "jisx0208\\.1990"
1276               dimension 2
1277               chars 94
1278               mother =+>jis-x0208
1279               =>iso-ir 168
1280               ;; final ?B
1281               graphic 0))
1282   (define-charset-alias '<=>jis-x0208 '=>jis-x0208)
1283   (make-charset
1284    '=>jis-x0208@1997
1285    "JIS X 0208 based on the unification rule of 1997 edition."
1286    '(registry "jisx0208\\.1990"
1287               dimension 2
1288               chars 94
1289               mother =>jis-x0208
1290               =>iso-ir 168
1291               ;; final ?B
1292               graphic 0))
1293   (define-charset-alias '<=>jis-x0208@1997 '=>jis-x0208@1997)
1294   (define-charset-alias '  =jis-x0208@1997 '=>jis-x0208@1997)
1295
1296   (make-charset
1297    '=>jis-x0213-1
1298    "JIS X 0213 Plain 1 abstract characters (unchanged part)"
1299    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1300               dimension 2
1301               chars 94
1302               mother =+>jis-x0213-1
1303               =>iso-ir 228
1304               ;; final ?O
1305               graphic 0
1306               ;; partial t
1307               ))
1308   (define-charset-alias '<=>jis-x0213-1 '=>jis-x0213-1)
1309   (make-charset
1310    '=>jis-x0213-1@2000
1311    "JIS X 0213:2000 Plain 1 abstract characters"
1312    '(registry "jisx0213\\(\\.2000\\)-1"
1313               dimension 2
1314               chars 94
1315               mother =>jis-x0213-1
1316               =>iso-ir 228
1317               ;; final ?O
1318               graphic 0
1319               ;; partial t
1320               ))
1321   (define-charset-alias '<=>jis-x0213-1@2000 '=>jis-x0213-1@2000)
1322   (make-charset
1323    '=>jis-x0213-1@2004
1324    "JIS X 0213:2004 Plain 1 abstract characters"
1325    '(registry "jisx0213\\.2004-1"
1326               dimension 2
1327               chars 94
1328               mother =>jis-x0213-1
1329               =>iso-ir 233
1330               ;; final ?Q
1331               graphic 0
1332               ;; partial t
1333               ))
1334   (define-charset-alias '<=>jis-x0213-1@2004 '=>jis-x0213-1@2004)
1335   (make-charset
1336    '=+>jis-x0213-2
1337    "JIS X 0213 Plain 2 based on usual unification."
1338    '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1339               dimension 2
1340               chars 94
1341               mother =>>jis-x0213-2
1342               =>iso-ir 229
1343               ;; final ?P
1344               graphic 0))
1345   (define-charset-alias '=>jis-x0213-2@usual '=+>jis-x0213-2)
1346   (make-charset
1347    '=>jis-x0213-2
1348    "JIS X 0213 Plain 2 abstract characters"
1349    '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1350               dimension 2
1351               chars 94
1352               mother =+>jis-x0213-2
1353               =>iso-ir 229
1354               ;; final ?P
1355               graphic 0))
1356
1357   (make-charset
1358    '==cns11643-1
1359    "CNS 11643 Plane 1 representative glyph-images."
1360    '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
1361               dimension 2
1362               chars 94
1363               mother =cns11643-1
1364               =>iso-ir 171
1365               graphic 0))
1366   (make-charset
1367    '==cns11643-2
1368    "CNS 11643 Plane 2 representative glyph-images."
1369    '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1370               dimension 2
1371               chars 94
1372               mother =cns11643-2
1373               =>iso-ir 172
1374               graphic 0))
1375   (make-charset
1376    '==cns11643-3
1377    "CNS 11643 Plane 3 representative glyph-images."
1378    '(registry "CNS11643[.-]\\(.*[.-]\\)?3$"
1379               dimension 2
1380               chars 94
1381               mother =cns11643-3
1382               =>iso-ir 183
1383               graphic 0))
1384   (make-charset
1385    '==cns11643-4
1386    "CNS 11643 Plane 4 representative glyph-images."
1387    '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
1388               dimension 2
1389               chars 94
1390               mother =cns11643-4
1391               =>iso-ir 184
1392               graphic 0))
1393   (make-charset
1394    '==cns11643-5
1395    "CNS 11643 Plane 5 representative glyph-images."
1396    '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
1397               dimension 2
1398               chars 94
1399               mother =cns11643-5
1400               =>iso-ir 185
1401               graphic 0))
1402   (make-charset
1403    '==cns11643-6
1404    "CNS 11643 Plane 6 representative glyph-images."
1405    '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
1406               dimension 2
1407               chars 94
1408               mother =cns11643-6
1409               =>iso-ir 186
1410               graphic 0))
1411   (make-charset
1412    '==cns11643-7
1413    "CNS 11643 Plane 7 representative glyph-images."
1414    '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
1415               dimension 2
1416               chars 94
1417               mother =cns11643-7
1418               =>iso-ir 187
1419               graphic 0))
1420
1421   (make-charset
1422    '===cns11643-1
1423    "CNS 11643 Plane 1 representative glyph-images."
1424    '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
1425               dimension 2
1426               chars 94
1427               mother ==cns11643-1
1428               =>iso-ir 171
1429               graphic 0))
1430   (make-charset
1431    '===cns11643-2
1432    "CNS 11643 Plane 2 representative glyph-images."
1433    '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1434               dimension 2
1435               chars 94
1436               mother ==cns11643-2
1437               =>iso-ir 172
1438               graphic 0))
1439   (make-charset
1440    '===cns11643-3
1441    "CNS 11643 Plane 3 representative glyph-images."
1442    '(registry "CNS11643[.-]\\(.*[.-]\\)?3$"
1443               dimension 2
1444               chars 94
1445               mother ==cns11643-3
1446               =>iso-ir 183
1447               graphic 0))
1448   (make-charset
1449    '===cns11643-4
1450    "CNS 11643 Plane 4 representative glyph-images."
1451    '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
1452               dimension 2
1453               chars 94
1454               mother ==cns11643-4
1455               =>iso-ir 184
1456               graphic 0))
1457   (make-charset
1458    '===cns11643-5
1459    "CNS 11643 Plane 5 representative glyph-images."
1460    '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
1461               dimension 2
1462               chars 94
1463               mother ==cns11643-5
1464               =>iso-ir 185
1465               graphic 0))
1466   (make-charset
1467    '===cns11643-6
1468    "CNS 11643 Plane 6 representative glyph-images."
1469    '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
1470               dimension 2
1471               chars 94
1472               mother ==cns11643-6
1473               =>iso-ir 186
1474               graphic 0))
1475   (make-charset
1476    '===cns11643-7
1477    "CNS 11643 Plane 7 representative glyph-images."
1478    '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
1479               dimension 2
1480               chars 94
1481               mother ==cns11643-7
1482               =>iso-ir 187
1483               graphic 0))
1484
1485   (make-charset
1486    '=>>cns11643-1
1487    "CNS 11643 Plane 1 detailed glyphs."
1488    '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
1489               dimension 2
1490               chars 94
1491               mother =cns11643-1
1492               =>iso-ir 171
1493               graphic 0))
1494   (make-charset
1495    '=>>cns11643-2
1496    "CNS 11643 Plane 2 detailed glyphs."
1497    '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1498               dimension 2
1499               chars 94
1500               mother =cns11643-2
1501               =>iso-ir 172
1502               graphic 0))
1503   (make-charset
1504    '=>>cns11643-3
1505    "CNS 11643 Plane 3 detailed glyphs."
1506    '(registry "CNS11643[.-]\\(.*[.-]\\)?3$"
1507               dimension 2
1508               chars 94
1509               mother =cns11643-3
1510               =>iso-ir 183
1511               graphic 0))
1512   (make-charset
1513    '=>>cns11643-4
1514    "CNS 11643 Plane 4 detailed glyphs."
1515    '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
1516               dimension 2
1517               chars 94
1518               mother =cns11643-4
1519               =>iso-ir 184
1520               graphic 0))
1521   (make-charset
1522    '=>>cns11643-6
1523    "CNS 11643 Plane 6 detailed glyphs."
1524    '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
1525               dimension 2
1526               chars 94
1527               mother =cns11643-6
1528               =>iso-ir 186
1529               graphic 0))
1530
1531   (make-charset
1532    '=>cns11643-1
1533    "CNS 11643 Plane 1 abstract characters."
1534    '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
1535               dimension 2
1536               chars 94
1537               mother =cns11643-1
1538               =>iso-ir 171
1539               graphic 0))
1540   (make-charset
1541    '=>cns11643-2
1542    "CNS 11643 Plane 2 abstract characters."
1543    '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1544               dimension 2
1545               chars 94
1546               mother =cns11643-2
1547               =>iso-ir 172
1548               graphic 0))
1549   (make-charset
1550    '=>cns11643-4
1551    "CNS 11643 Plane 4 abstract characters."
1552    '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
1553               dimension 2
1554               chars 94
1555               mother =cns11643-4
1556               =>iso-ir 184
1557               graphic 0))
1558   (make-charset
1559    '=>cns11643-5
1560    "CNS 11643 Plane 5 abstract characters."
1561    '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
1562               dimension 2
1563               chars 94
1564               mother =cns11643-5
1565               =>iso-ir 185
1566               graphic 0))
1567   (make-charset
1568    '=>cns11643-6
1569    "CNS 11643 Plane 6 abstract characters."
1570    '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
1571               dimension 2
1572               chars 94
1573               mother =cns11643-6
1574               =>iso-ir 186
1575               graphic 0))
1576   (make-charset
1577    '=>cns11643-7
1578    "CNS 11643 Plane 7 abstract characters."
1579    '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
1580               dimension 2
1581               chars 94
1582               mother =cns11643-7
1583               =>iso-ir 187
1584               graphic 0))
1585
1586   (make-charset '=big5-eten
1587                 "Big5 ETEN"
1588                 '(long-name     "Big5-ETEN"
1589                   chars         256
1590                   dimension     2
1591                   columns       2
1592                   graphic       2
1593                   direction     l2r
1594                   mother        chinese-big5
1595                   min-code      #x8140
1596                   max-code      #xFEFE
1597                   registry      "Big5\\.ETEN"))
1598   (define-charset-alias 'chinese-big5-eten '=big5-eten)
1599   (make-charset 'chinese-big5-eten-a
1600                 "Big5 ETEN (#xF9D6 .. #xF9FE)"
1601                 '(long-name     "Big5-ETEN-a"
1602                   chars         256
1603                   dimension     2
1604                   columns       2
1605                   graphic       2
1606                   direction     l2r
1607                   mother        chinese-big5
1608                   min-code      #xF9D6
1609                   max-code      #xF9FE
1610                   registry      "Big5\\.ETEN"))
1611   (make-charset 'chinese-big5-eten-b
1612                 "Big5 ETEN (#xC6A1 .. #xC8FE)"
1613                 '(long-name     "Big5-ETEN-b"
1614                   chars         256
1615                   dimension     2
1616                   columns       2
1617                   graphic       2
1618                   direction     l2r
1619                   mother        chinese-big5
1620                   min-code      #xC6A1
1621                   max-code      #xC8FE
1622                   registry      "Big5\\.ETEN"))
1623
1624   (make-charset '=big5-cdp
1625                 "Big5 with CDP extension"
1626                 '(long-name     "Big5-CDP"
1627                   chars         256
1628                   dimension     2
1629                   columns       2
1630                   graphic       2
1631                   direction     l2r
1632                   registry      "big5\\.cdp-0"
1633                   mother        chinese-big5
1634                   min-code      #x8140
1635                   max-code      #x8DFE))
1636   (define-charset-alias 'chinese-big5-cdp '=big5-cdp)
1637
1638   (make-charset '==big5-cdp
1639                 "Abstract glyph-images of Big5-CDP"
1640                 '(long-name     "Big5-CDP glyph-forms"
1641                   chars         256
1642                   dimension     2
1643                   columns       2
1644                   graphic       2
1645                   direction     l2r
1646                   registry      "big5\\.cdp-0"
1647                   mother        =big5-cdp))
1648   (make-charset '===big5-cdp
1649                 "Representative glyph-images of Big5-CDP"
1650                 '(long-name     "Big5-CDP glyph-images"
1651                   chars         256
1652                   dimension     2
1653                   columns       2
1654                   graphic       2
1655                   direction     l2r
1656                   registry      "big5\\.cdp-0"
1657                   mother        ==big5-cdp))
1658
1659   (make-charset '=>>big5-cdp
1660                 "Abstract glyphs of Big5-CDP"
1661                 '(long-name     "Big5-CDP glyphs"
1662                   chars         256
1663                   dimension     2
1664                   columns       2
1665                   graphic       2
1666                   direction     l2r
1667                   registry      "big5\\.cdp-0"
1668                   mother        =big5-cdp))
1669
1670   (make-charset '=+>big5-cdp
1671                 "Big5-CDP unified glyphs"
1672                 '(long-name     "Big5-CDP unified glyphs"
1673                   chars         256
1674                   dimension     2
1675                   columns       2
1676                   graphic       2
1677                   direction     l2r
1678                   registry      "big5\\.cdp-0"
1679                   mother        =big5-cdp))
1680
1681   (make-charset '=>big5-cdp
1682                 "Big5-CDP abstract characters"
1683                 '(long-name     "Big5-CDP abstract characters"
1684                   chars         256
1685                   dimension     2
1686                   columns       2
1687                   graphic       2
1688                   direction     l2r
1689                   registry      "big5\\.cdp-0"
1690                   mother        =big5-cdp))
1691
1692   (make-charset '=>big5-cdp@iwds-1
1693                 "Big5-CDP abstract characters based on IWDS-1"
1694                 '(long-name     "Big5-CDP IWDS-1 abstract characters"
1695                   chars         256
1696                   dimension     2
1697                   columns       2
1698                   graphic       2
1699                   direction     l2r
1700                   registry      "big5\\.cdp-0"
1701                   mother        =>big5-cdp))
1702
1703   (make-charset '=>big5-cdp@component
1704                 "Big5-CDP abstract components"
1705                 '(long-name     "Big5-CDP abstract components"
1706                   chars         256
1707                   dimension     2
1708                   columns       2
1709                   graphic       2
1710                   direction     l2r
1711                   registry      "big5\\.cdp-0"
1712                   mother        =>big5-cdp))
1713
1714   (make-charset '=>big5-cdp@cognate
1715                 "Big5-CDP abstract components based on cognate"
1716                 '(long-name     "Big5-CDP abstract cognate components"
1717                   chars         256
1718                   dimension     2
1719                   columns       2
1720                   graphic       2
1721                   direction     l2r
1722                   registry      "big5\\.cdp-0"
1723                   mother        =>big5-cdp))
1724
1725   (make-charset
1726    '=mj
1727    "Moji-Jouhou-Kiban characters"
1728    `(long-name "Moji-Jouhou-Kiban"
1729                chars 256
1730                dimension 3
1731                columns 2
1732                graphic 2
1733                direction l2r
1734                ;; registry "mj-0$"
1735                min-code     #xE30000
1736                max-code ,(+ #xE30000 68053)
1737                code-offset  #xE30000
1738                ;; min-code            ,(lsh #x6404 16)
1739                ;; max-code         ,(+ (lsh #x6404 16) 68053)
1740                ;; code-offset    ,(lsh #x6404 16)
1741                ))
1742   (make-charset
1743    '=mj-0
1744    "Moji-Jouhou-Kiban plane 0"
1745    '(long-name "Moji-Jouhou-Kiban-0"
1746                chars 256
1747                dimension 2
1748                columns 2
1749                graphic 2
1750                direction l2r
1751                registry "mj-0$"
1752                mother =mj
1753                min-code 0
1754                max-code #xFFFF))
1755   (make-charset
1756    '=mj-1
1757    "Moji-Jouhou-Kiban plane 1"
1758    '(long-name "Moji-Jouhou-Kiban-1"
1759                chars 256
1760                dimension 2
1761                columns 2
1762                graphic 2
1763                direction l2r
1764                registry "mj-1$"
1765                mother =mj
1766                min-code #x10000
1767                code-offset #x10000))
1768   (make-charset
1769    '=>mj
1770    "Moji-Jouhou-Kiban abstract characters"
1771    `(long-name "Moji-Jouhou-Kiban"
1772                chars 256
1773                dimension 3
1774                columns 2
1775                graphic 2
1776                direction l2r
1777                mother =mj
1778                ))
1779   (make-charset
1780    '=>mj-0
1781    "Moji-Jouhou-Kiban plane 0"
1782    '(long-name "Moji-Jouhou-Kiban-0"
1783                chars 256
1784                dimension 2
1785                columns 2
1786                graphic 2
1787                direction l2r
1788                registry "mj-0$"
1789                mother =>mj
1790                min-code 0
1791                max-code #xFFFF))
1792
1793   (make-charset
1794    '=hanyo-denshi/ja
1795    "JA (JIS X0208) part of Han'you-Denshi characters"
1796    `(long-name "Han'you-Denshi/JA"
1797                chars 94
1798                dimension 2
1799                columns 2
1800                graphic 2
1801                direction l2r
1802                registry "HanyoDenshi\\.JA-0$"
1803                min-code ,(lsh #x6400 16)
1804                max-code ,(+ (lsh #x6400 16) (1- (* 94 94)))
1805                code-offset ,(lsh #x6400 16)))
1806   (make-charset
1807    '=hanyo-denshi/jb
1808    "JB (JIS X0212) part of Han'you-Denshi characters"
1809    `(long-name "Han'you-Denshi/JB"
1810                chars 94
1811                dimension 2
1812                columns 2
1813                graphic 2
1814                direction l2r
1815                registry "HanyoDenshi\\.JB-0$"
1816                min-code    ,(+ (lsh #x6400 16) (* 94 94))
1817                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 2)))
1818                code-offset ,(+ (lsh #x6400 16) (* 94 94))))
1819   (make-charset
1820    '=hanyo-denshi/jc
1821    "JC (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
1822    `(long-name "Han'you-Denshi/JC"
1823                chars 94
1824                dimension 2
1825                columns 2
1826                graphic 2
1827                direction l2r
1828                registry "HanyoDenshi\\.JC-0$"
1829                min-code    ,(+ (lsh #x6400 16) (* 94 94 2))
1830                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 3)))
1831                code-offset ,(+ (lsh #x6400 16) (* 94 94 2))))
1832   (make-charset
1833    '=hanyo-denshi/jd
1834    "JD (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
1835    `(long-name "Han'you-Denshi/JD"
1836                chars 94
1837                dimension 2
1838                columns 2
1839                graphic 2
1840                direction l2r
1841                registry "HanyoDenshi\\.JD-0$"
1842                min-code    ,(+ (lsh #x6400 16) (* 94 94 3))
1843                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 4)))
1844                code-offset ,(+ (lsh #x6400 16) (* 94 94 3))))
1845   (make-charset
1846    '=hanyo-denshi/ft
1847    "FT (FDPC additional) part of Han'you-Denshi characters"
1848    `(long-name "Han'you-Denshi/FT"
1849                chars 94
1850                dimension 2
1851                columns 2
1852                graphic 2
1853                direction l2r
1854                registry "HanyoDenshi\\.FT-0$"
1855                min-code    ,(+ (lsh #x6400 16) (* 94 94 4))
1856                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 5)))
1857                code-offset ,(+ (lsh #x6400 16) (* 94 94 4))))
1858   (make-charset
1859    '=hanyo-denshi/ia
1860    "IA part of Han'you-Denshi characters"
1861    `(long-name "Han'you-Denshi/IA"
1862                chars 94
1863                dimension 2
1864                columns 2
1865                graphic 2
1866                direction l2r
1867                registry "HanyoDenshi\\.IA-0$"
1868                min-code    ,(+ (lsh #x6400 16) (* 94 94 5))
1869                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 6)))
1870                code-offset ,(+ (lsh #x6400 16) (* 94 94 5))))
1871   (make-charset
1872    '=hanyo-denshi/ib
1873    "IB part of Han'you-Denshi characters"
1874    `(long-name "Han'you-Denshi/IB"
1875                chars 94
1876                dimension 2
1877                columns 2
1878                graphic 2
1879                direction l2r
1880                registry "HanyoDenshi\\.IB-0$"
1881                min-code    ,(+ (lsh #x6400 16) (* 94 94 6))
1882                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 7)))
1883                code-offset ,(+ (lsh #x6400 16) (* 94 94 6))))
1884   (make-charset
1885    '=hanyo-denshi/hg
1886    "HG (HyouGai Kanji) part of Han'you-Denshi characters"
1887    `(long-name "Han'you-Denshi/HG"
1888                chars 94
1889                dimension 2
1890                columns 2
1891                graphic 2
1892                direction l2r
1893                registry "HanyoDenshi\\.HG-0$"
1894                min-code    ,(+ (lsh #x6400 16) (* 94 94 7))
1895                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 8)))
1896                code-offset ,(+ (lsh #x6400 16) (* 94 94 7))))
1897   (make-charset
1898    '=hanyo-denshi/ip
1899    "IP (for IPA) part of Han'you-Denshi characters"
1900    `(long-name "Han'you-Denshi/IP"
1901                chars 256
1902                dimension 2
1903                columns 2
1904                graphic 2
1905                direction l2r
1906                registry "HanyoDenshi\\.IP-0$"
1907                min-code    ,(+ (lsh #x6402 16) #x4E00)
1908                max-code    ,(+ (lsh #x6402 16) #x9FFF)
1909                code-offset ,(+ (lsh #x6402 16))))
1910   (make-charset
1911    '=hanyo-denshi/jt
1912    "JT (Juuki Touitsu Moji) part of Han'you-Denshi characters"
1913    `(long-name "Han'you-Denshi/JT"
1914                chars 256
1915                dimension 2
1916                columns 2
1917                graphic 2
1918                direction l2r
1919                registry "HanyoDenshi\\.JT-0$"
1920                min-code    ,(+ (lsh #x6402 16) #xAC00)
1921                max-code    ,(+ (lsh #x6402 16) #xD7AF)
1922                code-offset ,(+ (lsh #x6402 16))))
1923   (make-charset
1924    '=hanyo-denshi/ks
1925    "KS (KoSeki) part of Han'you-Denshi characters"
1926    `(long-name "Han'you-Denshi/KS"
1927                chars 256
1928                dimension 3
1929                columns 2
1930                graphic 2
1931                direction l2r))
1932   (make-charset
1933    '=hanyo-denshi/tk
1934    "TK (TouKi) part of Han'you-Denshi characters"
1935    `(long-name "Han'you-Denshi/TK"
1936                chars 256
1937                dimension 3
1938                columns 2
1939                graphic 2
1940                direction l2r))
1941
1942   (make-charset
1943    '==mj
1944    "Moji-Jouhou-Kiban detailed glyph-images."
1945    '(long-name "MJ glyph-images"
1946                chars 256
1947                dimension 2
1948                columns 2
1949                graphic 2
1950                direction l2r
1951                mother =mj))
1952   (make-charset
1953    '==mj-0
1954    "MJ detailed glyph-images plane 0"
1955    '(long-name "MJ glyph-images-0"
1956                chars 256
1957                dimension 2
1958                columns 2
1959                graphic 2
1960                direction l2r
1961                registry "mj-0$"
1962                mother ==mj
1963                min-code 0
1964                max-code #xFFFF))
1965   (make-charset
1966    '==mj-1
1967    "MJ detailed glyph-images plane 1"
1968    '(long-name "MJ glyph-images-1"
1969                chars 256
1970                dimension 2
1971                columns 2
1972                graphic 2
1973                direction l2r
1974                registry "mj-1$"
1975                mother ==mj
1976                min-code #x10000
1977                code-offset #x10000))
1978
1979   (make-charset
1980    '==hanyo-denshi/ja
1981    "Han'you-Denshi/JA abstract glyph-forms."
1982    '(long-name "Han'you-Denshi/JA glyph-forms"
1983                chars 94
1984                dimension 2
1985                columns 2
1986                graphic 2
1987                direction l2r
1988                registry "HanyoDenshi\\.JA-0$"
1989                mother =hanyo-denshi/ja))
1990   (make-charset
1991    '==hanyo-denshi/jb
1992    "Han'you-Denshi/JB abstract glyph-forms."
1993    '(long-name "Han'you-Denshi/JB glyph-forms"
1994                chars 94
1995                dimension 2
1996                columns 2
1997                graphic 2
1998                direction l2r
1999                registry "HanyoDenshi\\.JB-0$"
2000                mother =hanyo-denshi/jb))
2001   (make-charset
2002    '==hanyo-denshi/jc
2003    "Han'you-Denshi/JC abstract glyph-forms."
2004    '(long-name "Han'you-Denshi/JC glyph-forms"
2005                chars 94
2006                dimension 2
2007                columns 2
2008                graphic 2
2009                direction l2r
2010                registry "HanyoDenshi\\.JC-0$"
2011                mother =hanyo-denshi/jc))
2012   (make-charset
2013    '==hanyo-denshi/jd
2014    "Han'you-Denshi/JD abstract glyph-forms."
2015    '(long-name "Han'you-Denshi/JD glyph-forms"
2016                chars 94
2017                dimension 2
2018                columns 2
2019                graphic 2
2020                direction l2r
2021                registry "HanyoDenshi\\.JD-0$"
2022                mother =hanyo-denshi/jd))
2023   (make-charset
2024    '==hanyo-denshi/ft
2025    "Han'you-Denshi/FT abstract glyph-forms."
2026    '(long-name "Han'you-Denshi/FT glyph-forms"
2027                chars 94
2028                dimension 2
2029                columns 2
2030                graphic 2
2031                direction l2r
2032                registry "HanyoDenshi\\.FT-0$"
2033                mother =hanyo-denshi/ft))
2034   (make-charset
2035    '==hanyo-denshi/ia
2036    "Han'you-Denshi/IA abstract glyph-forms."
2037    '(long-name "Han'you-Denshi/IA glyph-images"
2038                chars 94
2039                dimension 2
2040                columns 2
2041                graphic 2
2042                direction l2r
2043                registry "HanyoDenshi\\.IA-0$"
2044                mother =hanyo-denshi/ia))
2045   (make-charset
2046    '==hanyo-denshi/ib
2047    "Han'you-Denshi/IB abstract glyph-forms."
2048    '(long-name "Han'you-Denshi/IB glyph-forms"
2049                chars 94
2050                dimension 2
2051                columns 2
2052                graphic 2
2053                direction l2r
2054                registry "HanyoDenshi\\.IB-0$"
2055                mother =hanyo-denshi/ib))
2056   (make-charset
2057    '==hanyo-denshi/hg
2058    "Han'you-Denshi/HG abstract glyph-forms."
2059    '(long-name "Han'you-Denshi/HG glyph-forms"
2060                chars 94
2061                dimension 2
2062                columns 2
2063                graphic 2
2064                direction l2r
2065                registry "HanyoDenshi\\.HG-0$"
2066                mother =hanyo-denshi/hg))
2067   (make-charset
2068    '==hanyo-denshi/ip
2069    "Han'you-Denshi/IP abstract glyph-forms."
2070    '(long-name "Han'you-Denshi/IP glyph-images"
2071                chars 256
2072                dimension 2
2073                columns 2
2074                graphic 2
2075                direction l2r
2076                registry "HanyoDenshi\\.IP-0$"
2077                mother =hanyo-denshi/ip))
2078   (make-charset
2079    '==hanyo-denshi/jt
2080    "JT (Juuki Touitsu Moji) abstract glyph-forms."
2081    '(long-name "Han'you-Denshi/JT glyph-forms"
2082                chars 256
2083                dimension 2
2084                columns 2
2085                graphic 2
2086                direction l2r
2087                registry "HanyoDenshi\\.JT-0$"
2088                mother =hanyo-denshi/jt))
2089   (make-charset
2090    '==hanyo-denshi/ks
2091    "KoSeki-touitsu-moji abstract glyph-forms."
2092    '(long-name "Han'you-Denshi/KS glyph-forms"
2093                chars 256
2094                dimension 3
2095                columns 2
2096                graphic 2
2097                direction l2r
2098                mother =hanyo-denshi/ks))
2099   (make-charset
2100    '==hanyo-denshi/tk
2101    "TK (TouKi) part of Han'you-Denshi abstract glyph-forms."
2102    `(long-name "Han'you-Denshi/TK glyph-forms"
2103                chars 256
2104                dimension 3
2105                columns 2
2106                graphic 2
2107                direction l2r
2108                mother =hanyo-denshi/tk))
2109
2110   (make-charset
2111    '=koseki
2112    "Abstract glyph-forms of KoSeki-touitsu-moji."
2113    '(long-name "KoSeki-touitsu-moji glyph-forms"
2114                chars 256
2115                dimension 3
2116                columns 2
2117                graphic 2
2118                direction l2r
2119                mother =hanyo-denshi/ks))
2120   (make-charset
2121    '==koseki
2122    "Representative glyph-images of KoSeki-touitsu-moji."
2123    '(long-name "KoSeki-touitsu-moji glyph-images"
2124                chars 256
2125                dimension 3
2126                columns 2
2127                graphic 2
2128                direction l2r
2129                mother =koseki))
2130
2131   (define-charset-alias '=>>>hanyo-denshi/ja '==hanyo-denshi/ja)
2132   (define-charset-alias '=>>>hanyo-denshi/jb '==hanyo-denshi/jb)
2133   (define-charset-alias '=>>>hanyo-denshi/jc '==hanyo-denshi/jc)
2134   (define-charset-alias '=>>>hanyo-denshi/jd '==hanyo-denshi/jd)
2135   (define-charset-alias '=>>>hanyo-denshi/ft '==hanyo-denshi/ft)
2136   (define-charset-alias '=>>>hanyo-denshi/ib '==hanyo-denshi/ib)
2137   (define-charset-alias '=>>>hanyo-denshi/hg '==hanyo-denshi/hg)
2138   (define-charset-alias '=>>>hanyo-denshi/jt '==hanyo-denshi/jt)
2139   (define-charset-alias '=>>>hanyo-denshi/ks '==hanyo-denshi/ks)
2140
2141   ;; (make-charset
2142   ;;  '===hanyo-denshi/ja
2143   ;;  "Han'you-Denshi/JA detailed glyph-images."
2144   ;;  '(long-name "Han'you-Denshi/JA glyph-images"
2145   ;;              chars 94
2146   ;;              dimension 2
2147   ;;              columns 2
2148   ;;              graphic 2
2149   ;;              direction l2r
2150   ;;              registry "HanyoDenshi\\.JA-0$"
2151   ;;              mother ==hanyo-denshi/ja))
2152   (make-charset
2153    '===hanyo-denshi/jb
2154    "Han'you-Denshi/JB detailed glyph-images."
2155    '(long-name "Han'you-Denshi/JB glyph-images"
2156                chars 94
2157                dimension 2
2158                columns 2
2159                graphic 2
2160                direction l2r
2161                registry "HanyoDenshi\\.JB-0$"
2162                mother ==hanyo-denshi/jb))
2163   (make-charset
2164    '===hanyo-denshi/jc
2165    "Han'you-Denshi/JC representative glyph-images."
2166    '(long-name "Han'you-Denshi/JC glyph-images"
2167                chars 94
2168                dimension 2
2169                columns 2
2170                graphic 2
2171                direction l2r
2172                registry "HanyoDenshi\\.JC-0$"
2173                mother ==hanyo-denshi/jc))
2174   (make-charset
2175    '===hanyo-denshi/jd
2176    "Han'you-Denshi/JD representative glyph-images."
2177    '(long-name "Han'you-Denshi/JD glyph-images"
2178                chars 94
2179                dimension 2
2180                columns 2
2181                graphic 2
2182                direction l2r
2183                registry "HanyoDenshi\\.JD-0$"
2184                mother ==hanyo-denshi/jd))
2185   (make-charset
2186    '===hanyo-denshi/ft
2187    "Han'you-Denshi/FT detailed glyph-images."
2188    '(long-name "Han'you-Denshi/FT glyph-images"
2189                chars 94
2190                dimension 2
2191                columns 2
2192                graphic 2
2193                direction l2r
2194                registry "HanyoDenshi\\.FT-0$"
2195                mother ==hanyo-denshi/ft))
2196   (make-charset
2197    '===hanyo-denshi/ia
2198    "Han'you-Denshi/IA detailed glyph-images."
2199    '(long-name "Han'you-Denshi/IA glyph-images"
2200                chars 94
2201                dimension 2
2202                columns 2
2203                graphic 2
2204                direction l2r
2205                registry "HanyoDenshi\\.IA-0$"
2206                mother ==hanyo-denshi/ia))
2207   (make-charset
2208    '===hanyo-denshi/ib
2209    "Han'you-Denshi/IB detailed glyph-images."
2210    '(long-name "Han'you-Denshi/IB glyph-images"
2211                chars 94
2212                dimension 2
2213                columns 2
2214                graphic 2
2215                direction l2r
2216                registry "HanyoDenshi\\.IB-0$"
2217                mother ==hanyo-denshi/ib))
2218   (make-charset
2219    '===hanyo-denshi/hg
2220    "Han'you-Denshi/HG detailed glyph-images."
2221    '(long-name "Han'you-Denshi/HG glyph-images"
2222                chars 94
2223                dimension 2
2224                columns 2
2225                graphic 2
2226                direction l2r
2227                registry "HanyoDenshi\\.HG-0$"
2228                mother ==hanyo-denshi/hg))
2229   (make-charset
2230    '===hanyo-denshi/ip
2231    "Han'you-Denshi/IP representative glyph-images."
2232    '(long-name "Han'you-Denshi/IP glyph-images"
2233                chars 256
2234                dimension 2
2235                columns 2
2236                graphic 2
2237                direction l2r
2238                registry "HanyoDenshi\\.IP-0$"
2239                mother ==hanyo-denshi/ip))
2240   (make-charset
2241    '===hanyo-denshi/jt
2242    "JT (Juuki Touitsu Moji) detailed glyph-images."
2243    '(long-name "Han'you-Denshi/JT glyph-images"
2244                chars 256
2245                dimension 2
2246                columns 2
2247                graphic 2
2248                direction l2r
2249                registry "HanyoDenshi\\.JT-0$"
2250                mother ==hanyo-denshi/jt))
2251   (make-charset
2252    '===hanyo-denshi/ks
2253    "KoSeki-touitsu-moji detailed glyph-images."
2254    '(long-name "Han'you-Denshi/KS glyph-images"
2255                chars 256
2256                dimension 3
2257                columns 2
2258                graphic 2
2259                direction l2r
2260                mother ==hanyo-denshi/ks))
2261
2262   (make-charset
2263    '=hanyo-denshi/ks/mf
2264    "font encoding for KS (KoSeki) characters"
2265    `(long-name "Han'you-Denshi/KS font encoding"
2266                chars 256
2267                dimension 2
2268                columns 2
2269                graphic 2
2270                direction l2r
2271                registry "HanyoDenshi\\.KSMF-0$"
2272                min-code       ,(lsh #x6403 16)
2273                max-code    ,(+ (lsh #x6403 16) #xFFFF)
2274                code-offset    ,(lsh #x6403 16)))
2275   (make-charset
2276    '=hanyo-denshi/tk/mf-01
2277    "font encoding for TK (TouKi) characters"
2278    `(long-name "Han'you-Denshi/TK font encoding"
2279                chars 256
2280                dimension 2
2281                columns 2
2282                graphic 2
2283                direction l2r
2284                registry "HanyoDenshi\\.TKMF-1$"))
2285   (make-charset
2286    '==hanyo-denshi/tk/mf-01
2287    "font encoding for TK (TouKi) characters"
2288    `(long-name "Han'you-Denshi/TK font encoding"
2289                chars 256
2290                dimension 2
2291                columns 2
2292                graphic 2
2293                direction l2r
2294                mother =hanyo-denshi/tk/mf-01
2295                registry "HanyoDenshi\\.TKMF-1$"))
2296
2297   (make-charset
2298    '===mj
2299    "Moji-Jouhou-Kiban detailed glyph-images."
2300    '(long-name "MJ glyph-images"
2301                chars 256
2302                dimension 2
2303                columns 2
2304                graphic 2
2305                direction l2r
2306                mother ==mj))
2307   (make-charset
2308    '===mj-0
2309    "MJ detailed glyph-images plane 0"
2310    '(long-name "MJ glyph-images-0"
2311                chars 256
2312                dimension 2
2313                columns 2
2314                graphic 2
2315                direction l2r
2316                registry "mj-0$"
2317                mother ===mj
2318                min-code 0
2319                max-code #xFFFF))
2320   (make-charset
2321    '===mj-1
2322    "MJ detailed glyph-images plane 1"
2323    '(long-name "MJ glyph-images-1"
2324                chars 256
2325                dimension 2
2326                columns 2
2327                graphic 2
2328                direction l2r
2329                registry "mj-1$"
2330                mother ===mj
2331                min-code #x10000
2332                code-offset #x10000))
2333
2334   (make-charset
2335    '=+>hanyo-denshi/ft
2336    "Han'you-Denshi/FT abstract glyphs"
2337    '(long-name "Han'you-Denshi/FT glyphs"
2338                chars 94
2339                dimension 2
2340                columns 2
2341                graphic 2
2342                direction l2r
2343                registry "HanyoDenshi\\.FT-0$"
2344                mother =hanyo-denshi/ft))
2345   (make-charset
2346    '=+>hanyo-denshi/jt
2347    "JT (Juuki Touitsu Moji) unified abstract glyphs."
2348    '(long-name "Han'you-Denshi/JT unified glyphs"
2349                chars 256
2350                dimension 2
2351                columns 2
2352                graphic 2
2353                direction l2r
2354                registry "HanyoDenshi\\.JT-0$"
2355                mother =hanyo-denshi/jt))
2356
2357   (make-charset
2358    '=>>mj
2359    "Moji-Jouhou-Kiban abstract glyphs."
2360    '(long-name "MJ glyphs"
2361                chars 256
2362                dimension 2
2363                columns 2
2364                graphic 2
2365                direction l2r
2366                mother =mj))
2367
2368   (make-charset
2369    '=>>hanyo-denshi/ja
2370    "Han'you-Denshi/JA abstract glyphs"
2371    '(long-name "Han'you-Denshi/JA glyphs"
2372                chars 94
2373                dimension 2
2374                columns 2
2375                graphic 2
2376                direction l2r
2377                registry "HanyoDenshi\\.JA-0$"
2378                mother =hanyo-denshi/ja))
2379   (make-charset
2380    '=>>hanyo-denshi/jb
2381    "Han'you-Denshi/JB abstract glyphs"
2382    '(long-name "Han'you-Denshi/JB glyphs"
2383                chars 94
2384                dimension 2
2385                columns 2
2386                graphic 2
2387                direction l2r
2388                registry "HanyoDenshi\\.JB-0$"
2389                mother =hanyo-denshi/jb))
2390   (make-charset
2391    '=>>hanyo-denshi/jc
2392    "Han'you-Denshi/JC abstract glyphs"
2393    '(long-name "Han'you-Denshi/JC glyphs"
2394                chars 94
2395                dimension 2
2396                columns 2
2397                graphic 2
2398                direction l2r
2399                registry "HanyoDenshi\\.JC-0$"
2400                mother =hanyo-denshi/jc))
2401   (make-charset
2402    '=>>hanyo-denshi/jd
2403    "Han'you-Denshi/JD abstract glyphs"
2404    '(long-name "Han'you-Denshi/JD glyphs"
2405                chars 94
2406                dimension 2
2407                columns 2
2408                graphic 2
2409                direction l2r
2410                registry "HanyoDenshi\\.JD-0$"
2411                mother =hanyo-denshi/jd))
2412   (make-charset
2413    '=>>hanyo-denshi/ft
2414    "Han'you-Denshi/FT abstract glyphs"
2415    '(long-name "Han'you-Denshi/FT glyphs"
2416                chars 94
2417                dimension 2
2418                columns 2
2419                graphic 2
2420                direction l2r
2421                registry "HanyoDenshi\\.FT-0$"
2422                mother =hanyo-denshi/ft))
2423   (make-charset
2424    '=>>hanyo-denshi/ia
2425    "Han'you-Denshi/IA abstract glyphs"
2426    '(long-name "Han'you-Denshi/IA glyphs"
2427                chars 94
2428                dimension 2
2429                columns 2
2430                graphic 2
2431                direction l2r
2432                registry "HanyoDenshi\\.IA-0$"
2433                mother =hanyo-denshi/ia))
2434   (make-charset
2435    '=>>hanyo-denshi/ib
2436    "Han'you-Denshi/IB abstract glyphs"
2437    '(long-name "Han'you-Denshi/IB abstract glyphs"
2438                chars 94
2439                dimension 2
2440                columns 2
2441                graphic 2
2442                direction l2r
2443                registry "HanyoDenshi\\.IB-0$"
2444                mother =hanyo-denshi/ib))
2445   (make-charset
2446    '=>>hanyo-denshi/hg
2447    "Han'you-Denshi/HG abstract glyphs"
2448    '(long-name "Han'you-Denshi/HG abstract glyphs"
2449                chars 94
2450                dimension 2
2451                columns 2
2452                graphic 2
2453                direction l2r
2454                registry "HanyoDenshi\\.HG-0$"
2455                mother =hanyo-denshi/hg))
2456   (make-charset
2457    '=>>hanyo-denshi/ip
2458    "Han'you-Denshi/IP abstract glyphs"
2459    '(long-name "Han'you-Denshi/IP abstract glyphs"
2460                chars 256
2461                dimension 2
2462                columns 2
2463                graphic 2
2464                direction l2r
2465                registry "HanyoDenshi\\.IP-0$"
2466                mother =hanyo-denshi/ip))
2467   (make-charset
2468    '=>>hanyo-denshi/jt
2469    "JT (Juuki Touitsu Moji) abstract glyphs"
2470    '(long-name "Han'you-Denshi/JT glyphs"
2471                chars 256
2472                dimension 2
2473                columns 2
2474                graphic 2
2475                direction l2r
2476                registry "HanyoDenshi\\.JT-0$"
2477                mother =hanyo-denshi/jt))
2478   (make-charset
2479    '=>>hanyo-denshi/ks
2480    "Han'you-Denshi/KS abstract glyphs"
2481    '(long-name "Han'you-Denshi/KS glyphs"
2482                chars 256
2483                dimension 3
2484                columns 2
2485                graphic 2
2486                direction l2r
2487                mother =hanyo-denshi/ks))
2488
2489   (make-charset '=gt
2490                 "GT 2000"
2491                 `(long-name     "GT"
2492                   chars         256
2493                   dimension     3
2494                   columns       2
2495                   graphic       2
2496                   direction     l2r
2497                   registry      ""
2498                   min-code      ,(lsh #x6100 16)
2499                   max-code      ,(+ (lsh #x6100 16) 67547)
2500                   code-offset   ,(lsh #x6100 16)))
2501   (make-charset '==gt
2502                 "GT 2000 abstract glyph-forms."
2503                 '(long-name     "GT abstract glyph-forms"
2504                   chars         256
2505                   dimension     3
2506                   columns       2
2507                   graphic       2
2508                   direction     l2r
2509                   mother        =gt))
2510   (make-charset '===gt
2511                 "GT 2000 detailed glyph-images."
2512                 '(long-name     "GT glyph-images"
2513                   chars         256
2514                   dimension     3
2515                   columns       2
2516                   graphic       2
2517                   direction     l2r
2518                   mother        ==gt
2519                   ;; min-code   1
2520                   ;; max-code   67392
2521                   ))
2522   (define-charset-alias 'ideograph-gt '=gt)
2523   (define-charset-alias '=>>>gt '==gt)
2524   (make-charset '=>>gt
2525                 "GT 2000 abstract glyphs"
2526                 '(long-name     "GT abstract glyphs"
2527                   chars         256
2528                   dimension     3
2529                   columns       2
2530                   graphic       2
2531                   direction     l2r
2532                   mother        =gt))
2533   (define-charset-alias '<=>gt '=>>gt)
2534   (define-charset-alias '<==>gt '=>>gt)
2535   (make-charset '=+>gt
2536                 "GT 2000 unified abstract glyphs"
2537                 '(long-name     "Unified abstract GT glyphs"
2538                   chars         256
2539                   dimension     3
2540                   columns       2
2541                   graphic       2
2542                   direction     l2r
2543                   mother        =>>gt))
2544   (make-charset '=>gt
2545                 "GT 2000 abstract characters"
2546                 '(long-name     "abstract GT characters"
2547                   chars         256
2548                   dimension     3
2549                   columns       2
2550                   graphic       2
2551                   direction     l2r
2552                   mother        =+>gt))
2553   (make-charset '=gt-k
2554                 "Ideographic components of GT"
2555                 `(long-name     "GT components"
2556                   chars         256
2557                   dimension     2
2558                   columns       2
2559                   graphic       2
2560                   direction     l2r
2561                   registry      ""
2562                   min-code      ,(lsh #x6110 16)
2563                   max-code      ,(+ (lsh #x6110 16) 17090)
2564                   code-offset   ,(lsh #x6110 16)))
2565   (define-charset-alias 'ideograph-gt-k '=gt-k)
2566   (make-charset '==gt-k
2567                 "Abstract glyph-images of GT-K"
2568                 '(long-name     "GT-K glyph-images"
2569                   chars         256
2570                   dimension     2
2571                   columns       2
2572                   graphic       2
2573                   direction     l2r
2574                   mother        =gt-k))
2575   (make-charset '===gt-k
2576                 "Representative glyph-images of GT-K"
2577                 '(long-name     "GT-K glyph-images"
2578                   chars         256
2579                   dimension     2
2580                   columns       2
2581                   graphic       2
2582                   direction     l2r
2583                   mother        ==gt-k))
2584   (make-charset '=>>gt-k
2585                 "abstract glyphs of GT-K"
2586                 '(long-name     "GT-K abstract glyphs"
2587                   chars         256
2588                   dimension     2
2589                   columns       2
2590                   graphic       2
2591                   direction     l2r
2592                   mother        =gt-k))
2593   (make-charset '=>gt-k
2594                 "GT-K abstract characters"
2595                 '(long-name     "GT-K abstract characters"
2596                   chars         256
2597                   dimension     2
2598                   columns       2
2599                   graphic       2
2600                   direction     l2r
2601                   mother        =>>gt-k))
2602   (let ((i 1))
2603     (while (<= i 11)
2604       (make-charset
2605        (intern (format "=gt-pj-%d" i))
2606        (format "GT 2000 (pseudo JIS encoding) part %d" i)
2607        `(long-name ,(format "GT PJ %d" i)
2608                    chars 94
2609                    dimension 2
2610                    columns 2
2611                    graphic 0
2612                    direction l2r
2613                    registry ,(format "\\(GTpj-%d\\|jisx0208\\.GT-%d\\)$" i i)))
2614       (define-charset-alias
2615         (intern (format "ideograph-gt-pj-%d" i))
2616         (intern (format "=gt-pj-%d" i)))
2617       (setq i (1+ i))))
2618   (make-charset
2619    '=gt-pj-k1
2620    "Ideographic parts of GT (pseudo JIS encoding) part 1"
2621    '(long-name "GT K1"
2622                chars 94
2623                dimension 2
2624                columns 2
2625                graphic 0
2626                direction l2r
2627                registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$"))
2628   (define-charset-alias 'ideograph-gt-pj-k1 '=gt-pj-k1)
2629   (make-charset
2630    '==gt-pj-k1
2631    "Ideographic parts of GT (pseudo JIS encoding) part 1"
2632    '(long-name "GT K1"
2633                chars 94
2634                dimension 2
2635                columns 2
2636                graphic 0
2637                direction l2r
2638                registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$"))
2639   (make-charset
2640    '=gt-pj-k2
2641    "Ideographic parts of GT (pseudo JIS encoding) part 2"
2642    '(long-name "GT K2"
2643                chars 94
2644                dimension 2
2645                columns 2
2646                graphic 0
2647                direction l2r
2648                registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$"))
2649   (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2)
2650   (make-charset
2651    '==gt-pj-k2
2652    "Ideographic parts of GT (pseudo JIS encoding) part 2"
2653    '(long-name "GT K2"
2654                chars 94
2655                dimension 2
2656                columns 2
2657                graphic 0
2658                direction l2r
2659                registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$"))
2660
2661   (make-charset '=daikanwa
2662                 "Daikanwa dictionary (unchanged part)"
2663                 `(long-name     "Daikanwa"
2664                   chars         256
2665                   dimension     2
2666                   columns       2
2667                   graphic       2
2668                   direction     l2r
2669                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2670                   min-code      #xE00000
2671                   max-code      ,(+ #xE00000 50100)
2672                   code-offset   #xE00000))
2673   (define-charset-alias 'ideograph-daikanwa '=daikanwa)
2674
2675   (make-charset '=daikanwa@rev1
2676                 "Daikanwa dictionary (revised version)"
2677                 '(long-name     "Daikanwa Rev."
2678                   chars         256
2679                   dimension     2
2680                   columns       2
2681                   graphic       2
2682                   direction     l2r
2683                   registry      "Daikanwa\\(\\.[0-9]+\\)?-2"
2684                   mother        =daikanwa))
2685   (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa@rev1)
2686   (define-charset-alias '=daikanwa-rev1 '=daikanwa@rev1)
2687
2688   (make-charset '=daikanwa@rev2
2689                 "Daikanwa dictionary (revised version 2)"
2690                 '(long-name     "Daikanwa"
2691                   chars         256
2692                   dimension     2
2693                   columns       2
2694                   graphic       2
2695                   direction     l2r
2696                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2697                   mother        =daikanwa
2698                   min-code      1
2699                   max-code      49964))
2700   (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2)
2701
2702   (make-charset '=daikanwa/+p
2703                 "Daikanwa dictionary (ddddd')"
2704                 '(long-name     "Daikanwa ddddd'"
2705                   chars         256
2706                   dimension     2
2707                   columns       2
2708                   graphic       2
2709                   direction     l2r))
2710   (make-charset '=daikanwa/+2p
2711                 "Daikanwa dictionary (ddddd'')"
2712                 '(long-name     "Daikanwa ddddd''"
2713                   chars         256
2714                   dimension     2
2715                   columns       2
2716                   graphic       2
2717                   direction     l2r))
2718   (make-charset '=daikanwa/ho
2719                 "Daikanwa dictionary (Hokan)"
2720                 '(long-name     "Daikanwa-ho"
2721                   chars         256
2722                   dimension     2
2723                   columns       2
2724                   graphic       2
2725                   direction     l2r))
2726
2727   (make-charset '==daikanwa
2728                 "Daikanwa glyph-images."
2729                 '(long-name     "Daikanwa glyph-images"
2730                   chars         256
2731                   dimension     2
2732                   columns       2
2733                   graphic       2
2734                   direction     l2r
2735                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2736                   mother        =daikanwa))
2737   (make-charset '==daikanwa/+p
2738                 "Daikanwa detailed glyph-images (ddddd')"
2739                 '(long-name     "Daikanwa detailed glyphs-images (ddddd')"
2740                   chars         256
2741                   dimension     2
2742                   columns       2
2743                   graphic       2
2744                   direction     l2r
2745                   mother        =daikanwa/+p))
2746   (make-charset '==daikanwa/+2p
2747                 "Daikanwa detailed glyph-images (ddddd'')"
2748                 '(long-name     "Daikanwa glyph-images ddddd''"
2749                   chars         256
2750                   dimension     2
2751                   columns       2
2752                   graphic       2
2753                   direction     l2r
2754                   mother        =daikanwa/+2p))
2755   (make-charset '==daikanwa/ho
2756                 "Daikanwa detailed glyph-images (Hokan)"
2757                 '(long-name     "Daikanwa-ho detailed glyph-images"
2758                   chars         256
2759                   dimension     2
2760                   columns       2
2761                   graphic       2
2762                   direction     l2r
2763                   mother        =daikanwa/ho))
2764
2765   (make-charset '===daikanwa
2766                 "Daikanwa detailed glyph-images."
2767                 '(long-name     "Daikanwa detailed glyph-images"
2768                   chars         256
2769                   dimension     2
2770                   columns       2
2771                   graphic       2
2772                   direction     l2r
2773                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2774                   mother        ==daikanwa))
2775   (make-charset '===daikanwa/+p
2776                 "Daikanwa detailed glyph-images (ddddd')"
2777                 '(long-name     "Daikanwa detailed glyphs-images (ddddd')"
2778                   chars         256
2779                   dimension     2
2780                   columns       2
2781                   graphic       2
2782                   direction     l2r
2783                   mother        ==daikanwa/+p))
2784   (make-charset '===daikanwa/ho
2785                 "Daikanwa detailed glyph-images (Hokan)"
2786                 '(long-name     "Daikanwa-ho detailed glyph-images"
2787                   chars         256
2788                   dimension     2
2789                   columns       2
2790                   graphic       2
2791                   direction     l2r
2792                   mother        ==daikanwa/ho))
2793
2794   (make-charset '=>>daikanwa
2795                 "Daikanwa abstract glyphs"
2796                 '(long-name     "Daikanwa glyphs"
2797                   chars         256
2798                   dimension     2
2799                   columns       2
2800                   graphic       2
2801                   direction     l2r
2802                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2803                   mother        =daikanwa))
2804   (make-charset '=>>daikanwa/+p
2805                 "Daikanwa abstract glyphs (ddddd')"
2806                 '(long-name     "Daikanwa glyphs (ddddd')"
2807                   chars         256
2808                   dimension     2
2809                   columns       2
2810                   graphic       2
2811                   direction     l2r
2812                   mother        =daikanwa/+p))
2813   (make-charset '=>>daikanwa/+2p
2814                 "Daikanwa abstract glyphs (ddddd'')"
2815                 '(long-name     "Daikanwa glyphs (ddddd'')"
2816                   chars         256
2817                   dimension     2
2818                   columns       2
2819                   graphic       2
2820                   direction     l2r
2821                   mother        =daikanwa/+2p))
2822   (make-charset '=>>daikanwa/ho
2823                 "Daikanwa abstract glyphs (Hokan)"
2824                 '(long-name     "Daikanwa-ho glyph"
2825                   chars         256
2826                   dimension     2
2827                   columns       2
2828                   graphic       2
2829                   direction     l2r
2830                   mother        =daikanwa/ho))
2831
2832   (make-charset '=>daikanwa
2833                 "Daikanwa abstract characters"
2834                 '(long-name     "abstract Daikanwa"
2835                   chars         256
2836                   dimension     2
2837                   columns       2
2838                   graphic       2
2839                   direction     l2r
2840                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2841                   mother        =>>daikanwa))
2842   (make-charset '=>daikanwa/ho
2843                 "Daikanwa abstract characters (Hokan)"
2844                 '(long-name     "abstract Daikanwa-ho"
2845                   chars         256
2846                   dimension     2
2847                   columns       2
2848                   graphic       2
2849                   direction     l2r
2850                   mother        =>>daikanwa/ho))
2851
2852   (make-charset '=shinjigen
2853                 "Kadokawa ShinJigen dictionary (common parts)"
2854                 `(long-name     "Shinjigen common parts"
2855                   chars         256
2856                   dimension     2
2857                   columns       2
2858                   graphic       2
2859                   direction     l2r
2860                   registry      "Shinjigen\\(\\.[0-9]+\\)?-*"))
2861
2862   (make-charset '=shinjigen@1ed
2863                 "Kadokawa ShinJigen dictionary (the first edition)"
2864                 `(long-name     "Shinjigen-1"
2865                   chars         256
2866                   dimension     2
2867                   columns       2
2868                   graphic       2
2869                   direction     l2r
2870                   mother        =shinjigen
2871                   registry      "Shinjigen\\(\\.[0-9]+\\)?-1"))
2872   (define-charset-alias 'shinjigen-1 '=shinjigen@1ed)
2873
2874   (make-charset '=shinjigen@1ed/24pr
2875                 "Kadokawa ShinJigen dictionary (the 24th impression)"
2876                 `(long-name     "Shinjigen-1 24pr"
2877                   chars         256
2878                   dimension     2
2879                   columns       2
2880                   graphic       2
2881                   direction     l2r
2882                   mother        =shinjigen@1ed))
2883
2884   (make-charset '=shinjigen@rev
2885                 "Kadokawa ShinJigen dictionary (the revised edition)"
2886                 `(long-name     "Shinjigen-2"
2887                   chars         256
2888                   dimension     2
2889                   columns       2
2890                   graphic       2
2891                   direction     l2r
2892                   mother        =shinjigen
2893                   registry      "Shinjigen\\(\\.[0-9]+\\)?-2"))
2894   (define-charset-alias 'shinjigen-2 '=shinjigen@rev)
2895   (make-charset '=shinjigen/+p@rev
2896                 "ShinJigen (the second edition) number with '"
2897                 `(long-name     "Shinjigen-2 with '"
2898                   chars         256
2899                   dimension     2
2900                   columns       2
2901                   graphic       2
2902                   direction     l2r))
2903   (define-charset-alias 'shinjigen-2-p '=shinjigen/+p@rev)
2904
2905   (make-charset '==shinjigen
2906                 "Detailed glyph-images of ShinJigen (common parts)"
2907                 '(long-name     "Shinjigen common parts"
2908                   chars         256
2909                   dimension     2
2910                   columns       2
2911                   graphic       2
2912                   direction     l2r
2913                   mother        =shinjigen
2914                   registry      "Shinjigen\\(\\.[0-9]+\\)?-*"))
2915   (make-charset '==shinjigen@1ed
2916                 "Detailed glyph-images of ShinJigen (the first edition)"
2917                 '(long-name     "Detailed glyph-images of Shinjigen-1"
2918                   chars         256
2919                   dimension     2
2920                   columns       2
2921                   graphic       2
2922                   direction     l2r
2923                   mother        ==shinjigen
2924                   registry      "Shinjigen\\(\\.[0-9]+\\)?-1"))
2925   (make-charset '==shinjigen@rev
2926                 "Detailed glyph-images of ShinJigen (the revised edition)"
2927                 '(long-name     "Detailed glyph-images of Shinjigen-2"
2928                   chars         256
2929                   dimension     2
2930                   columns       2
2931                   graphic       2
2932                   direction     l2r
2933                   mother        ==shinjigen
2934                   registry      "Shinjigen\\(\\.[0-9]+\\)?-2"))
2935   (make-charset
2936    '==shinjigen/+p@rev
2937    "Detailed glyph-images of ShinJigen (the second edition) number with '"
2938    '(long-name  "Detailed glyph-images of Shinjigen-2 with '"
2939                 mother  =shinjigen/+p@rev
2940                 chars           256
2941                 dimension       2
2942                 columns 2
2943                 graphic 2
2944                 direction       l2r))
2945
2946   (make-charset '=big5-pua
2947                 "Big5 with private used area"
2948                 '(long-name     "Big5-PUA"
2949                   chars         256
2950                   dimension     2
2951                   columns       2
2952                   graphic       2
2953                   direction     l2r
2954                   mother        chinese-big5
2955                   registry      "Big5\\.ETEN"))
2956   (define-charset-alias 'chinese-big5-pua '=big5-pua)
2957
2958   (let* ((i 1)
2959          (hzk-min (+ (lsh #x6200 16) 65536))
2960          (hzk-max (+ hzk-min 65535)))
2961     (while (<= i 12)
2962       (make-charset
2963        (intern (format "=hanziku-%d" i))
2964        (format "HANZIKU (pseudo BIG5 encoding) part %d" i)
2965        `(long-name ,(format "HANZIKU-%d" i)
2966                    chars 256
2967                    dimension 2
2968                    columns 2
2969                    graphic 2
2970                    direction l2r
2971                    registry ,(format "hanziku-%d$" i i)
2972                    min-code ,hzk-min
2973                    max-code ,hzk-max
2974                    code-offset ,hzk-min))
2975       (define-charset-alias
2976         (intern (format "ideograph-hanziku-%d" i))
2977         (intern (format "=hanziku-%d" i)))
2978       (setq hzk-min (1+ hzk-max)
2979             hzk-max (+ hzk-min 65535))
2980       (setq i (1+ i))))
2981
2982   (make-charset '===hng-jou "HNG:誠實論卷八(P.2179)"
2983                 '(long-name "HNG/P2179"
2984                   chars         256
2985                   dimension     2
2986                   registry      "hng-1$"
2987                   graphic       2
2988                   columns       2
2989                   direction     l2r))
2990   (make-charset '===hng-keg "HNG:華嚴經卷十六(S.2067)"
2991                 '(long-name "HNG/S2067"
2992                   chars         256
2993                   dimension     2
2994                   registry      "hng-2$"
2995                   graphic       2
2996                   columns       2
2997                   direction     l2r))
2998   (make-charset '===hng-dng "HNG:大般涅槃經卷十一(S.81)"
2999                 '(long-name "HNG/S81"
3000                   chars         256
3001                   dimension     2
3002                   registry      "hng-3$"
3003                   graphic       2
3004                   columns       2
3005                   direction     l2r))
3006   (make-charset '===hng-mam "HNG:摩訶摩耶經卷上(P.2160)"
3007                 '(long-name "HNG/P2160"
3008                   chars         256
3009                   dimension     2
3010                   registry      "hng-5$"
3011                   graphic       2
3012                   columns       2
3013                   direction     l2r))
3014   (make-charset '===hng-drt "HNG:大樓炭經卷三(P.2413)"
3015                 '(long-name "HNG/P2413"
3016                   chars         256
3017                   dimension     2
3018                   registry      "hng-6$"
3019                   graphic       2
3020                   columns       2
3021                   direction     l2r))
3022   (make-charset '===hng-kgk "HNG:賢劫經卷二(正倉院本)"
3023                 '(long-name "HNG/賢劫經二"
3024                   chars         256
3025                   dimension     2
3026                   registry      "hng-7$"
3027                   graphic       2
3028                   columns       2
3029                   direction     l2r))
3030   (make-charset '===hng-myz "HNG:妙法蓮華經卷五(P.2334)"
3031                 '(long-name "HNG/P2334"
3032                   chars         256
3033                   dimension     2
3034                   registry      "hng-8$"
3035                   graphic       2
3036                   columns       2
3037                   direction     l2r))
3038   (make-charset '===hng-kda "HNG:大品經卷二十八(京都国立博物館本)"
3039                 '(long-name "HNG/京博大品"
3040                   chars         256
3041                   dimension     2
3042                   registry      "hng-9$"
3043                   graphic       2
3044                   columns       2
3045                   direction     l2r))
3046   (make-charset '===hng-khi "HNG:妙法蓮華經卷五(今西本)"
3047                 '(long-name "HNG/宮廷今西"
3048                   chars         256
3049                   dimension     2
3050                   registry      "hng-10$"
3051                   graphic       2
3052                   columns       2
3053                   direction     l2r))
3054   (make-charset '===hng-khm "HNG:妙法蓮華經卷三(守屋本)"
3055                 '(long-name "HNG/宮廷守屋"
3056                   chars         256
3057                   dimension     2
3058                   registry      "hng-11$"
3059                   graphic       2
3060                   columns       2
3061                   direction     l2r))
3062   (make-charset '===hng-hok "HNG:妙法蓮華經卷八(S.2577)"
3063                 '(long-name "HNG/S2577"
3064                   chars         256
3065                   dimension     2
3066                   registry      "hng-13$"
3067                   graphic       2
3068                   columns       2
3069                   direction     l2r))
3070   (make-charset '===hng-kyd "HNG:漢書楊雄傳(上野本)"
3071                 '(long-name "HNG/漢書楊雄"
3072                   chars         256
3073                   dimension     2
3074                   registry      "hng-14$"
3075                   graphic       2
3076                   columns       2
3077                   direction     l2r))
3078   (make-charset '===hng-sok "HNG:花嚴經卷八(守屋本)"
3079                 '(long-name "HNG/花嚴守屋"
3080                   chars         256
3081                   dimension     2
3082                   registry      "hng-15$"
3083                   graphic       2
3084                   columns       2
3085                   direction     l2r))
3086   (make-charset '===hng-yhk "HNG:瑜伽法鏡經(S.2423)"
3087                 '(long-name "HNG/S2423"
3088                   chars         256
3089                   dimension     2
3090                   registry      "hng-16$"
3091                   graphic       2
3092                   columns       2
3093                   direction     l2r))
3094   (make-charset '===hng-kak "HNG:開成石經孝經"
3095                 '(long-name "HNG/開成孝經"
3096                   chars         256
3097                   dimension     2
3098                   registry      "hng-17$"
3099                   graphic       2
3100                   columns       2
3101                   direction     l2r))
3102   (make-charset '===hng-kar "HNG:開成石經論語"
3103                 '(long-name "HNG/開成論語"
3104                   chars         256
3105                   dimension     2
3106                   registry      "hng-18$"
3107                   graphic       2
3108                   columns       2
3109                   direction     l2r))
3110   (make-charset '===hng-kae "HNG:開成石經周易"
3111                 '(long-name "HNG/開成周易"
3112                   chars         256
3113                   dimension     2
3114                   registry      "hng-19$"
3115                   graphic       2
3116                   columns       2
3117                   direction     l2r))
3118   (make-charset '===hng-sys "HNG:瑜伽師地論卷三十(S.5309)"
3119                 '(long-name "HNG/S5309"
3120                   chars         256
3121                   dimension     2
3122                   registry      "hng-22$"
3123                   graphic       2
3124                   columns       2
3125                   direction     l2r))
3126   (make-charset '===hng-tsu "HNG:通典卷一"
3127                 '(long-name "HNG/通典卷一"
3128                   chars         256
3129                   dimension     2
3130                   registry      "hng-24$"
3131                   graphic       2
3132                   columns       2
3133                   direction     l2r))
3134   (make-charset '===hng-tzj "HNG:阿毘達磨毘婆沙論卷百七(東禪寺版)"
3135                 '(long-name "HNG/東禪毘婆"
3136                   chars         256
3137                   dimension     2
3138                   registry      "hng-25$"
3139                   graphic       2
3140                   columns       2
3141                   direction     l2r))
3142   (make-charset '===hng-hos "HNG:齊民要術卷五(高山寺本)"
3143                 '(long-name "HNG/斉民要術"
3144                   chars         256
3145                   dimension     2
3146                   registry      "hng-26$"
3147                   graphic       2
3148                   columns       2
3149                   direction     l2r))
3150   (make-charset '===hng-nak "HNG:華嚴孔目(高山寺本)"
3151                 '(long-name "HNG/華厳孔目"
3152                   chars         256
3153                   dimension     2
3154                   registry      "hng-28$"
3155                   graphic       2
3156                   columns       2
3157                   direction     l2r))
3158   (make-charset '===hng-jhk "HNG:神足變化經(開元寺版)"
3159                 '(long-name "HNG/開元神足"
3160                   chars         256
3161                   dimension     2
3162                   registry      "hng-29$"
3163                   graphic       2
3164                   columns       2
3165                   direction     l2r))
3166   (make-charset '===hng-hod "HNG:法藏和尚傳(高山寺本)"
3167                 '(long-name "HNG/法藏和尚"
3168                   chars         256
3169                   dimension     2
3170                   registry      "hng-30$"
3171                   graphic       2
3172                   columns       2
3173                   direction     l2r))
3174   (make-charset '===hng-gok "HNG:後漢書光武帝紀"
3175                 '(long-name "HNG/光武帝紀"
3176                   chars         256
3177                   dimension     2
3178                   registry      "hng-31$"
3179                   graphic       2
3180                   columns       2
3181                   direction     l2r))
3182   (make-charset '===hng-ink "HNG:日本書紀 卷二十四(岩崎本)"
3183                 '(long-name "HNG/岩崎紀24"
3184                   chars         256
3185                   dimension     2
3186                   registry      "hng-33$"
3187                   graphic       2
3188                   columns       2
3189                   direction     l2r))
3190   (make-charset '===hng-nto "HNG:日本書紀 卷二十四(圖書寮本)"
3191                 '(long-name "HNG/圖書紀24"
3192                   chars         256
3193                   dimension     2
3194                   registry      "hng-34$"
3195                   graphic       2
3196                   columns       2
3197                   direction     l2r))
3198   (make-charset '===hng-nkm "HNG:日本書紀 卷二十四(兼右本)"
3199                 '(long-name "HNG/兼右紀24"
3200                   chars         256
3201                   dimension     2
3202                   registry      "hng-36$"
3203                   graphic       2
3204                   columns       2
3205                   direction     l2r))
3206   (make-charset '===hng-k24 "HNG:日本書紀 卷二十四(寛文九年版)"
3207                 '(long-name "HNG/寛九紀24"
3208                   chars         256
3209                   dimension     2
3210                   registry      "hng-37$"
3211                   graphic       2
3212                   columns       2
3213                   direction     l2r))
3214   (make-charset '===hng-nkk "HNG:日本書紀 卷二(兼方本)"
3215                 '(long-name "HNG/兼方紀2"
3216                   chars         256
3217                   dimension     2
3218                   registry      "hng-39$"
3219                   graphic       2
3220                   columns       2
3221                   direction     l2r))
3222   (make-charset '===hng-kcc "HNG:日本書紀 卷二(慶長勅版)"
3223                 '(long-name "HNG/勅版紀2"
3224                   chars         256
3225                   dimension     2
3226                   registry      "hng-41$"
3227                   graphic       2
3228                   columns       2
3229                   direction     l2r))
3230   (make-charset '===hng-kcj "HNG:日本書紀 卷二(慶長十五年版)"
3231                 '(long-name "HNG/慶長紀2"
3232                   chars         256
3233                   dimension     2
3234                   registry      "hng-42$"
3235                   graphic       2
3236                   columns       2
3237                   direction     l2r))
3238   (make-charset '===hng-kbk "HNG:日本書紀 卷二(寛文九年版)"
3239                 '(long-name "HNG/寛九紀2"
3240                   chars         256
3241                   dimension     2
3242                   registry      "hng-43$"
3243                   graphic       2
3244                   columns       2
3245                   direction     l2r))
3246   (make-charset '===hng-sik "HNG:花嚴經卷八(新羅本寫本)"
3247                 '(long-name "HNG/花嚴新羅"
3248                   chars         256
3249                   dimension     2
3250                   registry      "hng-44$"
3251                   graphic       2
3252                   columns       2
3253                   direction     l2r))
3254   (make-charset '===hng-skk "HNG:華嚴經卷二十(晉本高麗古版)"
3255                 '(long-name "HNG/古麗華20"
3256                   chars         256
3257                   dimension     2
3258                   registry      "hng-46$"
3259                   graphic       2
3260                   columns       2
3261                   direction     l2r))
3262   (make-charset '===hng-kyu "HNG:初麗瑜5"
3263                 '(long-name "HNG/瑜伽師地論卷五(高麗初彫本)"
3264                   chars         256
3265                   dimension     2
3266                   registry      "hng-47$"
3267                   graphic       2
3268                   columns       2
3269                   direction     l2r))
3270   (make-charset '===hng-ksk "HNG:華嚴經卷六(高麗再彫本)"
3271                 '(long-name "HNG/再麗華6"
3272                   chars         256
3273                   dimension     2
3274                   registry      "hng-48$"
3275                   graphic       2
3276                   columns       2
3277                   direction     l2r))
3278   (make-charset '===hng-wan "HNG:華嚴經卷三十八(趙氏藏本)"
3279                 '(long-name "HNG/和寧華38"
3280                   chars         256
3281                   dimension     2
3282                   registry      "hng-49$"
3283                   graphic       2
3284                   columns       2
3285                   direction     l2r))
3286   (make-charset '===hng-okd "HNG:金剛場陀羅尼經(小川本)"
3287                 '(long-name "HNG/金剛小川"
3288                   chars         256
3289                   dimension     2
3290                   registry      "hng-50$"
3291                   graphic       2
3292                   columns       2
3293                   direction     l2r))
3294   (make-charset '===hng-wad "HNG:大般若經卷二百五十(和銅經)"
3295                 '(long-name "HNG/和銅250"
3296                   chars         256
3297                   dimension     2
3298                   registry      "hng-54$"
3299                   graphic       2
3300                   columns       2
3301                   direction     l2r))
3302   (make-charset '===hng-kmi "HNG:弥勒上生經(高山寺本)"
3303                 '(long-name "HNG/弥勒上生"
3304                   chars         256
3305                   dimension     2
3306                   registry      "hng-55$"
3307                   graphic       2
3308                   columns       2
3309                   direction     l2r))
3310   (make-charset '===hng-zkd "HNG:續高僧傳(五月一日經)(天平寫經)"
3311                 '(long-name "HNG/五一續高"
3312                   chars         256
3313                   dimension     2
3314                   registry      "hng-56$"
3315                   graphic       2
3316                   columns       2
3317                   direction     l2r))
3318   (make-charset '===hng-doh "HNG:金剛大教王經卷一(高山寺本)"
3319                 '(long-name "HNG/金剛大教"
3320                   chars         256
3321                   dimension     2
3322                   registry      "hng-57$"
3323                   graphic       2
3324                   columns       2
3325                   direction     l2r))
3326   (make-charset '===hng-jyu "HNG:成唯識論卷十(寛治二年刊本)"
3327                 '(long-name "HNG/成唯識10"
3328                   chars         256
3329                   dimension     2
3330                   registry      "hng-58$"
3331                   graphic       2
3332                   columns       2
3333                   direction     l2r))
3334   (make-charset '===hng-tzs "HNG:佛説大教王經卷一(東禪寺版日本寫本)"
3335                 '(long-name "HNG/佛説大教"
3336                   chars         256
3337                   dimension     2
3338                   registry      "hng-60$"
3339                   graphic       2
3340                   columns       2
3341                   direction     l2r))
3342   (make-charset '===hng-kss "HNG:華嚴信種義(明惠自筆)"
3343                 '(long-name "HNG/華嚴信種"
3344                   chars         256
3345                   dimension     2
3346                   registry      "hng-64$"
3347                   graphic       2
3348                   columns       2
3349                   direction     l2r))
3350   (make-charset '===hng-kyo "HNG:教行信証卷四(親鸞自筆)"
3351                 '(long-name "HNG/教行信証"
3352                   chars         256
3353                   dimension     2
3354                   registry      "hng-66$"
3355                   graphic       2
3356                   columns       2
3357                   direction     l2r))
3358   (make-charset '===hng-smk "HNG:西夏版妙法蓮華經卷一"
3359                 '(long-name "HNG/西夏法華"
3360                   chars         256
3361                   dimension     2
3362                   registry      "hng-74$"
3363                   graphic       2
3364                   columns       2
3365                   direction     l2r))
3366
3367   (make-charset '=cbeta "CBETA private characters"
3368                 '(long-name     "CBETA PUA"
3369                   chars         256
3370                   dimension     2
3371                   registry      "cbeta-0"
3372                   graphic       2
3373                   min-code      #xE20000
3374                   max-code      #xE2FFFF
3375                   code-offset   #xE20000
3376                   columns       2
3377                   direction     l2r))
3378   (define-charset-alias 'ideograph-cbeta '=cbeta)
3379   (make-charset '==cbeta "CBETA private characters"
3380                 '(long-name     "CBETA PUA glyph-images"
3381                   chars         256
3382                   dimension     2
3383                   registry      "cbeta-0"
3384                   graphic       2
3385                   columns       2
3386                   direction     l2r
3387                   mother        =cbeta))
3388   (make-charset '===cbeta "CBETA private characters"
3389                 '(long-name     "CBETA PUA glyph-images"
3390                   chars         256
3391                   dimension     2
3392                   registry      "cbeta-0"
3393                   graphic       2
3394                   columns       2
3395                   direction     l2r
3396                   mother        ==cbeta))
3397   (make-charset '=>>cbeta "CBETA abstract glyphs"
3398                 '(long-name     "CBETA glyphs"
3399                   chars         256
3400                   dimension     2
3401                   registry      "cbeta-0"
3402                   graphic       2
3403                   columns       2
3404                   direction     l2r
3405                   mother        =cbeta))
3406   (make-charset '=>cbeta "CBETA abstract characters"
3407                 '(long-name     "CBETA characters"
3408                   chars         256
3409                   dimension     2
3410                   registry      "cbeta-0"
3411                   graphic       2
3412                   columns       2
3413                   direction     l2r
3414                   mother        =cbeta))
3415
3416   (make-charset '=zinbun-oracle
3417                 "Oracle Bones Script"
3418                 `(long-name     "Oracle Bones Script in Zinbun, Kyoto Univ."
3419                   chars         256
3420                   dimension     2
3421                   registry      "zob1968-0"
3422                   graphic       2
3423                   min-code      #xE70000
3424                   max-code      ,(+ #xE70000 8192)
3425                   code-offset   #xE70000
3426                   columns       2
3427                   direction     l2r))
3428
3429   (make-charset '=>zinbun-oracle
3430                 "Abstract Oracle Bones"
3431                 '(long-name     "Abstract characters of Zinbun Oracle Bones."
3432                   chars         256
3433                   dimension     2
3434                   mother        =zinbun-oracle
3435                   registry      "zob1968-0"
3436                   graphic       2
3437                   columns       2
3438                   direction     l2r))
3439
3440   (make-charset '=jef-china3
3441                 "JEF + CHINA3 private characters"
3442                 '(long-name     "JEF + CHINA3"
3443                   chars         256
3444                   dimension     2
3445                   columns       2
3446                   graphic       2
3447                   direction     l2r
3448                   registry      "china3jef-0"
3449                   min-code      #xE80000
3450                   max-code      #xE8FFFF
3451                   code-offset   #xE80000))
3452   (define-charset-alias 'china3-jef '=jef-china3)
3453   (make-charset '==jef-china3
3454                 "JEF + CHINA3 abstract glyph-images."
3455                 '(long-name     "JEF + CHINA3"
3456                   chars         256
3457                   dimension     2
3458                   columns       2
3459                   graphic       2
3460                   direction     l2r
3461                   registry      "china3jef-0"
3462                   mother        =jef-china3))
3463   (make-charset '===jef-china3
3464                 "JEF + CHINA3 glyph-images."
3465                 '(long-name     "JEF-CHINA3 glyph-images"
3466                   chars         256
3467                   dimension     2
3468                   columns       2
3469                   graphic       2
3470                   direction     l2r
3471                   registry      "china3jef-0"
3472                   mother        ==jef-china3))
3473
3474   (make-charset '=ruimoku-v6
3475                 "private characters used in RUIMOKU Version.6"
3476                 `(long-name     "RUI6"
3477                   chars         256
3478                   dimension     2
3479                   columns       2
3480                   graphic       2
3481                   direction     l2r
3482                   registry      "rui6-0"
3483                   ;; mother     ucs
3484                   min-code      #xE90000 ; #xE000
3485                   max-code      #xE908FF ; #xE8FF
3486                   code-offset   ,(- #xE90000 #xE000)))
3487   (make-charset '==ruimoku-v6
3488                 "RUIMOKU Version.6 glyph-images."
3489                 '(long-name     "RUI6 glyph-images."
3490                   chars         256
3491                   dimension     2
3492                   columns       2
3493                   graphic       2
3494                   direction     l2r
3495                   registry      "rui6-0"
3496                   mother        =ruimoku-v6))
3497   (make-charset '===ruimoku-v6
3498                 "RUIMOKU Version.6 representative glyph-images."
3499                 '(long-name     "RUI6 rep-glyph-images."
3500                   chars         256
3501                   dimension     2
3502                   columns       2
3503                   graphic       2
3504                   direction     l2r
3505                   registry      "rui6-0"
3506                   mother        ==ruimoku-v6))
3507   (make-charset '=>ruimoku-v6
3508                 "RUIMOKU Version.6 abstract characters."
3509                 '(long-name     "RUI6 characters."
3510                   chars         256
3511                   dimension     2
3512                   columns       2
3513                   graphic       2
3514                   direction     l2r
3515                   registry      "rui6-0"
3516                   mother        =ruimoku-v6))
3517   (define-charset-alias '=>>ruimoku-v6 '=>ruimoku-v6)
3518
3519   ;; (make-charset
3520   ;;  '=zihai
3521   ;;  "ZhongHua-ZiHai glyph-images"
3522   ;;  '(long-name "ZhongHua-ZiHai (pppp-nn)"
3523   ;;              chars 256
3524   ;;              dimension 3
3525   ;;              columns 2
3526   ;;              graphic 2
3527   ;;              direction l2r))
3528
3529   ;; (make-charset
3530   ;;  '=zihai-17xx
3531   ;;  "ZhongHua-ZiHai (pp.1700〜1781) glyph-images"
3532   ;;  '(long-name "ZhongHua-ZiHai pp.17xx"
3533   ;;              chars 256
3534   ;;              dimension 2
3535   ;;              columns 2
3536   ;;              graphic 2
3537   ;;              direction l2r
3538   ;;              registry "zihai\\.cp-17$"))
3539
3540   (make-charset '=big5-cdp-itaiji-001
3541                 "Big5-CDP-itaiji-001 glyphs of GlyphWiki"
3542                 '(long-name     "Big5-CDP-itaiji-001"
3543                   chars         256
3544                   dimension     2
3545                   columns       2
3546                   graphic       2
3547                   direction     l2r
3548                   registry      "cdp\\.itaiji-1$"
3549                   mother        =big5-cdp))
3550   (make-charset '=>big5-cdp-itaiji-001
3551                 "Big5-CDP-itaiji-001 abstract characters of GlyphWiki"
3552                 '(long-name     "Big5-CDP-itaiji-001"
3553                   chars         256
3554                   dimension     2
3555                   columns       2
3556                   graphic       2
3557                   direction     l2r
3558                   registry      "cdp\\.itaiji-1$"
3559                   mother        =big5-cdp-itaiji-001))
3560   (make-charset '==big5-cdp-itaiji-001
3561                 "Big5-CDP-itaiji-001 abstract glyph-image of GlyphWiki"
3562                 '(long-name     "Big5-CDP-itaiji-001"
3563                   chars         256
3564                   dimension     2
3565                   columns       2
3566                   graphic       2
3567                   direction     l2r
3568                   registry      "cdp\\.itaiji-1$"
3569                   mother        =big5-cdp-itaiji-001))
3570
3571   (make-charset '=big5-cdp-itaiji-002
3572                 "Big5-CDP-itaiji-002 glyphs of GlyphWiki"
3573                 '(long-name     "Big5-CDP-itaiji-002"
3574                   chars         256
3575                   dimension     2
3576                   columns       2
3577                   graphic       2
3578                   direction     l2r
3579                   registry      "cdp\\.itaiji-2$"
3580                   mother        =big5-cdp))
3581
3582   (make-charset '=big5-cdp-itaiji-003
3583                 "Big5-CDP-itaiji-003 glyphs of GlyphWiki"
3584                 '(long-name     "Big5-CDP-itaiji-003"
3585                   chars         256
3586                   dimension     2
3587                   columns       2
3588                   graphic       2
3589                   direction     l2r
3590                   registry      "cdp\\.itaiji-3$"
3591                   mother        =big5-cdp))
3592