git.chise.org Git - chise/xemacs-chise.git.1/blob - lisp/mule/mule-conf.el

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