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