lisp/mule/mule-conf.el

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