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