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