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

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