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

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