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-2
1533    "CNS 11643 Plane 2 abstract characters."
1534    '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1535               dimension 2
1536               chars 94
1537               mother =cns11643-2
1538               =>iso-ir 172
1539               graphic 0))
1540   (make-charset
1541    '=>cns11643-5
1542    "CNS 11643 Plane 5 abstract characters."
1543    '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
1544               dimension 2
1545               chars 94
1546               mother =cns11643-5
1547               =>iso-ir 185
1548               graphic 0))
1549   (make-charset
1550    '=>cns11643-6
1551    "CNS 11643 Plane 6 abstract characters."
1552    '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
1553               dimension 2
1554               chars 94
1555               mother =cns11643-6
1556               =>iso-ir 186
1557               graphic 0))
1558   (make-charset
1559    '=>cns11643-7
1560    "CNS 11643 Plane 7 abstract characters."
1561    '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
1562               dimension 2
1563               chars 94
1564               mother =cns11643-7
1565               =>iso-ir 187
1566               graphic 0))
1567
1568   (make-charset '=big5-eten
1569                 "Big5 ETEN"
1570                 '(long-name     "Big5-ETEN"
1571                   chars         256
1572                   dimension     2
1573                   columns       2
1574                   graphic       2
1575                   direction     l2r
1576                   mother        chinese-big5
1577                   min-code      #x8140
1578                   max-code      #xFEFE
1579                   registry      "Big5\\.ETEN"))
1580   (define-charset-alias 'chinese-big5-eten '=big5-eten)
1581   (make-charset 'chinese-big5-eten-a
1582                 "Big5 ETEN (#xF9D6 .. #xF9FE)"
1583                 '(long-name     "Big5-ETEN-a"
1584                   chars         256
1585                   dimension     2
1586                   columns       2
1587                   graphic       2
1588                   direction     l2r
1589                   mother        chinese-big5
1590                   min-code      #xF9D6
1591                   max-code      #xF9FE
1592                   registry      "Big5\\.ETEN"))
1593   (make-charset 'chinese-big5-eten-b
1594                 "Big5 ETEN (#xC6A1 .. #xC8FE)"
1595                 '(long-name     "Big5-ETEN-b"
1596                   chars         256
1597                   dimension     2
1598                   columns       2
1599                   graphic       2
1600                   direction     l2r
1601                   mother        chinese-big5
1602                   min-code      #xC6A1
1603                   max-code      #xC8FE
1604                   registry      "Big5\\.ETEN"))
1605
1606   (make-charset '=big5-cdp
1607                 "Big5 with CDP extension"
1608                 '(long-name     "Big5-CDP"
1609                   chars         256
1610                   dimension     2
1611                   columns       2
1612                   graphic       2
1613                   direction     l2r
1614                   registry      "big5\\.cdp-0"
1615                   mother        chinese-big5
1616                   min-code      #x8140
1617                   max-code      #x8DFE))
1618   (define-charset-alias 'chinese-big5-cdp '=big5-cdp)
1619
1620   (make-charset '==big5-cdp
1621                 "Abstract glyph-images of Big5-CDP"
1622                 '(long-name     "Big5-CDP glyph-forms"
1623                   chars         256
1624                   dimension     2
1625                   columns       2
1626                   graphic       2
1627                   direction     l2r
1628                   registry      "big5\\.cdp-0"
1629                   mother        =big5-cdp))
1630   (make-charset '===big5-cdp
1631                 "Representative glyph-images of Big5-CDP"
1632                 '(long-name     "Big5-CDP glyph-images"
1633                   chars         256
1634                   dimension     2
1635                   columns       2
1636                   graphic       2
1637                   direction     l2r
1638                   registry      "big5\\.cdp-0"
1639                   mother        ==big5-cdp))
1640
1641   (make-charset '=>>big5-cdp
1642                 "Abstract glyphs of Big5-CDP"
1643                 '(long-name     "Big5-CDP glyphs"
1644                   chars         256
1645                   dimension     2
1646                   columns       2
1647                   graphic       2
1648                   direction     l2r
1649                   registry      "big5\\.cdp-0"
1650                   mother        =big5-cdp))
1651
1652   (make-charset '=>big5-cdp
1653                 "Big5-CDP abstract characters"
1654                 '(long-name     "Big5-CDP abstract characters"
1655                   chars         256
1656                   dimension     2
1657                   columns       2
1658                   graphic       2
1659                   direction     l2r
1660                   registry      "big5\\.cdp-0"
1661                   mother        =>>big5-cdp))
1662
1663   (make-charset
1664    '=mj
1665    "Moji-Jouhou-Kiban characters"
1666    `(long-name "Moji-Jouhou-Kiban"
1667                chars 256
1668                dimension 3
1669                columns 2
1670                graphic 2
1671                direction l2r
1672                ;; registry "mj-0$"
1673                min-code     #xE30000
1674                max-code ,(+ #xE30000 68053)
1675                code-offset  #xE30000
1676                ;; min-code            ,(lsh #x6404 16)
1677                ;; max-code         ,(+ (lsh #x6404 16) 68053)
1678                ;; code-offset    ,(lsh #x6404 16)
1679                ))
1680   (make-charset
1681    '=mj-0
1682    "Moji-Jouhou-Kiban plane 0"
1683    '(long-name "Moji-Jouhou-Kiban-0"
1684                chars 256
1685                dimension 2
1686                columns 2
1687                graphic 2
1688                direction l2r
1689                registry "mj-0$"
1690                mother =mj
1691                min-code 0
1692                max-code #xFFFF))
1693   (make-charset
1694    '=mj-1
1695    "Moji-Jouhou-Kiban plane 1"
1696    '(long-name "Moji-Jouhou-Kiban-1"
1697                chars 256
1698                dimension 2
1699                columns 2
1700                graphic 2
1701                direction l2r
1702                registry "mj-1$"
1703                mother =mj
1704                min-code #x10000
1705                code-offset #x10000))
1706   (make-charset
1707    '=>mj
1708    "Moji-Jouhou-Kiban abstract characters"
1709    `(long-name "Moji-Jouhou-Kiban"
1710                chars 256
1711                dimension 3
1712                columns 2
1713                graphic 2
1714                direction l2r
1715                mother =mj
1716                ))
1717   (make-charset
1718    '=>mj-0
1719    "Moji-Jouhou-Kiban plane 0"
1720    '(long-name "Moji-Jouhou-Kiban-0"
1721                chars 256
1722                dimension 2
1723                columns 2
1724                graphic 2
1725                direction l2r
1726                registry "mj-0$"
1727                mother =>mj
1728                min-code 0
1729                max-code #xFFFF))
1730
1731   (make-charset
1732    '=hanyo-denshi/ja
1733    "JA (JIS X0208) part of Han'you-Denshi characters"
1734    `(long-name "Han'you-Denshi/JA"
1735                chars 94
1736                dimension 2
1737                columns 2
1738                graphic 2
1739                direction l2r
1740                registry "HanyoDenshi\\.JA-0$"
1741                min-code ,(lsh #x6400 16)
1742                max-code ,(+ (lsh #x6400 16) (1- (* 94 94)))
1743                code-offset ,(lsh #x6400 16)))
1744   (make-charset
1745    '=hanyo-denshi/jb
1746    "JB (JIS X0212) part of Han'you-Denshi characters"
1747    `(long-name "Han'you-Denshi/JB"
1748                chars 94
1749                dimension 2
1750                columns 2
1751                graphic 2
1752                direction l2r
1753                registry "HanyoDenshi\\.JB-0$"
1754                min-code    ,(+ (lsh #x6400 16) (* 94 94))
1755                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 2)))
1756                code-offset ,(+ (lsh #x6400 16) (* 94 94))))
1757   (make-charset
1758    '=hanyo-denshi/jc
1759    "JC (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
1760    `(long-name "Han'you-Denshi/JC"
1761                chars 94
1762                dimension 2
1763                columns 2
1764                graphic 2
1765                direction l2r
1766                registry "HanyoDenshi\\.JC-0$"
1767                min-code    ,(+ (lsh #x6400 16) (* 94 94 2))
1768                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 3)))
1769                code-offset ,(+ (lsh #x6400 16) (* 94 94 2))))
1770   (make-charset
1771    '=hanyo-denshi/jd
1772    "JD (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
1773    `(long-name "Han'you-Denshi/JD"
1774                chars 94
1775                dimension 2
1776                columns 2
1777                graphic 2
1778                direction l2r
1779                registry "HanyoDenshi\\.JD-0$"
1780                min-code    ,(+ (lsh #x6400 16) (* 94 94 3))
1781                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 4)))
1782                code-offset ,(+ (lsh #x6400 16) (* 94 94 3))))
1783   (make-charset
1784    '=hanyo-denshi/ft
1785    "FT (FDPC additional) part of Han'you-Denshi characters"
1786    `(long-name "Han'you-Denshi/FT"
1787                chars 94
1788                dimension 2
1789                columns 2
1790                graphic 2
1791                direction l2r
1792                registry "HanyoDenshi\\.FT-0$"
1793                min-code    ,(+ (lsh #x6400 16) (* 94 94 4))
1794                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 5)))
1795                code-offset ,(+ (lsh #x6400 16) (* 94 94 4))))
1796   (make-charset
1797    '=hanyo-denshi/ia
1798    "IA part of Han'you-Denshi characters"
1799    `(long-name "Han'you-Denshi/IA"
1800                chars 94
1801                dimension 2
1802                columns 2
1803                graphic 2
1804                direction l2r
1805                registry "HanyoDenshi\\.IA-0$"
1806                min-code    ,(+ (lsh #x6400 16) (* 94 94 5))
1807                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 6)))
1808                code-offset ,(+ (lsh #x6400 16) (* 94 94 5))))
1809   (make-charset
1810    '=hanyo-denshi/ib
1811    "IB part of Han'you-Denshi characters"
1812    `(long-name "Han'you-Denshi/IB"
1813                chars 94
1814                dimension 2
1815                columns 2
1816                graphic 2
1817                direction l2r
1818                registry "HanyoDenshi\\.IB-0$"
1819                min-code    ,(+ (lsh #x6400 16) (* 94 94 6))
1820                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 7)))
1821                code-offset ,(+ (lsh #x6400 16) (* 94 94 6))))
1822   (make-charset
1823    '=hanyo-denshi/hg
1824    "HG (HyouGai Kanji) part of Han'you-Denshi characters"
1825    `(long-name "Han'you-Denshi/HG"
1826                chars 94
1827                dimension 2
1828                columns 2
1829                graphic 2
1830                direction l2r
1831                registry "HanyoDenshi\\.HG-0$"
1832                min-code    ,(+ (lsh #x6400 16) (* 94 94 7))
1833                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 8)))
1834                code-offset ,(+ (lsh #x6400 16) (* 94 94 7))))
1835   (make-charset
1836    '=hanyo-denshi/ip
1837    "IP (for IPA) part of Han'you-Denshi characters"
1838    `(long-name "Han'you-Denshi/IP"
1839                chars 256
1840                dimension 2
1841                columns 2
1842                graphic 2
1843                direction l2r
1844                registry "HanyoDenshi\\.IP-0$"
1845                min-code    ,(+ (lsh #x6402 16) #x4E00)
1846                max-code    ,(+ (lsh #x6402 16) #x9FFF)
1847                code-offset ,(+ (lsh #x6402 16))))
1848   (make-charset
1849    '=hanyo-denshi/jt
1850    "JT (Juuki Touitsu Moji) part of Han'you-Denshi characters"
1851    `(long-name "Han'you-Denshi/JT"
1852                chars 256
1853                dimension 2
1854                columns 2
1855                graphic 2
1856                direction l2r
1857                registry "HanyoDenshi\\.JT-0$"
1858                min-code    ,(+ (lsh #x6402 16) #xAC00)
1859                max-code    ,(+ (lsh #x6402 16) #xD7AF)
1860                code-offset ,(+ (lsh #x6402 16))))
1861   (make-charset
1862    '=hanyo-denshi/ks
1863    "KS (KoSeki) part of Han'you-Denshi characters"
1864    `(long-name "Han'you-Denshi/KS"
1865                chars 256
1866                dimension 3
1867                columns 2
1868                graphic 2
1869                direction l2r))
1870   (make-charset
1871    '=hanyo-denshi/tk
1872    "TK (TouKi) part of Han'you-Denshi characters"
1873    `(long-name "Han'you-Denshi/TK"
1874                chars 256
1875                dimension 3
1876                columns 2
1877                graphic 2
1878                direction l2r))
1879
1880   (make-charset
1881    '==mj
1882    "Moji-Jouhou-Kiban detailed glyph-images."
1883    '(long-name "MJ glyph-images"
1884                chars 256
1885                dimension 2
1886                columns 2
1887                graphic 2
1888                direction l2r
1889                mother =mj))
1890   (make-charset
1891    '==mj-0
1892    "MJ detailed glyph-images plane 0"
1893    '(long-name "MJ glyph-images-0"
1894                chars 256
1895                dimension 2
1896                columns 2
1897                graphic 2
1898                direction l2r
1899                registry "mj-0$"
1900                mother ==mj
1901                min-code 0
1902                max-code #xFFFF))
1903   (make-charset
1904    '==mj-1
1905    "MJ detailed glyph-images plane 1"
1906    '(long-name "MJ glyph-images-1"
1907                chars 256
1908                dimension 2
1909                columns 2
1910                graphic 2
1911                direction l2r
1912                registry "mj-1$"
1913                mother ==mj
1914                min-code #x10000
1915                code-offset #x10000))
1916
1917   (make-charset
1918    '==hanyo-denshi/ja
1919    "Han'you-Denshi/JA abstract glyph-forms."
1920    '(long-name "Han'you-Denshi/JA glyph-forms"
1921                chars 94
1922                dimension 2
1923                columns 2
1924                graphic 2
1925                direction l2r
1926                registry "HanyoDenshi\\.JA-0$"
1927                mother =hanyo-denshi/ja))
1928   (make-charset
1929    '==hanyo-denshi/jb
1930    "Han'you-Denshi/JB abstract glyph-forms."
1931    '(long-name "Han'you-Denshi/JB glyph-forms"
1932                chars 94
1933                dimension 2
1934                columns 2
1935                graphic 2
1936                direction l2r
1937                registry "HanyoDenshi\\.JB-0$"
1938                mother =hanyo-denshi/jb))
1939   (make-charset
1940    '==hanyo-denshi/jc
1941    "Han'you-Denshi/JC abstract glyph-forms."
1942    '(long-name "Han'you-Denshi/JC glyph-forms"
1943                chars 94
1944                dimension 2
1945                columns 2
1946                graphic 2
1947                direction l2r
1948                registry "HanyoDenshi\\.JC-0$"
1949                mother =hanyo-denshi/jc))
1950   (make-charset
1951    '==hanyo-denshi/jd
1952    "Han'you-Denshi/JD abstract glyph-forms."
1953    '(long-name "Han'you-Denshi/JD glyph-forms"
1954                chars 94
1955                dimension 2
1956                columns 2
1957                graphic 2
1958                direction l2r
1959                registry "HanyoDenshi\\.JD-0$"
1960                mother =hanyo-denshi/jd))
1961   (make-charset
1962    '==hanyo-denshi/ft
1963    "Han'you-Denshi/FT abstract glyph-forms."
1964    '(long-name "Han'you-Denshi/FT glyph-forms"
1965                chars 94
1966                dimension 2
1967                columns 2
1968                graphic 2
1969                direction l2r
1970                registry "HanyoDenshi\\.FT-0$"
1971                mother =hanyo-denshi/ft))
1972   (make-charset
1973    '==hanyo-denshi/ia
1974    "Han'you-Denshi/IA abstract glyph-forms."
1975    '(long-name "Han'you-Denshi/IA glyph-images"
1976                chars 94
1977                dimension 2
1978                columns 2
1979                graphic 2
1980                direction l2r
1981                registry "HanyoDenshi\\.IA-0$"
1982                mother =hanyo-denshi/ia))
1983   (make-charset
1984    '==hanyo-denshi/ib
1985    "Han'you-Denshi/IB abstract glyph-forms."
1986    '(long-name "Han'you-Denshi/IB glyph-forms"
1987                chars 94
1988                dimension 2
1989                columns 2
1990                graphic 2
1991                direction l2r
1992                registry "HanyoDenshi\\.IB-0$"
1993                mother =hanyo-denshi/ib))
1994   (make-charset
1995    '==hanyo-denshi/hg
1996    "Han'you-Denshi/HG abstract glyph-forms."
1997    '(long-name "Han'you-Denshi/HG glyph-forms"
1998                chars 94
1999                dimension 2
2000                columns 2
2001                graphic 2
2002                direction l2r
2003                registry "HanyoDenshi\\.HG-0$"
2004                mother =hanyo-denshi/hg))
2005   (make-charset
2006    '==hanyo-denshi/ip
2007    "Han'you-Denshi/IP abstract glyph-forms."
2008    '(long-name "Han'you-Denshi/IP glyph-images"
2009                chars 256
2010                dimension 2
2011                columns 2
2012                graphic 2
2013                direction l2r
2014                registry "HanyoDenshi\\.IP-0$"
2015                mother =hanyo-denshi/ip))
2016   (make-charset
2017    '==hanyo-denshi/jt
2018    "JT (Juuki Touitsu Moji) abstract glyph-forms."
2019    '(long-name "Han'you-Denshi/JT glyph-forms"
2020                chars 256
2021                dimension 2
2022                columns 2
2023                graphic 2
2024                direction l2r
2025                registry "HanyoDenshi\\.JT-0$"
2026                mother =hanyo-denshi/jt))
2027   (make-charset
2028    '==hanyo-denshi/ks
2029    "KoSeki-touitsu-moji abstract glyph-forms."
2030    '(long-name "Han'you-Denshi/KS glyph-forms"
2031                chars 256
2032                dimension 3
2033                columns 2
2034                graphic 2
2035                direction l2r
2036                mother =hanyo-denshi/ks))
2037   (make-charset
2038    '==hanyo-denshi/tk
2039    "TK (TouKi) part of Han'you-Denshi abstract glyph-forms."
2040    `(long-name "Han'you-Denshi/TK glyph-forms"
2041                chars 256
2042                dimension 3
2043                columns 2
2044                graphic 2
2045                direction l2r
2046                mother =hanyo-denshi/tk))
2047
2048   (make-charset
2049    '=koseki
2050    "Abstract glyph-forms of KoSeki-touitsu-moji."
2051    '(long-name "KoSeki-touitsu-moji glyph-forms"
2052                chars 256
2053                dimension 3
2054                columns 2
2055                graphic 2
2056                direction l2r
2057                mother =hanyo-denshi/ks))
2058   (make-charset
2059    '==koseki
2060    "Representative glyph-images of KoSeki-touitsu-moji."
2061    '(long-name "KoSeki-touitsu-moji glyph-images"
2062                chars 256
2063                dimension 3
2064                columns 2
2065                graphic 2
2066                direction l2r
2067                mother =koseki))
2068
2069   (define-charset-alias '=>>>hanyo-denshi/ja '==hanyo-denshi/ja)
2070   (define-charset-alias '=>>>hanyo-denshi/jb '==hanyo-denshi/jb)
2071   (define-charset-alias '=>>>hanyo-denshi/jc '==hanyo-denshi/jc)
2072   (define-charset-alias '=>>>hanyo-denshi/jd '==hanyo-denshi/jd)
2073   (define-charset-alias '=>>>hanyo-denshi/ft '==hanyo-denshi/ft)
2074   (define-charset-alias '=>>>hanyo-denshi/ib '==hanyo-denshi/ib)
2075   (define-charset-alias '=>>>hanyo-denshi/hg '==hanyo-denshi/hg)
2076   (define-charset-alias '=>>>hanyo-denshi/jt '==hanyo-denshi/jt)
2077   (define-charset-alias '=>>>hanyo-denshi/ks '==hanyo-denshi/ks)
2078
2079   ;; (make-charset
2080   ;;  '===hanyo-denshi/ja
2081   ;;  "Han'you-Denshi/JA detailed glyph-images."
2082   ;;  '(long-name "Han'you-Denshi/JA glyph-images"
2083   ;;              chars 94
2084   ;;              dimension 2
2085   ;;              columns 2
2086   ;;              graphic 2
2087   ;;              direction l2r
2088   ;;              registry "HanyoDenshi\\.JA-0$"
2089   ;;              mother ==hanyo-denshi/ja))
2090   (make-charset
2091    '===hanyo-denshi/jb
2092    "Han'you-Denshi/JB detailed glyph-images."
2093    '(long-name "Han'you-Denshi/JB glyph-images"
2094                chars 94
2095                dimension 2
2096                columns 2
2097                graphic 2
2098                direction l2r
2099                registry "HanyoDenshi\\.JB-0$"
2100                mother ==hanyo-denshi/jb))
2101   (make-charset
2102    '===hanyo-denshi/jc
2103    "Han'you-Denshi/JC representative glyph-images."
2104    '(long-name "Han'you-Denshi/JC glyph-images"
2105                chars 94
2106                dimension 2
2107                columns 2
2108                graphic 2
2109                direction l2r
2110                registry "HanyoDenshi\\.JC-0$"
2111                mother ==hanyo-denshi/jc))
2112   (make-charset
2113    '===hanyo-denshi/jd
2114    "Han'you-Denshi/JD representative glyph-images."
2115    '(long-name "Han'you-Denshi/JD glyph-images"
2116                chars 94
2117                dimension 2
2118                columns 2
2119                graphic 2
2120                direction l2r
2121                registry "HanyoDenshi\\.JD-0$"
2122                mother ==hanyo-denshi/jd))
2123   (make-charset
2124    '===hanyo-denshi/ft
2125    "Han'you-Denshi/FT detailed glyph-images."
2126    '(long-name "Han'you-Denshi/FT glyph-images"
2127                chars 94
2128                dimension 2
2129                columns 2
2130                graphic 2
2131                direction l2r
2132                registry "HanyoDenshi\\.FT-0$"
2133                mother ==hanyo-denshi/ft))
2134   (make-charset
2135    '===hanyo-denshi/ia
2136    "Han'you-Denshi/IA detailed glyph-images."
2137    '(long-name "Han'you-Denshi/IA glyph-images"
2138                chars 94
2139                dimension 2
2140                columns 2
2141                graphic 2
2142                direction l2r
2143                registry "HanyoDenshi\\.IA-0$"
2144                mother ==hanyo-denshi/ia))
2145   (make-charset
2146    '===hanyo-denshi/ib
2147    "Han'you-Denshi/IB detailed glyph-images."
2148    '(long-name "Han'you-Denshi/IB glyph-images"
2149                chars 94
2150                dimension 2
2151                columns 2
2152                graphic 2
2153                direction l2r
2154                registry "HanyoDenshi\\.IB-0$"
2155                mother ==hanyo-denshi/ib))
2156   (make-charset
2157    '===hanyo-denshi/hg
2158    "Han'you-Denshi/HG detailed glyph-images."
2159    '(long-name "Han'you-Denshi/HG glyph-images"
2160                chars 94
2161                dimension 2
2162                columns 2
2163                graphic 2
2164                direction l2r
2165                registry "HanyoDenshi\\.HG-0$"
2166                mother ==hanyo-denshi/hg))
2167   (make-charset
2168    '===hanyo-denshi/ip
2169    "Han'you-Denshi/IP representative glyph-images."
2170    '(long-name "Han'you-Denshi/IP glyph-images"
2171                chars 256
2172                dimension 2
2173                columns 2
2174                graphic 2
2175                direction l2r
2176                registry "HanyoDenshi\\.IP-0$"
2177                mother ==hanyo-denshi/ip))
2178   (make-charset
2179    '===hanyo-denshi/jt
2180    "JT (Juuki Touitsu Moji) detailed glyph-images."
2181    '(long-name "Han'you-Denshi/JT glyph-images"
2182                chars 256
2183                dimension 2
2184                columns 2
2185                graphic 2
2186                direction l2r
2187                registry "HanyoDenshi\\.JT-0$"
2188                mother ==hanyo-denshi/jt))
2189   (make-charset
2190    '===hanyo-denshi/ks
2191    "KoSeki-touitsu-moji detailed glyph-images."
2192    '(long-name "Han'you-Denshi/KS glyph-images"
2193                chars 256
2194                dimension 3
2195                columns 2
2196                graphic 2
2197                direction l2r
2198                mother ==hanyo-denshi/ks))
2199
2200   (make-charset
2201    '=hanyo-denshi/ks/mf
2202    "font encoding for KS (KoSeki) characters"
2203    `(long-name "Han'you-Denshi/KS font encoding"
2204                chars 256
2205                dimension 2
2206                columns 2
2207                graphic 2
2208                direction l2r
2209                registry "HanyoDenshi\\.KSMF-0$"
2210                min-code       ,(lsh #x6403 16)
2211                max-code    ,(+ (lsh #x6403 16) #xFFFF)
2212                code-offset    ,(lsh #x6403 16)))
2213   (make-charset
2214    '=hanyo-denshi/tk/mf-01
2215    "font encoding for TK (TouKi) characters"
2216    `(long-name "Han'you-Denshi/TK font encoding"
2217                chars 256
2218                dimension 2
2219                columns 2
2220                graphic 2
2221                direction l2r
2222                registry "HanyoDenshi\\.TKMF-1$"))
2223   (make-charset
2224    '==hanyo-denshi/tk/mf-01
2225    "font encoding for TK (TouKi) characters"
2226    `(long-name "Han'you-Denshi/TK font encoding"
2227                chars 256
2228                dimension 2
2229                columns 2
2230                graphic 2
2231                direction l2r
2232                mother =hanyo-denshi/tk/mf-01
2233                registry "HanyoDenshi\\.TKMF-1$"))
2234
2235   (make-charset
2236    '===mj
2237    "Moji-Jouhou-Kiban detailed glyph-images."
2238    '(long-name "MJ glyph-images"
2239                chars 256
2240                dimension 2
2241                columns 2
2242                graphic 2
2243                direction l2r
2244                mother ==mj))
2245   (make-charset
2246    '===mj-0
2247    "MJ detailed glyph-images plane 0"
2248    '(long-name "MJ glyph-images-0"
2249                chars 256
2250                dimension 2
2251                columns 2
2252                graphic 2
2253                direction l2r
2254                registry "mj-0$"
2255                mother ===mj
2256                min-code 0
2257                max-code #xFFFF))
2258   (make-charset
2259    '===mj-1
2260    "MJ detailed glyph-images plane 1"
2261    '(long-name "MJ glyph-images-1"
2262                chars 256
2263                dimension 2
2264                columns 2
2265                graphic 2
2266                direction l2r
2267                registry "mj-1$"
2268                mother ===mj
2269                min-code #x10000
2270                code-offset #x10000))
2271
2272   (make-charset
2273    '=+>hanyo-denshi/ft
2274    "Han'you-Denshi/FT abstract glyphs"
2275    '(long-name "Han'you-Denshi/FT glyphs"
2276                chars 94
2277                dimension 2
2278                columns 2
2279                graphic 2
2280                direction l2r
2281                registry "HanyoDenshi\\.FT-0$"
2282                mother =hanyo-denshi/ft))
2283   (make-charset
2284    '=+>hanyo-denshi/jt
2285    "JT (Juuki Touitsu Moji) unified abstract glyphs."
2286    '(long-name "Han'you-Denshi/JT unified glyphs"
2287                chars 256
2288                dimension 2
2289                columns 2
2290                graphic 2
2291                direction l2r
2292                registry "HanyoDenshi\\.JT-0$"
2293                mother =hanyo-denshi/jt))
2294
2295   (make-charset
2296    '=>>mj
2297    "Moji-Jouhou-Kiban abstract glyphs."
2298    '(long-name "MJ glyphs"
2299                chars 256
2300                dimension 2
2301                columns 2
2302                graphic 2
2303                direction l2r
2304                mother =mj))
2305
2306   (make-charset
2307    '=>>hanyo-denshi/ja
2308    "Han'you-Denshi/JA abstract glyphs"
2309    '(long-name "Han'you-Denshi/JA glyphs"
2310                chars 94
2311                dimension 2
2312                columns 2
2313                graphic 2
2314                direction l2r
2315                registry "HanyoDenshi\\.JA-0$"
2316                mother =hanyo-denshi/ja))
2317   (make-charset
2318    '=>>hanyo-denshi/jb
2319    "Han'you-Denshi/JB abstract glyphs"
2320    '(long-name "Han'you-Denshi/JB glyphs"
2321                chars 94
2322                dimension 2
2323                columns 2
2324                graphic 2
2325                direction l2r
2326                registry "HanyoDenshi\\.JB-0$"
2327                mother =hanyo-denshi/jb))
2328   (make-charset
2329    '=>>hanyo-denshi/jc
2330    "Han'you-Denshi/JC abstract glyphs"
2331    '(long-name "Han'you-Denshi/JC glyphs"
2332                chars 94
2333                dimension 2
2334                columns 2
2335                graphic 2
2336                direction l2r
2337                registry "HanyoDenshi\\.JC-0$"
2338                mother =hanyo-denshi/jc))
2339   (make-charset
2340    '=>>hanyo-denshi/jd
2341    "Han'you-Denshi/JD abstract glyphs"
2342    '(long-name "Han'you-Denshi/JD glyphs"
2343                chars 94
2344                dimension 2
2345                columns 2
2346                graphic 2
2347                direction l2r
2348                registry "HanyoDenshi\\.JD-0$"
2349                mother =hanyo-denshi/jd))
2350   (make-charset
2351    '=>>hanyo-denshi/ft
2352    "Han'you-Denshi/FT abstract glyphs"
2353    '(long-name "Han'you-Denshi/FT glyphs"
2354                chars 94
2355                dimension 2
2356                columns 2
2357                graphic 2
2358                direction l2r
2359                registry "HanyoDenshi\\.FT-0$"
2360                mother =hanyo-denshi/ft))
2361   (make-charset
2362    '=>>hanyo-denshi/ia
2363    "Han'you-Denshi/IA abstract glyphs"
2364    '(long-name "Han'you-Denshi/IA glyphs"
2365                chars 94
2366                dimension 2
2367                columns 2
2368                graphic 2
2369                direction l2r
2370                registry "HanyoDenshi\\.IA-0$"
2371                mother =hanyo-denshi/ia))
2372   (make-charset
2373    '=>>hanyo-denshi/ib
2374    "Han'you-Denshi/IB abstract glyphs"
2375    '(long-name "Han'you-Denshi/IB abstract glyphs"
2376                chars 94
2377                dimension 2
2378                columns 2
2379                graphic 2
2380                direction l2r
2381                registry "HanyoDenshi\\.IB-0$"
2382                mother =hanyo-denshi/ib))
2383   (make-charset
2384    '=>>hanyo-denshi/hg
2385    "Han'you-Denshi/HG abstract glyphs"
2386    '(long-name "Han'you-Denshi/HG abstract glyphs"
2387                chars 94
2388                dimension 2
2389                columns 2
2390                graphic 2
2391                direction l2r
2392                registry "HanyoDenshi\\.HG-0$"
2393                mother =hanyo-denshi/hg))
2394   (make-charset
2395    '=>>hanyo-denshi/ip
2396    "Han'you-Denshi/IP abstract glyphs"
2397    '(long-name "Han'you-Denshi/IP abstract glyphs"
2398                chars 256
2399                dimension 2
2400                columns 2
2401                graphic 2
2402                direction l2r
2403                registry "HanyoDenshi\\.IP-0$"
2404                mother =hanyo-denshi/ip))
2405   (make-charset
2406    '=>>hanyo-denshi/jt
2407    "JT (Juuki Touitsu Moji) abstract glyphs"
2408    '(long-name "Han'you-Denshi/JT glyphs"
2409                chars 256
2410                dimension 2
2411                columns 2
2412                graphic 2
2413                direction l2r
2414                registry "HanyoDenshi\\.JT-0$"
2415                mother =hanyo-denshi/jt))
2416   (make-charset
2417    '=>>hanyo-denshi/ks
2418    "Han'you-Denshi/KS abstract glyphs"
2419    '(long-name "Han'you-Denshi/KS glyphs"
2420                chars 256
2421                dimension 3
2422                columns 2
2423                graphic 2
2424                direction l2r
2425                mother =hanyo-denshi/ks))
2426
2427   (make-charset '=gt
2428                 "GT 2000"
2429                 `(long-name     "GT"
2430                   chars         256
2431                   dimension     3
2432                   columns       2
2433                   graphic       2
2434                   direction     l2r
2435                   registry      ""
2436                   min-code      ,(lsh #x6100 16)
2437                   max-code      ,(+ (lsh #x6100 16) 67547)
2438                   code-offset   ,(lsh #x6100 16)))
2439   (make-charset '==gt
2440                 "GT 2000 abstract glyph-forms."
2441                 '(long-name     "GT abstract glyph-forms"
2442                   chars         256
2443                   dimension     3
2444                   columns       2
2445                   graphic       2
2446                   direction     l2r
2447                   mother        =gt))
2448   (make-charset '===gt
2449                 "GT 2000 detailed glyph-images."
2450                 '(long-name     "GT glyph-images"
2451                   chars         256
2452                   dimension     3
2453                   columns       2
2454                   graphic       2
2455                   direction     l2r
2456                   mother        ==gt
2457                   ;; min-code   1
2458                   ;; max-code   67392
2459                   ))
2460   (define-charset-alias 'ideograph-gt '=gt)
2461   (define-charset-alias '=>>>gt '==gt)
2462   (make-charset '=>>gt
2463                 "GT 2000 abstract glyphs"
2464                 '(long-name     "GT abstract glyphs"
2465                   chars         256
2466                   dimension     3
2467                   columns       2
2468                   graphic       2
2469                   direction     l2r
2470                   mother        =gt))
2471   (define-charset-alias '<=>gt '=>>gt)
2472   (define-charset-alias '<==>gt '=>>gt)
2473   (make-charset '=+>gt
2474                 "GT 2000 unified abstract glyphs"
2475                 '(long-name     "Unified abstract GT glyphs"
2476                   chars         256
2477                   dimension     3
2478                   columns       2
2479                   graphic       2
2480                   direction     l2r
2481                   mother        =>>gt))
2482   (make-charset '=>gt
2483                 "GT 2000 abstract characters"
2484                 '(long-name     "abstract GT characters"
2485                   chars         256
2486                   dimension     3
2487                   columns       2
2488                   graphic       2
2489                   direction     l2r
2490                   mother        =+>gt))
2491   (make-charset '=gt-k
2492                 "Ideographic components of GT"
2493                 `(long-name     "GT components"
2494                   chars         256
2495                   dimension     2
2496                   columns       2
2497                   graphic       2
2498                   direction     l2r
2499                   registry      ""
2500                   min-code      ,(lsh #x6110 16)
2501                   max-code      ,(+ (lsh #x6110 16) 17090)
2502                   code-offset   ,(lsh #x6110 16)))
2503   (define-charset-alias 'ideograph-gt-k '=gt-k)
2504   (make-charset '==gt-k
2505                 "Abstract glyph-images of GT-K"
2506                 '(long-name     "GT-K glyph-images"
2507                   chars         256
2508                   dimension     2
2509                   columns       2
2510                   graphic       2
2511                   direction     l2r
2512                   mother        =gt-k))
2513   (make-charset '===gt-k
2514                 "Representative glyph-images of GT-K"
2515                 '(long-name     "GT-K glyph-images"
2516                   chars         256
2517                   dimension     2
2518                   columns       2
2519                   graphic       2
2520                   direction     l2r
2521                   mother        ==gt-k))
2522   (make-charset '=>>gt-k
2523                 "abstract glyphs of GT-K"
2524                 '(long-name     "GT-K abstract glyphs"
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                 "GT-K abstract characters"
2533                 '(long-name     "GT-K abstract characters"
2534                   chars         256
2535                   dimension     2
2536                   columns       2
2537                   graphic       2
2538                   direction     l2r
2539                   mother        =>>gt-k))
2540   (let ((i 1))
2541     (while (<= i 11)
2542       (make-charset
2543        (intern (format "=gt-pj-%d" i))
2544        (format "GT 2000 (pseudo JIS encoding) part %d" i)
2545        `(long-name ,(format "GT PJ %d" i)
2546                    chars 94
2547                    dimension 2
2548                    columns 2
2549                    graphic 0
2550                    direction l2r
2551                    registry ,(format "\\(GTpj-%d\\|jisx0208\\.GT-%d\\)$" i i)))
2552       (define-charset-alias
2553         (intern (format "ideograph-gt-pj-%d" i))
2554         (intern (format "=gt-pj-%d" i)))
2555       (setq i (1+ i))))
2556   (make-charset
2557    '=gt-pj-k1
2558    "Ideographic parts of GT (pseudo JIS encoding) part 1"
2559    '(long-name "GT K1"
2560                chars 94
2561                dimension 2
2562                columns 2
2563                graphic 0
2564                direction l2r
2565                registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$"))
2566   (define-charset-alias 'ideograph-gt-pj-k1 '=gt-pj-k1)
2567   (make-charset
2568    '==gt-pj-k1
2569    "Ideographic parts of GT (pseudo JIS encoding) part 1"
2570    '(long-name "GT K1"
2571                chars 94
2572                dimension 2
2573                columns 2
2574                graphic 0
2575                direction l2r
2576                registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$"))
2577   (make-charset
2578    '=gt-pj-k2
2579    "Ideographic parts of GT (pseudo JIS encoding) part 2"
2580    '(long-name "GT K2"
2581                chars 94
2582                dimension 2
2583                columns 2
2584                graphic 0
2585                direction l2r
2586                registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$"))
2587   (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2)
2588   (make-charset
2589    '==gt-pj-k2
2590    "Ideographic parts of GT (pseudo JIS encoding) part 2"
2591    '(long-name "GT K2"
2592                chars 94
2593                dimension 2
2594                columns 2
2595                graphic 0
2596                direction l2r
2597                registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$"))
2598
2599   (make-charset '=daikanwa
2600                 "Daikanwa dictionary (unchanged part)"
2601                 `(long-name     "Daikanwa"
2602                   chars         256
2603                   dimension     2
2604                   columns       2
2605                   graphic       2
2606                   direction     l2r
2607                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2608                   min-code      #xE00000
2609                   max-code      ,(+ #xE00000 50100)
2610                   code-offset   #xE00000))
2611   (define-charset-alias 'ideograph-daikanwa '=daikanwa)
2612
2613   (make-charset '=daikanwa@rev1
2614                 "Daikanwa dictionary (revised version)"
2615                 '(long-name     "Daikanwa Rev."
2616                   chars         256
2617                   dimension     2
2618                   columns       2
2619                   graphic       2
2620                   direction     l2r
2621                   registry      "Daikanwa\\(\\.[0-9]+\\)?-2"
2622                   mother        =daikanwa))
2623   (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa@rev1)
2624   (define-charset-alias '=daikanwa-rev1 '=daikanwa@rev1)
2625
2626   (make-charset '=daikanwa@rev2
2627                 "Daikanwa dictionary (revised version 2)"
2628                 '(long-name     "Daikanwa"
2629                   chars         256
2630                   dimension     2
2631                   columns       2
2632                   graphic       2
2633                   direction     l2r
2634                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2635                   mother        =daikanwa
2636                   min-code      1
2637                   max-code      49964))
2638   (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2)
2639
2640   (make-charset '=daikanwa/+p
2641                 "Daikanwa dictionary (ddddd')"
2642                 '(long-name     "Daikanwa ddddd'"
2643                   chars         256
2644                   dimension     2
2645                   columns       2
2646                   graphic       2
2647                   direction     l2r))
2648   (make-charset '=daikanwa/+2p
2649                 "Daikanwa dictionary (ddddd'')"
2650                 '(long-name     "Daikanwa ddddd''"
2651                   chars         256
2652                   dimension     2
2653                   columns       2
2654                   graphic       2
2655                   direction     l2r))
2656   (make-charset '=daikanwa/ho
2657                 "Daikanwa dictionary (Hokan)"
2658                 '(long-name     "Daikanwa-ho"
2659                   chars         256
2660                   dimension     2
2661                   columns       2
2662                   graphic       2
2663                   direction     l2r))
2664
2665   (make-charset '==daikanwa
2666                 "Daikanwa glyph-images."
2667                 '(long-name     "Daikanwa glyph-images"
2668                   chars         256
2669                   dimension     2
2670                   columns       2
2671                   graphic       2
2672                   direction     l2r
2673                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2674                   mother        =daikanwa))
2675   (make-charset '==daikanwa/+p
2676                 "Daikanwa detailed glyph-images (ddddd')"
2677                 '(long-name     "Daikanwa detailed glyphs-images (ddddd')"
2678                   chars         256
2679                   dimension     2
2680                   columns       2
2681                   graphic       2
2682                   direction     l2r
2683                   mother        =daikanwa/+p))
2684   (make-charset '==daikanwa/+2p
2685                 "Daikanwa detailed glyph-images (ddddd'')"
2686                 '(long-name     "Daikanwa glyph-images ddddd''"
2687                   chars         256
2688                   dimension     2
2689                   columns       2
2690                   graphic       2
2691                   direction     l2r
2692                   mother        =daikanwa/+2p))
2693   (make-charset '==daikanwa/ho
2694                 "Daikanwa detailed glyph-images (Hokan)"
2695                 '(long-name     "Daikanwa-ho detailed glyph-images"
2696                   chars         256
2697                   dimension     2
2698                   columns       2
2699                   graphic       2
2700                   direction     l2r
2701                   mother        =daikanwa/ho))
2702
2703   (make-charset '===daikanwa
2704                 "Daikanwa detailed glyph-images."
2705                 '(long-name     "Daikanwa detailed glyph-images"
2706                   chars         256
2707                   dimension     2
2708                   columns       2
2709                   graphic       2
2710                   direction     l2r
2711                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2712                   mother        ==daikanwa))
2713   (make-charset '===daikanwa/+p
2714                 "Daikanwa detailed glyph-images (ddddd')"
2715                 '(long-name     "Daikanwa detailed glyphs-images (ddddd')"
2716                   chars         256
2717                   dimension     2
2718                   columns       2
2719                   graphic       2
2720                   direction     l2r
2721                   mother        ==daikanwa/+p))
2722   (make-charset '===daikanwa/ho
2723                 "Daikanwa detailed glyph-images (Hokan)"
2724                 '(long-name     "Daikanwa-ho detailed glyph-images"
2725                   chars         256
2726                   dimension     2
2727                   columns       2
2728                   graphic       2
2729                   direction     l2r
2730                   mother        ==daikanwa/ho))
2731
2732   (make-charset '=>>daikanwa
2733                 "Daikanwa abstract glyphs"
2734                 '(long-name     "Daikanwa glyphs"
2735                   chars         256
2736                   dimension     2
2737                   columns       2
2738                   graphic       2
2739                   direction     l2r
2740                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2741                   mother        =daikanwa))
2742   (make-charset '=>>daikanwa/+p
2743                 "Daikanwa abstract glyphs (ddddd')"
2744                 '(long-name     "Daikanwa glyphs (ddddd')"
2745                   chars         256
2746                   dimension     2
2747                   columns       2
2748                   graphic       2
2749                   direction     l2r
2750                   mother        =daikanwa/+p))
2751   (make-charset '=>>daikanwa/+2p
2752                 "Daikanwa abstract glyphs (ddddd'')"
2753                 '(long-name     "Daikanwa glyphs (ddddd'')"
2754                   chars         256
2755                   dimension     2
2756                   columns       2
2757                   graphic       2
2758                   direction     l2r
2759                   mother        =daikanwa/+2p))
2760   (make-charset '=>>daikanwa/ho
2761                 "Daikanwa abstract glyphs (Hokan)"
2762                 '(long-name     "Daikanwa-ho glyph"
2763                   chars         256
2764                   dimension     2
2765                   columns       2
2766                   graphic       2
2767                   direction     l2r
2768                   mother        =daikanwa/ho))
2769
2770   (make-charset '=>daikanwa
2771                 "Daikanwa abstract characters"
2772                 '(long-name     "abstract Daikanwa"
2773                   chars         256
2774                   dimension     2
2775                   columns       2
2776                   graphic       2
2777                   direction     l2r
2778                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2779                   mother        =>>daikanwa))
2780   (make-charset '=>daikanwa/ho
2781                 "Daikanwa abstract characters (Hokan)"
2782                 '(long-name     "abstract Daikanwa-ho"
2783                   chars         256
2784                   dimension     2
2785                   columns       2
2786                   graphic       2
2787                   direction     l2r
2788                   mother        =>>daikanwa/ho))
2789
2790   (make-charset '=shinjigen
2791                 "Kadokawa ShinJigen dictionary (common parts)"
2792                 `(long-name     "Shinjigen common parts"
2793                   chars         256
2794                   dimension     2
2795                   columns       2
2796                   graphic       2
2797                   direction     l2r
2798                   registry      "Shinjigen\\(\\.[0-9]+\\)?-*"))
2799
2800   (make-charset '=shinjigen@1ed
2801                 "Kadokawa ShinJigen dictionary (the first edition)"
2802                 `(long-name     "Shinjigen-1"
2803                   chars         256
2804                   dimension     2
2805                   columns       2
2806                   graphic       2
2807                   direction     l2r
2808                   mother        =shinjigen
2809                   registry      "Shinjigen\\(\\.[0-9]+\\)?-1"))
2810   (define-charset-alias 'shinjigen-1 '=shinjigen@1ed)
2811
2812   (make-charset '=shinjigen@1ed/24pr
2813                 "Kadokawa ShinJigen dictionary (the 24th impression)"
2814                 `(long-name     "Shinjigen-1 24pr"
2815                   chars         256
2816                   dimension     2
2817                   columns       2
2818                   graphic       2
2819                   direction     l2r
2820                   mother        =shinjigen@1ed))
2821
2822   (make-charset '=shinjigen@rev
2823                 "Kadokawa ShinJigen dictionary (the revised edition)"
2824                 `(long-name     "Shinjigen-2"
2825                   chars         256
2826                   dimension     2
2827                   columns       2
2828                   graphic       2
2829                   direction     l2r
2830                   mother        =shinjigen
2831                   registry      "Shinjigen\\(\\.[0-9]+\\)?-2"))
2832   (define-charset-alias 'shinjigen-2 '=shinjigen@rev)
2833   (make-charset '=shinjigen/+p@rev
2834                 "ShinJigen (the second edition) number with '"
2835                 `(long-name     "Shinjigen-2 with '"
2836                   chars         256
2837                   dimension     2
2838                   columns       2
2839                   graphic       2
2840                   direction     l2r))
2841   (define-charset-alias 'shinjigen-2-p '=shinjigen/+p@rev)
2842
2843   (make-charset '==shinjigen
2844                 "Detailed glyph-images of ShinJigen (common parts)"
2845                 '(long-name     "Shinjigen common parts"
2846                   chars         256
2847                   dimension     2
2848                   columns       2
2849                   graphic       2
2850                   direction     l2r
2851                   mother        =shinjigen
2852                   registry      "Shinjigen\\(\\.[0-9]+\\)?-*"))
2853   (make-charset '==shinjigen@1ed
2854                 "Detailed glyph-images of ShinJigen (the first edition)"
2855                 '(long-name     "Detailed glyph-images of Shinjigen-1"
2856                   chars         256
2857                   dimension     2
2858                   columns       2
2859                   graphic       2
2860                   direction     l2r
2861                   mother        ==shinjigen
2862                   registry      "Shinjigen\\(\\.[0-9]+\\)?-1"))
2863   (make-charset '==shinjigen@rev
2864                 "Detailed glyph-images of ShinJigen (the revised edition)"
2865                 '(long-name     "Detailed glyph-images of Shinjigen-2"
2866                   chars         256
2867                   dimension     2
2868                   columns       2
2869                   graphic       2
2870                   direction     l2r
2871                   mother        ==shinjigen
2872                   registry      "Shinjigen\\(\\.[0-9]+\\)?-2"))
2873   (make-charset
2874    '==shinjigen/+p@rev
2875    "Detailed glyph-images of ShinJigen (the second edition) number with '"
2876    '(long-name  "Detailed glyph-images of Shinjigen-2 with '"
2877                 mother  =shinjigen/+p@rev
2878                 chars           256
2879                 dimension       2
2880                 columns 2
2881                 graphic 2
2882                 direction       l2r))
2883
2884   (make-charset '=big5-pua
2885                 "Big5 with private used area"
2886                 '(long-name     "Big5-PUA"
2887                   chars         256
2888                   dimension     2
2889                   columns       2
2890                   graphic       2
2891                   direction     l2r
2892                   mother        chinese-big5
2893                   registry      "Big5\\.ETEN"))
2894   (define-charset-alias 'chinese-big5-pua '=big5-pua)
2895
2896   (let* ((i 1)
2897          (hzk-min (+ (lsh #x6200 16) 65536))
2898          (hzk-max (+ hzk-min 65535)))
2899     (while (<= i 12)
2900       (make-charset
2901        (intern (format "=hanziku-%d" i))
2902        (format "HANZIKU (pseudo BIG5 encoding) part %d" i)
2903        `(long-name ,(format "HANZIKU-%d" i)
2904                    chars 256
2905                    dimension 2
2906                    columns 2
2907                    graphic 2
2908                    direction l2r
2909                    registry ,(format "hanziku-%d$" i i)
2910                    min-code ,hzk-min
2911                    max-code ,hzk-max
2912                    code-offset ,hzk-min))
2913       (define-charset-alias
2914         (intern (format "ideograph-hanziku-%d" i))
2915         (intern (format "=hanziku-%d" i)))
2916       (setq hzk-min (1+ hzk-max)
2917             hzk-max (+ hzk-min 65535))
2918       (setq i (1+ i))))
2919
2920   (make-charset '===hng-jou "HNG:誠實論卷八（P.2179）"
2921                 '(long-name "HNG/P2179"
2922                   chars         256
2923                   dimension     2
2924                   registry      "hng-1$"
2925                   graphic       2
2926                   columns       2
2927                   direction     l2r))
2928   (make-charset '===hng-keg "HNG:華嚴經卷十六（S.2067）"
2929                 '(long-name "HNG/S2067"
2930                   chars         256
2931                   dimension     2
2932                   registry      "hng-2$"
2933                   graphic       2
2934                   columns       2
2935                   direction     l2r))
2936   (make-charset '===hng-dng "HNG:大般涅槃經卷十一（S.81）"
2937                 '(long-name "HNG/S81"
2938                   chars         256
2939                   dimension     2
2940                   registry      "hng-3$"
2941                   graphic       2
2942                   columns       2
2943                   direction     l2r))
2944   (make-charset '===hng-mam "HNG:摩訶摩耶經卷上（P.2160）"
2945                 '(long-name "HNG/P2160"
2946                   chars         256
2947                   dimension     2
2948                   registry      "hng-5$"
2949                   graphic       2
2950                   columns       2
2951                   direction     l2r))
2952   (make-charset '===hng-drt "HNG:大樓炭經卷三（P.2413）"
2953                 '(long-name "HNG/P2413"
2954                   chars         256
2955                   dimension     2
2956                   registry      "hng-6$"
2957                   graphic       2
2958                   columns       2
2959                   direction     l2r))
2960   (make-charset '===hng-kgk "HNG:賢劫經卷二（正倉院本）"
2961                 '(long-name "HNG/賢劫經二"
2962                   chars         256
2963                   dimension     2
2964                   registry      "hng-7$"
2965                   graphic       2
2966                   columns       2
2967                   direction     l2r))
2968   (make-charset '===hng-myz "HNG:妙法蓮華經卷五（P.2334）"
2969                 '(long-name "HNG/P2334"
2970                   chars         256
2971                   dimension     2
2972                   registry      "hng-8$"
2973                   graphic       2
2974                   columns       2
2975                   direction     l2r))
2976   (make-charset '===hng-kda "HNG:大品經卷二十八（京都国立博物館本）"
2977                 '(long-name "HNG/京博大品"
2978                   chars         256
2979                   dimension     2
2980                   registry      "hng-9$"
2981                   graphic       2
2982                   columns       2
2983                   direction     l2r))
2984   (make-charset '===hng-khi "HNG:妙法蓮華經卷五（今西本）"
2985                 '(long-name "HNG/宮廷今西"
2986                   chars         256
2987                   dimension     2
2988                   registry      "hng-10$"
2989                   graphic       2
2990                   columns       2
2991                   direction     l2r))
2992   (make-charset '===hng-khm "HNG:妙法蓮華經卷三（守屋本）"
2993                 '(long-name "HNG/宮廷守屋"
2994                   chars         256
2995                   dimension     2
2996                   registry      "hng-11$"
2997                   graphic       2
2998                   columns       2
2999                   direction     l2r))
3000   (make-charset '===hng-hok "HNG:妙法蓮華經卷八（S.2577）"
3001                 '(long-name "HNG/S2577"
3002                   chars         256
3003                   dimension     2
3004                   registry      "hng-13$"
3005                   graphic       2
3006                   columns       2
3007                   direction     l2r))
3008   (make-charset '===hng-kyd "HNG:漢書楊雄傳（上野本）"
3009                 '(long-name "HNG/漢書楊雄"
3010                   chars         256
3011                   dimension     2
3012                   registry      "hng-14$"
3013                   graphic       2
3014                   columns       2
3015                   direction     l2r))
3016   (make-charset '===hng-sok "HNG:花嚴經卷八（守屋本）"
3017                 '(long-name "HNG/花嚴守屋"
3018                   chars         256
3019                   dimension     2
3020                   registry      "hng-15$"
3021                   graphic       2
3022                   columns       2
3023                   direction     l2r))
3024   (make-charset '===hng-yhk "HNG:瑜伽法鏡經（S.2423）"
3025                 '(long-name "HNG/S2423"
3026                   chars         256
3027                   dimension     2
3028                   registry      "hng-16$"
3029                   graphic       2
3030                   columns       2
3031                   direction     l2r))
3032   (make-charset '===hng-kak "HNG:開成石經孝經"
3033                 '(long-name "HNG/開成孝經"
3034                   chars         256
3035                   dimension     2
3036                   registry      "hng-17$"
3037                   graphic       2
3038                   columns       2
3039                   direction     l2r))
3040   (make-charset '===hng-kar "HNG:開成石經論語"
3041                 '(long-name "HNG/開成論語"
3042                   chars         256
3043                   dimension     2
3044                   registry      "hng-18$"
3045                   graphic       2
3046                   columns       2
3047                   direction     l2r))
3048   (make-charset '===hng-kae "HNG:開成石經周易"
3049                 '(long-name "HNG/開成周易"
3050                   chars         256
3051                   dimension     2
3052                   registry      "hng-19$"
3053                   graphic       2
3054                   columns       2
3055                   direction     l2r))
3056   (make-charset '===hng-sys "HNG:瑜伽師地論卷三十（S.5309）"
3057                 '(long-name "HNG/S5309"
3058                   chars         256
3059                   dimension     2
3060                   registry      "hng-22$"
3061                   graphic       2
3062                   columns       2
3063                   direction     l2r))
3064   (make-charset '===hng-tsu "HNG:通典卷一"
3065                 '(long-name "HNG/通典卷一"
3066                   chars         256
3067                   dimension     2
3068                   registry      "hng-24$"
3069                   graphic       2
3070                   columns       2
3071                   direction     l2r))
3072   (make-charset '===hng-tzj "HNG:阿毘達磨毘婆沙論卷百七（東禪寺版）"
3073                 '(long-name "HNG/東禪毘婆"
3074                   chars         256
3075                   dimension     2
3076                   registry      "hng-25$"
3077                   graphic       2
3078                   columns       2
3079                   direction     l2r))
3080   (make-charset '===hng-hos "HNG:齊民要術卷五（高山寺本）"
3081                 '(long-name "HNG/斉民要術"
3082                   chars         256
3083                   dimension     2
3084                   registry      "hng-26$"
3085                   graphic       2
3086                   columns       2
3087                   direction     l2r))
3088   (make-charset '===hng-nak "HNG:華嚴孔目（高山寺本）"
3089                 '(long-name "HNG/華厳孔目"
3090                   chars         256
3091                   dimension     2
3092                   registry      "hng-28$"
3093                   graphic       2
3094                   columns       2
3095                   direction     l2r))
3096   (make-charset '===hng-jhk "HNG:神足變化經（開元寺版）"
3097                 '(long-name "HNG/開元神足"
3098                   chars         256
3099                   dimension     2
3100                   registry      "hng-29$"
3101                   graphic       2
3102                   columns       2
3103                   direction     l2r))
3104   (make-charset '===hng-hod "HNG:法藏和尚傳（高山寺本）"
3105                 '(long-name "HNG/法藏和尚"
3106                   chars         256
3107                   dimension     2
3108                   registry      "hng-30$"
3109                   graphic       2
3110                   columns       2
3111                   direction     l2r))
3112   (make-charset '===hng-gok "HNG:後漢書光武帝紀"
3113                 '(long-name "HNG/光武帝紀"
3114                   chars         256
3115                   dimension     2
3116                   registry      "hng-31$"
3117                   graphic       2
3118                   columns       2
3119                   direction     l2r))
3120   (make-charset '===hng-ink "HNG:日本書紀 卷二十四（岩崎本）"
3121                 '(long-name "HNG/岩崎紀24"
3122                   chars         256
3123                   dimension     2
3124                   registry      "hng-33$"
3125                   graphic       2
3126                   columns       2
3127                   direction     l2r))
3128   (make-charset '===hng-nto "HNG:日本書紀 卷二十四（圖書寮本）"
3129                 '(long-name "HNG/圖書紀24"
3130                   chars         256
3131                   dimension     2
3132                   registry      "hng-34$"
3133                   graphic       2
3134                   columns       2
3135                   direction     l2r))
3136   (make-charset '===hng-nkm "HNG:日本書紀 卷二十四（兼右本）"
3137                 '(long-name "HNG/兼右紀24"
3138                   chars         256
3139                   dimension     2
3140                   registry      "hng-36$"
3141                   graphic       2
3142                   columns       2
3143                   direction     l2r))
3144   (make-charset '===hng-k24 "HNG:日本書紀 卷二十四（寛文九年版）"
3145                 '(long-name "HNG/寛九紀24"
3146                   chars         256
3147                   dimension     2
3148                   registry      "hng-37$"
3149                   graphic       2
3150                   columns       2
3151                   direction     l2r))
3152   (make-charset '===hng-nkk "HNG:日本書紀 卷二（兼方本）"
3153                 '(long-name "HNG/兼方紀2"
3154                   chars         256
3155                   dimension     2
3156                   registry      "hng-39$"
3157                   graphic       2
3158                   columns       2
3159                   direction     l2r))
3160   (make-charset '===hng-kcc "HNG:日本書紀 卷二（慶長勅版）"
3161                 '(long-name "HNG/勅版紀2"
3162                   chars         256
3163                   dimension     2
3164                   registry      "hng-41$"
3165                   graphic       2
3166                   columns       2
3167                   direction     l2r))
3168   (make-charset '===hng-kcj "HNG:日本書紀 卷二（慶長十五年版）"
3169                 '(long-name "HNG/慶長紀2"
3170                   chars         256
3171                   dimension     2
3172                   registry      "hng-42$"
3173                   graphic       2
3174                   columns       2
3175                   direction     l2r))
3176   (make-charset '===hng-kbk "HNG:日本書紀 卷二（寛文九年版）"
3177                 '(long-name "HNG/寛九紀2"
3178                   chars         256
3179                   dimension     2
3180                   registry      "hng-43$"
3181                   graphic       2
3182                   columns       2
3183                   direction     l2r))
3184   (make-charset '===hng-sik "HNG:花嚴經卷八（新羅本寫本）"
3185                 '(long-name "HNG/花嚴新羅"
3186                   chars         256
3187                   dimension     2
3188                   registry      "hng-44$"
3189                   graphic       2
3190                   columns       2
3191                   direction     l2r))
3192   (make-charset '===hng-skk "HNG:華嚴經卷二十（晉本高麗古版）"
3193                 '(long-name "HNG/古麗華20"
3194                   chars         256
3195                   dimension     2
3196                   registry      "hng-46$"
3197                   graphic       2
3198                   columns       2
3199                   direction     l2r))
3200   (make-charset '===hng-kyu "HNG:初麗瑜5"
3201                 '(long-name "HNG/瑜伽師地論卷五（高麗初彫本）"
3202                   chars         256
3203                   dimension     2
3204                   registry      "hng-47$"
3205                   graphic       2
3206                   columns       2
3207                   direction     l2r))
3208   (make-charset '===hng-ksk "HNG:華嚴經卷六（高麗再彫本）"
3209                 '(long-name "HNG/再麗華6"
3210                   chars         256
3211                   dimension     2
3212                   registry      "hng-48$"
3213                   graphic       2
3214                   columns       2
3215                   direction     l2r))
3216   (make-charset '===hng-wan "HNG:華嚴經卷三十八（趙氏藏本）"
3217                 '(long-name "HNG/和寧華38"
3218                   chars         256
3219                   dimension     2
3220                   registry      "hng-49$"
3221                   graphic       2
3222                   columns       2
3223                   direction     l2r))
3224   (make-charset '===hng-okd "HNG:金剛場陀羅尼經（小川本）"
3225                 '(long-name "HNG/金剛小川"
3226                   chars         256
3227                   dimension     2
3228                   registry      "hng-50$"
3229                   graphic       2
3230                   columns       2
3231                   direction     l2r))
3232   (make-charset '===hng-wad "HNG:大般若經卷二百五十（和銅經）"
3233                 '(long-name "HNG/和銅250"
3234                   chars         256
3235                   dimension     2
3236                   registry      "hng-54$"
3237                   graphic       2
3238                   columns       2
3239                   direction     l2r))
3240   (make-charset '===hng-kmi "HNG:弥勒上生經（高山寺本）"
3241                 '(long-name "HNG/弥勒上生"
3242                   chars         256
3243                   dimension     2
3244                   registry      "hng-55$"
3245                   graphic       2
3246                   columns       2
3247                   direction     l2r))
3248   (make-charset '===hng-zkd "HNG:續高僧傳（五月一日經）（天平寫經）"
3249                 '(long-name "HNG/五一續高"
3250                   chars         256
3251                   dimension     2
3252                   registry      "hng-56$"
3253                   graphic       2
3254                   columns       2
3255                   direction     l2r))
3256   (make-charset '===hng-doh "HNG:金剛大教王經卷一（高山寺本）"
3257                 '(long-name "HNG/金剛大教"
3258                   chars         256
3259                   dimension     2
3260                   registry      "hng-57$"
3261                   graphic       2
3262                   columns       2
3263                   direction     l2r))
3264   (make-charset '===hng-jyu "HNG:成唯識論卷十（寛治二年刊本）"
3265                 '(long-name "HNG/成唯識10"
3266                   chars         256
3267                   dimension     2
3268                   registry      "hng-58$"
3269                   graphic       2
3270                   columns       2
3271                   direction     l2r))
3272   (make-charset '===hng-tzs "HNG:佛説大教王經卷一（東禪寺版日本寫本）"
3273                 '(long-name "HNG/佛説大教"
3274                   chars         256
3275                   dimension     2
3276                   registry      "hng-60$"
3277                   graphic       2
3278                   columns       2
3279                   direction     l2r))
3280   (make-charset '===hng-kss "HNG:華嚴信種義（明惠自筆）"
3281                 '(long-name "HNG/華嚴信種"
3282                   chars         256
3283                   dimension     2
3284                   registry      "hng-64$"
3285                   graphic       2
3286                   columns       2
3287                   direction     l2r))
3288   (make-charset '===hng-kyo "HNG:教行信証卷四（親鸞自筆）"
3289                 '(long-name "HNG/教行信証"
3290                   chars         256
3291                   dimension     2
3292                   registry      "hng-66$"
3293                   graphic       2
3294                   columns       2
3295                   direction     l2r))
3296   (make-charset '===hng-smk "HNG:西夏版妙法蓮華經卷一"
3297                 '(long-name "HNG/西夏法華"
3298                   chars         256
3299                   dimension     2
3300                   registry      "hng-74$"
3301                   graphic       2
3302                   columns       2
3303                   direction     l2r))
3304
3305   (make-charset '=cbeta "CBETA private characters"
3306                 '(long-name     "CBETA PUA"
3307                   chars         256
3308                   dimension     2
3309                   registry      "cbeta-0"
3310                   graphic       2
3311                   min-code      #xE20000
3312                   max-code      #xE2FFFF
3313                   code-offset   #xE20000
3314                   columns       2
3315                   direction     l2r))
3316   (define-charset-alias 'ideograph-cbeta '=cbeta)
3317   (make-charset '==cbeta "CBETA private characters"
3318                 '(long-name     "CBETA PUA glyph-images"
3319                   chars         256
3320                   dimension     2
3321                   registry      "cbeta-0"
3322                   graphic       2
3323                   columns       2
3324                   direction     l2r
3325                   mother        =cbeta))
3326   (make-charset '===cbeta "CBETA private characters"
3327                 '(long-name     "CBETA PUA glyph-images"
3328                   chars         256
3329                   dimension     2
3330                   registry      "cbeta-0"
3331                   graphic       2
3332                   columns       2
3333                   direction     l2r
3334                   mother        ==cbeta))
3335   (make-charset '=>>cbeta "CBETA abstract glyphs"
3336                 '(long-name     "CBETA glyphs"
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 abstract characters"
3345                 '(long-name     "CBETA characters"
3346                   chars         256
3347                   dimension     2
3348                   registry      "cbeta-0"
3349                   graphic       2
3350                   columns       2
3351                   direction     l2r
3352                   mother        =cbeta))
3353
3354   (make-charset '=zinbun-oracle
3355                 "Oracle Bones Script"
3356                 `(long-name     "Oracle Bones Script in Zinbun, Kyoto Univ."
3357                   chars         256
3358                   dimension     2
3359                   registry      "zob1968-0"
3360                   graphic       2
3361                   min-code      #xE70000
3362                   max-code      ,(+ #xE70000 8192)
3363                   code-offset   #xE70000
3364                   columns       2
3365                   direction     l2r))
3366
3367   (make-charset '=>zinbun-oracle
3368                 "Abstract Oracle Bones"
3369                 '(long-name     "Abstract characters of Zinbun Oracle Bones."
3370                   chars         256
3371                   dimension     2
3372                   mother        =zinbun-oracle
3373                   registry      "zob1968-0"
3374                   graphic       2
3375                   columns       2
3376                   direction     l2r))
3377
3378   (make-charset '=jef-china3
3379                 "JEF + CHINA3 private characters"
3380                 '(long-name     "JEF + CHINA3"
3381                   chars         256
3382                   dimension     2
3383                   columns       2
3384                   graphic       2
3385                   direction     l2r
3386                   registry      "china3jef-0"
3387                   min-code      #xE80000
3388                   max-code      #xE8FFFF
3389                   code-offset   #xE80000))
3390   (define-charset-alias 'china3-jef '=jef-china3)
3391   (make-charset '==jef-china3
3392                 "JEF + CHINA3 abstract glyph-images."
3393                 '(long-name     "JEF + CHINA3"
3394                   chars         256
3395                   dimension     2
3396                   columns       2
3397                   graphic       2
3398                   direction     l2r
3399                   registry      "china3jef-0"
3400                   mother        =jef-china3))
3401   (make-charset '===jef-china3
3402                 "JEF + CHINA3 glyph-images."
3403                 '(long-name     "JEF-CHINA3 glyph-images"
3404                   chars         256
3405                   dimension     2
3406                   columns       2
3407                   graphic       2
3408                   direction     l2r
3409                   registry      "china3jef-0"
3410                   mother        ==jef-china3))
3411
3412   (make-charset '=ruimoku-v6
3413                 "private characters used in RUIMOKU Version.6"
3414                 `(long-name     "RUI6"
3415                   chars         256
3416                   dimension     2
3417                   columns       2
3418                   graphic       2
3419                   direction     l2r
3420                   registry      "rui6-0"
3421                   ;; mother     ucs
3422                   min-code      #xE90000 ; #xE000
3423                   max-code      #xE908FF ; #xE8FF
3424                   code-offset   ,(- #xE90000 #xE000)))
3425   (make-charset '==ruimoku-v6
3426                 "RUIMOKU Version.6 glyph-images."
3427                 '(long-name     "RUI6 glyph-images."
3428                   chars         256
3429                   dimension     2
3430                   columns       2
3431                   graphic       2
3432                   direction     l2r
3433                   registry      "rui6-0"
3434                   mother        =ruimoku-v6))
3435   (make-charset '===ruimoku-v6
3436                 "RUIMOKU Version.6 representative glyph-images."
3437                 '(long-name     "RUI6 rep-glyph-images."
3438                   chars         256
3439                   dimension     2
3440                   columns       2
3441                   graphic       2
3442                   direction     l2r
3443                   registry      "rui6-0"
3444                   mother        ==ruimoku-v6))
3445   (make-charset '=>ruimoku-v6
3446                 "RUIMOKU Version.6 abstract characters."
3447                 '(long-name     "RUI6 characters."
3448                   chars         256
3449                   dimension     2
3450                   columns       2
3451                   graphic       2
3452                   direction     l2r
3453                   registry      "rui6-0"
3454                   mother        =ruimoku-v6))
3455   (define-charset-alias '=>>ruimoku-v6 '=>ruimoku-v6)
3456
3457   ;; (make-charset
3458   ;;  '=zihai
3459   ;;  "ZhongHua-ZiHai glyph-images"
3460   ;;  '(long-name "ZhongHua-ZiHai (pppp-nn)"
3461   ;;              chars 256
3462   ;;              dimension 3
3463   ;;              columns 2
3464   ;;              graphic 2
3465   ;;              direction l2r))
3466
3467   ;; (make-charset
3468   ;;  '=zihai-17xx
3469   ;;  "ZhongHua-ZiHai (pp.1700〜1781) glyph-images"
3470   ;;  '(long-name "ZhongHua-ZiHai pp.17xx"
3471   ;;              chars 256
3472   ;;              dimension 2
3473   ;;              columns 2
3474   ;;              graphic 2
3475   ;;              direction l2r
3476   ;;              registry "zihai\\.cp-17$"))
3477
3478   (make-charset '=big5-cdp-itaiji-001
3479                 "Big5-CDP-itaiji-001 glyphs of GlyphWiki"
3480                 '(long-name     "Big5-CDP-itaiji-001"
3481                   chars         256
3482                   dimension     2
3483                   columns       2
3484                   graphic       2
3485                   direction     l2r
3486                   registry      "cdp\\.itaiji-1$"
3487                   mother        =big5-cdp))
3488   (make-charset '=>big5-cdp-itaiji-001
3489                 "Big5-CDP-itaiji-001 abstract characters of GlyphWiki"
3490                 '(long-name     "Big5-CDP-itaiji-001"
3491                   chars         256
3492                   dimension     2
3493                   columns       2
3494                   graphic       2
3495                   direction     l2r
3496                   registry      "cdp\\.itaiji-1$"
3497                   mother        =big5-cdp-itaiji-001))
3498   (make-charset '==big5-cdp-itaiji-001
3499                 "Big5-CDP-itaiji-001 abstract glyph-image of GlyphWiki"
3500                 '(long-name     "Big5-CDP-itaiji-001"
3501                   chars         256
3502                   dimension     2
3503                   columns       2
3504                   graphic       2
3505                   direction     l2r
3506                   registry      "cdp\\.itaiji-1$"
3507                   mother        =big5-cdp-itaiji-001))
3508
3509   (make-charset '=big5-cdp-itaiji-002
3510                 "Big5-CDP-itaiji-001 glyphs of GlyphWiki"
3511                 '(long-name     "Big5-CDP-itaiji-002"
3512                   chars         256
3513                   dimension     2
3514                   columns       2
3515                   graphic       2
3516                   direction     l2r
3517                   registry      "cdp\\.itaiji-2$"
3518                   mother        =big5-cdp))
3519
3520   (make-charset '=big5-cdp-itaiji-003
3521                 "Big5-CDP-itaiji-001 glyphs of GlyphWiki"
3522                 '(long-name     "Big5-CDP-itaiji-003"
3523                   chars         256
3524                   dimension     2
3525                   columns       2
3526                   graphic       2
3527                   direction     l2r
3528                   registry      "cdp\\.itaiji-3$"
3529                   mother        =big5-cdp))
3530
3531   (make-charset '=big5-cdp-var-001
3532                 "Big5-CDP-var-001 glyph-images of GlyphWiki"
3533                 '(long-name     "Big5-CDP-var-001"
3534                   chars         256
3535                   dimension     2
3536                   columns       2
3537                   graphic       2
3538                   direction     l2r
3539                   registry      "cdp\\.var-1$"
3540                   mother        =big5-cdp))
3541
3542   (make-charset '=big5-cdp-var-002
3543                 "Big5-CDP-var-002 glyph-images of GlyphWiki"
3544                 '(long-name     "Big5-CDP-var-002"
3545                   chars         256
3546                   dimension     2
3547                   columns       2
3548                   graphic       2
3549                   direction     l2r
3550                   registry      "cdp\\.var-2$"
3551                   mother        =big5-cdp))
3552
3553   (make-charset '=big5-cdp-var-003
3554                 "Big5-CDP-var-003 glyph-images of GlyphWiki"
3555                 '(long-name     "Big5-CDP-var-003"
3556                   chars         256
3557                   dimension     2
3558                   columns       2
3559                   graphic       2
3560                   direction     l2r
3561                   registry      "cdp\\.var-3$"
3562                   mother        =big5-cdp))
3563   (define-charset-alias '=big5-cdp-var-3 '=big5-cdp-var-003)
3564
3565   (make-charset '=big5-cdp-var-004
3566                 "Big5-CDP-var-004 glyph-images of GlyphWiki"
3567                 '(long-name     "Big5-CDP-var-004"
3568                   chars         256
3569                   dimension     2
3570                   columns       2
3571                   graphic       2
3572                   direction     l2r
3573                   registry      "cdp\\.var-4$"
3574                   mother        =big5-cdp))
3575
3576   (make-charset '=big5-cdp-var-005
3577                 "Big5-CDP-var-005 glyph-images of GlyphWiki"
3578                 '(long-name     "Big5-CDP-var-005"
3579                   chars         256
3580                   dimension     2
3581                   columns       2
3582                   graphic       2
3583                   direction     l2r
3584                   registry      "cdp\\.var-5$"
3585                   mother        =big5-cdp))
3586   (define-charset-alias '=big5-cdp-var-5 '=big5-cdp-var-005)
3587
3588   (make-charset '==>ucs@bucs
3589                 "Basic Subset of Coded Character Sets (BUCS)"
3590                 '(long-name     "BUCS abstract characters"
3591                   chars         256
3592                   dimension     3
3593                   columns       2
3594                   graphic       2
3595                   direction     l2r
3596                   =>iso-ir      177
3597                   mother        =ucs))
3598
3599   (make-charset '=>iwds-1
3600                 "The IRG Working Document Series 1: List of UCV of Ideograhs."
3601                 '(long-name     "IWDS 1: List of UCV"
3602                   chars         256
3603                   dimension     2
3604                   columns       2
3605                   graphic       2
3606                   direction     l2r))
3607
3608   (make-charset '=>ucs@iwds-1
3609                 "UCS abstract characters based on IWDS-1."
3610                 '(long-name     "UCS based on IWDS-1"
3611                   chars         256
3612                   dimension     3
3613                   columns       2
3614                   graphic       2
3615                   direction     l2r
3616                   =>iso-ir      177
3617                   mother        =ucs))
3618
3619   (make-charset '=>ucs@cognate
3620                 "UCS abstract characters based on cognate."
3621                 '(long-name     "UCS based on cognate"
3622                   chars         256
3623                   dimension     3
3624                   columns       2
3625                   graphic       2
3626                   direction     l2r
3627                   =>iso-ir      177
3628                   mother        =ucs))
3629
3630   (make-charset '=>ucs@component
3631                 "UCS encoding for abstract components of IWDS-1."
3632                 '(long-name     "UCS for IWDS-1 abstract components"
3633                   chars         256
3634                   dimension     3
3635                   columns       2
3636                   graphic       2
3637                   direction     l2r
3638                   =>iso-ir      177
3639                   mother        =ucs))
3640
3641   ;; (make-charset '=>ucs@hanyo-denshi
3642   ;;               "UCS abstract characters based on Han'you-Denshi collection."
3643   ;;               '(long-name     "UCS base characters of Han'you-Denshi"
3644   ;;                 chars         256
3645   ;;                 dimension     3
3646   ;;                 columns       2
3647   ;;                 graphic       2
3648   ;;                 direction     l2r
3649   ;;                 =>iso-ir      177
3650   ;;                 mother        =ucs))
3651
3652   (make-charset '=>ucs@iso
3653                 "Abstract characters of ISO/IEC 10646 representatives"
3654                 '(long-name     "UCS characters for ISO"
3655                   chars         256
3656                   dimension     3
3657                   columns       2
3658                   graphic       2
3659                   direction     l2r
3660                   =>iso-ir      177
3661                   mother        =ucs))
3662   (make-charset '=>ucs@unicode
3663                 "Abstract characters of Unicode representatives"
3664                 '(long-name     "UCS characters for Unicode"
3665                   chars         256
3666                   dimension     3
3667                   columns       2
3668                   graphic       2
3669                   direction     l2r
3670                   =>iso-ir      177
3671                   mother        =>ucs@iso))
3672   (make-charset '=>ucs@jis
3673                 "UCS representative characters for JIS X0208/0212/0213"
3674                 '(long-name     "UCS characters for JIS"
3675                   chars         256
3676                   dimension     3
3677                   columns       2
3678                   graphic       2
3679                   direction     l2r
3680                   =>iso-ir      177
3681                   mother        =>ucs@unicode))
3682   (make-charset '=>ucs@jis/2000
3683                 "ISO/IEC 10646 for JIS X 0213:2000"
3684                 '(long-name     "UCS for JIS:2000"
3685                   chars         256
3686                   dimension     3
3687                   columns       2
3688                   graphic       2
3689                   direction     l2r
3690                   =>iso-ir      177
3691                   mother        =>ucs@jis))
3692   (make-charset '=>ucs@jis/2004
3693                 "ISO/IEC 10646 for JIS X 0213:2004"
3694                 '(long-name     "UCS for JIS:2004"
3695                   chars         256
3696                   dimension     3
3697                   columns       2
3698                   graphic       2
3699                   direction     l2r
3700                   =>iso-ir      177
3701                   mother        =>ucs@jis))
3702   (make-charset '=>ucs@ks
3703                 "UCS representative characters for Korean Standards"
3704                 '(long-name     "UCS characters for KS"
3705                   chars         256
3706                   dimension     3
3707                   columns       2
3708                   graphic       2
3709                   direction     l2r
3710                   =>iso-ir      177
3711                   mother        =>ucs@unicode))
3712   (make-charset '=>ucs@cns
3713                 "UCS representatives characters for CNS 11643 sources"
3714                 '(long-name     "UCS characters for CNS 11643"
3715                   chars         256
3716                   dimension     3
3717                   columns       2
3718                   graphic       2
3719                   direction     l2r
3720                   =>iso-ir      177
3721                   mother        =>ucs@unicode))
3722
3723   (make-charset '=+>ucs@iso
3724                 "UCS based on ISO/IEC 10646 representative glyphs"
3725                 '(long-name     "Unified abstract glyphs of UCS"
3726                   chars         256
3727                   dimension     3
3728                   columns       2
3729                   graphic       2
3730                   direction     l2r
3731                   =>iso-ir      177
3732                   mother        =>ucs@iso))
3733   (make-charset '=+>ucs@unicode
3734                 "Unicode representative unified abstract glyphs"
3735                 '(long-name     "UCS unified abstract glyphs for Unicode"
3736                   chars         256
3737                   dimension     3
3738                   columns       2
3739                   graphic       2
3740                   direction     l2r
3741                   =>iso-ir      177
3742                   mother        =+>ucs@iso))
3743   (make-charset '=+>ucs@jis
3744                 "UCS based on Japanese usual unification"
3745                 '(long-name     "UCS unified abstract glyphs for JP"
3746                   chars         256
3747                   dimension     3
3748                   columns       2
3749                   graphic       2
3750                   direction     l2r
3751                   =>iso-ir      177
3752                   mother        =+>ucs@unicode))
3753   (define-charset-alias '=>ucs@JP '=+>ucs@jis)
3754   (make-charset '=+>ucs@jis/1990
3755                 "UCS representative characters for JIS X0208/0212:1990"
3756                 '(long-name     "UCS characters for JIS:1990"
3757                   chars         256
3758                   dimension     3
3759                   columns       2
3760                   graphic       2
3761                   direction     l2r
3762                   =>iso-ir      177
3763                   mother        =+>ucs@jis))
3764   (define-charset-alias '=>ucs@jis/1990 '=+>ucs@jis/1990)
3765   (make-charset '=+>ucs@jis/2004
3766                 "UCS representative characters for JIS X 0213:2004"
3767                 '(long-name     "UCS characters for JIS:2004"
3768                   chars         256
3769                   dimension     3
3770                   columns       2
3771                   graphic       2
3772                   direction     l2r
3773                   =>iso-ir      177
3774                   mother        =+>ucs@jis))
3775   (make-charset '=+>ucs@ks
3776                 "UCS representative unified abstract glyphs for Korean Standards"
3777                 '(long-name     "UCS unified abstract glyphs for KS"
3778                   chars         256
3779                   dimension     3
3780                   columns       2
3781                   graphic       2
3782                   direction     l2r
3783                   =>iso-ir      177
3784                   mother        =+>ucs@unicode))
3785   (make-charset '=+>ucs@cns
3786                 "UCS representatives unified abstract glyphs for CNS 11643 sources"
3787                 '(long-name     "UCS unified abstract glyphs for CNS"
3788                   chars         256
3789                   dimension     3
3790                   columns       2
3791                   graphic       2
3792                   direction     l2r
3793                   =>iso-ir      177
3794                   mother        =+>ucs@unicode))
3795
3796   (make-charset '=ucs@iso
3797                 "ISO/IEC 10646 for its representative glyphs"
3798                 '(long-name     "UCS for ISO"
3799                   chars         256
3800                   dimension     3
3801                   columns       2
3802                   graphic       2
3803                   direction     l2r
3804                   =>iso-ir      177
3805                   mother        =+>ucs@iso
3806                   ))
3807   (make-charset '=ucs@unicode
3808                 "Unicode for its representative glyphs"
3809                 '(long-name     "UCS for Unicode"
3810                   chars         256
3811                   dimension     3
3812                   columns       2
3813                   graphic       2
3814                   direction     l2r
3815                   =>iso-ir      177
3816                   mother        =ucs@iso))
3817   (make-charset '=ucs@gb
3818                 "ISO/IEC 10646 for GB"
3819                 '(long-name     "UCS for GB"
3820                   chars         256
3821                   dimension     3
3822                   columns       2
3823                   graphic       2
3824                   direction     l2r
3825                   =>iso-ir      177
3826                   mother        =ucs@unicode))
3827   (define-charset-alias 'ucs-gb '=ucs@gb)
3828   (make-charset '=ucs@gb/fw
3829                 "ISO/IEC 10646 for GB with fullwidth"
3830                 '(long-name     "UCS for GB-fullwidth"
3831                   chars         256
3832                   dimension     3
3833                   columns       2
3834                   graphic       2
3835                   direction     l2r
3836                   =>iso-ir      177
3837                   mother        =ucs@gb))
3838   (make-charset '=ucs-bmp@gb
3839                 "ISO/IEC 10646 BMP for GB"
3840                 '(long-name     "BMP for GB"
3841                   chars         256
3842                   dimension     3
3843                   columns       2
3844                   graphic       2
3845                   direction     l2r
3846                   mother        =ucs@gb
3847                   min-code      #x0000
3848                   max-code      #xFFFF))
3849   (make-charset '=ucs@cns
3850                 "ISO/IEC 10646 for CNS 11643"
3851                 '(long-name     "UCS for CNS"
3852                   chars         256
3853                   dimension     3
3854                   columns       2
3855                   graphic       2
3856                   direction     l2r
3857                   =>iso-ir      177
3858                   mother        =ucs@unicode))
3859   (define-charset-alias 'ucs-cns '=ucs@cns)
3860   (make-charset '=ucs@cns/fw
3861                 "ISO/IEC 10646 for CNS 11643 with fullwidth"
3862                 '(long-name     "UCS for CNS-fullwidth"
3863                   chars         256
3864                   dimension     3
3865                   columns       2
3866                   graphic       2
3867                   direction     l2r
3868                   =>iso-ir      177
3869                   mother        =ucs@cns))
3870   (make-charset '=ucs-bmp@cns
3871                 "ISO/IEC 10646 BMP for CNS"
3872                 '(long-name     "BMP for CNS"
3873                   chars         256
3874                   dimension     3
3875                   columns       2
3876                   graphic       2
3877                   direction     l2r
3878                   mother        =ucs@cns
3879                   min-code      #x0000
3880                   max-code      #xFFFF))
3881   (make-charset '=ucs@jis
3882                 "ISO/IEC 10646 for JIS X0208/0212/0213"
3883                 '(long-name     "UCS for JIS"
3884                   chars         256
3885                   dimension     3
3886                   columns       2
3887                   graphic       2
3888                   direction     l2r
3889                   =>iso-ir      177
3890                   mother        =ucs@unicode))
3891   (define-charset-alias 'ucs-jis '=ucs@jis)
3892   (make-charset '=ucs@jis/fw
3893                 "ISO/IEC 10646 for JIS X0208/0212/0213 with fullwidth"
3894                 '(long-name     "UCS for JIS-fullwidth"
3895                   chars         256
3896                   dimension     3
3897                   columns       2
3898                   graphic       2
3899                   direction     l2r
3900                   =>iso-ir      177
3901                   mother        =ucs@jis))
3902   (make-charset '=ucs-bmp@jis
3903                 "ISO/IEC 10646 BMP for JIS"
3904                 '(long-name     "BMP for JIS"
3905                   chars         256
3906                   dimension     3
3907                   columns       2
3908                   graphic       2
3909                   direction     l2r
3910                   mother        =ucs@jis
3911                   min-code      #x0000
3912                   max-code      #xFFFF))
3913   ;; (make-charset '=ucs@jis/1983
3914   ;;               "ISO/IEC 10646 for JIS X 0208:1983"
3915   ;;               '(long-name     "UCS for JIS:1983"
3916   ;;                 chars         256
3917   ;;                 dimension     3
3918   ;;                 columns       2
3919   ;;                 graphic       2
3920   ;;                 direction     l2r
3921   ;;                 =>iso-ir      177
3922   ;;                 mother        =ucs@jis))
3923   (make-charset '=ucs@jis/1990
3924                 "ISO/IEC 10646 for JIS X 0208/0212:1990"
3925                 '(long-name     "UCS for JIS:1990"
3926                   chars         256
3927                   dimension     3
3928                   columns       2
3929                   graphic       2
3930                   direction     l2r
3931                   =>iso-ir      177
3932                   mother        =ucs@jis))
3933   (define-charset-alias '=ucs@jis-1990 '=ucs@jis/1990)
3934   (define-charset-alias '=ucs-jis-1990 '=ucs@jis/1990)
3935   (make-charset '=ucs@jis/2000
3936                 "ISO/IEC 10646 for JIS X 0213:2000"
3937                 '(long-name     "UCS for JIS:2000"
3938                   chars         256
3939                   dimension     3
3940                   columns       2
3941                   graphic       2
3942                   direction     l2r
3943                   =>iso-ir      177
3944                   mother        =ucs@jis))
3945   (define-charset-alias '=ucs@jis-2000 '=ucs@jis/2000)
3946   (define-charset-alias '=ucs-jis-2000 '=ucs@jis/2000)
3947   (make-charset '=ucs@jis/2004
3948                 "ISO/IEC 10646 for JIS X 0213:2004"
3949                 '(long-name     "UCS for JIS:2004"
3950                   chars         256
3951                   dimension     3
3952                   columns       2
3953                   graphic       2
3954                   direction     l2r
3955                   =>iso-ir      177
3956                   mother        =ucs@jis))
3957   (make-charset '=ucs@JP
3958                 "UCS for common glyphs used in Japan"
3959                 '(long-name     "UCS for Japan"
3960                   chars         256
3961                   dimension     3
3962                   columns       2
3963                   graphic       2
3964                   direction     l2r
3965                   =>iso-ir      177
3966                   mother        =ucs@jis/2004))
3967   (define-charset-alias '=ucs@jp '=ucs@JP)
3968   (make-charset '=ucs@JP/hanazono
3969                 "Japanese glyph-images of Hanazono Mincho"
3970                 '(long-name     "UCS for Hana-Min"
3971                   chars         256
3972                   dimension     3
3973                   columns       2
3974                   graphic       2
3975                   direction     l2r
3976                   =>iso-ir      177
3977                   mother        =ucs@JP))
3978   (make-charset '=ucs@ks
3979                 "ISO/IEC 10646 for Korean Standards"
3980                 '(long-name     "UCS for KS"
3981                   chars         256
3982                   dimension     3
3983                   columns       2
3984                   graphic       2
3985                   direction     l2r
3986                   =>iso-ir      177
3987                   mother        =ucs@unicode))
3988   (define-charset-alias 'ucs-ks '=ucs@ks)
3989   (make-charset '=ucs@ks/2012
3990                 "Mapping for Korean Standards in ISO/IEC 10646:2012"
3991                 '(long-name     "UCS:2012 for KS"
3992                   chars         256
3993                   dimension     3
3994                   columns       2
3995                   graphic       2
3996                   direction     l2r
3997                   =>iso-ir      177
3998                   mother        =ucs@ks))
3999   (make-charset '=ucs-bmp@ks
4000                 "ISO/IEC 10646 BMP for KS"
4001                 '(long-name     "BMP for KS"
4002                   chars         256
4003                   dimension     3
4004                   columns       2
4005                   graphic       2
4006                   direction     l2r
4007                   mother        =ucs@ks
4008                   min-code      #x0000
4009                   max-code      #xFFFF))
4010   (make-charset '=ucs@cns11643
4011                 "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw"
4012                 '(long-name     "UCS for CNS11643"
4013                   chars         256
4014                   dimension     3
4015                   columns       2
4016                   graphic       2
4017                   direction     l2r
4018                   =>iso-ir      177
4019                   mother        =ucs@cns))
4020   (make-charset '=ucs@big5
4021                 "ISO/IEC 10646 for Big5"
4022                 '(long-name     "UCS for Big5"
4023                   chars         256
4024                   dimension     3
4025                   columns       2
4026                   graphic       2
4027                   direction     l2r
4028                   =>iso-ir      177
4029                   ;; mother     =>ucs@iwds-1
4030                   mother        =ucs@cns
4031                   ;; mother     =>>ucs@cns
4032                   ))
4033   (define-charset-alias 'ucs-big5 '=ucs@big5)
4034   (make-charset '=ucs@big5/cns11643
4035                 "ISO/IEC 10646 for Big5 based on www.cns11643.gov.tw"
4036                 '(long-name     "UCS for Big5@CNS11643"
4037                   chars         256
4038                   dimension     3
4039                   columns       2
4040                   graphic       2
4041                   direction     l2r
4042                   =>iso-ir      177
4043                   mother        =ucs@big5))
4044
4045   (make-charset '=>>ucs@iso
4046                 "Representative abstract-glyphs of ISO/IEC 10646"
4047                 '(long-name     "UCS abstract glyphs for UCS"
4048                   chars         256
4049                   dimension     3
4050                   columns       2
4051                   graphic       2
4052                   direction     l2r
4053                   =>iso-ir      177
4054                   mother        =ucs@iso))
4055   (make-charset '=>>ucs@unicode
4056                 "Representative abstract-glyphs of Unicode"
4057                 '(long-name     "Unicode abstract glyphs"
4058                   chars         256
4059                   dimension     3
4060                   columns       2
4061                   graphic       2
4062                   direction     l2r
4063                   =>iso-ir      177
4064                   mother        =>>ucs@iso))
4065   (make-charset '=>>ucs@jis
4066                 "UCS Representative abstract-glyphs for JIS X0208/0212/0213"
4067                 '(long-name     "UCS abstract glyphs for JIS"
4068                   chars         256
4069                   dimension     3
4070                   columns       2
4071                   graphic       2
4072                   direction     l2r
4073                   =>iso-ir      177
4074                   mother        =>>ucs@unicode))
4075   (make-charset '=>>ucs@jis/1990
4076                 "UCS Representative glyphs for JIS X 0208/0212:1990"
4077                 '(long-name     "UCS glyphs for JIS:1990"
4078                   chars         256
4079                   dimension     3
4080                   columns       2
4081                   graphic       2
4082                   direction     l2r
4083                   =>iso-ir      177
4084                   mother        =>>ucs@jis))
4085   (make-charset '=>>ucs@jis/2000
4086                 "UCS Representative glyphs for JIS X 0213:2000"
4087                 '(long-name     "UCS glyphs for JIS:2000"
4088                   chars         256
4089                   dimension     3
4090                   columns       2
4091                   graphic       2
4092                   direction     l2r
4093                   =>iso-ir      177
4094                   mother        =>>ucs@jis))
4095   (make-charset '=>>ucs@jis/2004
4096                 "UCS Representative glyphs for JIS X 0213:2004"
4097                 '(long-name     "UCS glyphs for JIS:2004"
4098                   chars         256
4099                   dimension     3
4100                   columns       2
4101                   graphic       2
4102                   direction     l2r
4103                   =>iso-ir      177
4104                   mother        =>>ucs@jis))
4105   (make-charset '=>>ucs@JP
4106                 "UCS abstract-glyphs based on Japanese style glyphs"
4107                 '(long-name     "UCS glyphs for JP"
4108                   chars         256
4109                   dimension     3
4110                   columns       2
4111                   graphic       2
4112                   direction     l2r
4113                   =>iso-ir      177
4114                   mother        =>>ucs@jis/2004))
4115   (make-charset '=>>ucs@ks
4116                 "UCS Representative glyphs for Korean Standards"
4117                 '(long-name     "UCS glyphs for KS"
4118                   chars         256
4119                   dimension     3
4120                   columns       2
4121                   graphic       2
4122                   direction     l2r
4123                   =>iso-ir      177
4124                   mother        =>>ucs@unicode))
4125   (make-charset '=>>ucs@cns
4126                 "UCS Representative glyphs for CNS 11643 sources"
4127                 '(long-name     "UCS glyphs for CNS"
4128                   chars         256
4129                   dimension     3
4130                   columns       2
4131                   graphic       2
4132                   direction     l2r
4133                   =>iso-ir      177
4134                   mother        =>>ucs@unicode))
4135
4136   (make-charset '==ucs@iso
4137                 "Representative glyph-forms of ISO/IEC 10646."
4138                 '(long-name     "UCS glyph-forms for UCS"
4139                   chars         256
4140                   dimension     3
4141                   columns       2
4142                   graphic       2
4143                   direction     l2r
4144                   =>iso-ir      177
4145                   mother        =>>ucs@iso))
4146   (define-charset-alias '=>>>ucs@iso '==ucs@iso)
4147   (make-charset '==ucs@unicode
4148                 "Representative glyph-forms of Unicode."
4149                 '(long-name     "UCS glyph-forms for Unicode"
4150                   chars         256
4151                   dimension     3
4152                   columns       2
4153                   graphic       2
4154                   direction     l2r
4155                   =>iso-ir      177
4156                   mother        ==ucs@iso))
4157   (define-charset-alias '=>>>ucs@unicode '==ucs@unicode)
4158   (make-charset '==ucs@gb
4159                 "ISO/IEC 10646 for GB"
4160                 '(long-name     "UCS for GB"
4161                   chars         256
4162                   dimension     3
4163                   columns       2
4164                   graphic       2
4165                   direction     l2r
4166                   =>iso-ir      177
4167                   mother        ==ucs@unicode))
4168   (make-charset '==ucs-bmp@gb
4169                 "ISO/IEC 10646 BMP for GB"
4170                 '(long-name     "BMP for GB"
4171                   chars         256
4172                   dimension     3
4173                   columns       2
4174                   graphic       2
4175                   direction     l2r
4176                   mother        ==ucs@gb
4177                   min-code      #x0000
4178                   max-code      #xFFFF))
4179   (make-charset '==ucs@cns
4180                 "UCS Representative glyph-forms for CNS 11643 sources."
4181                 '(long-name     "UCS glyph-forms for CNS"
4182                   chars         256
4183                   dimension     3
4184                   columns       2
4185                   graphic       2
4186                   direction     l2r
4187                   =>iso-ir      177
4188                   mother        ==ucs@unicode))
4189   (define-charset-alias '=>>>ucs@cns '==ucs@cns)
4190   (make-charset '==ucs-bmp@cns
4191                 "ISO/IEC 10646 BMP for CNS"
4192                 '(long-name     "BMP for CNS"
4193                   chars         256
4194                   dimension     3
4195                   columns       2
4196                   graphic       2
4197                   direction     l2r
4198                   mother        ==ucs@cns
4199                   min-code      #x0000
4200                   max-code      #xFFFF))
4201   (make-charset '==ucs@jis
4202                 "UCS Representative glyph-forms for JIS X0208/0212/0213."
4203                 '(long-name     "UCS glyph-forms for JIS"
4204                   chars         256
4205                   dimension     3
4206                   columns       2
4207                   graphic       2
4208                   direction     l2r
4209                   =>iso-ir      177
4210                   mother        ==ucs@unicode))
4211   (define-charset-alias '=>>>ucs@jis '==ucs@jis)
4212   (make-charset '==ucs@jis/1990
4213                 "UCS Representative glyph-forms for JIS X 0208/0212:1990."
4214                 '(long-name     "UCS glyph-forms for JIS:1990"
4215                   chars         256
4216                   dimension     3
4217                   columns       2
4218                   graphic       2
4219                   direction     l2r
4220                   =>iso-ir      177
4221                   mother        ==ucs@jis))
4222   (define-charset-alias '=>>>ucs@jis/1990 '==ucs@jis/1990)
4223   (make-charset '==ucs@jis/2000
4224                 "UCS Representative glyph-forms for JIS X 0213:2000."
4225                 '(long-name     "UCS glyph-forms for JIS:2000"
4226                   chars         256
4227                   dimension     3
4228                   columns       2
4229                   graphic       2
4230                   direction     l2r
4231                   =>iso-ir      177
4232                   mother        ==ucs@jis))
4233   (define-charset-alias '=>>>ucs@jis/2000 '==ucs@jis/2000)
4234   (make-charset '==ucs@jis/2004
4235                 "UCS Representative glyph-forms for JIS X 0213:2004."
4236                 '(long-name     "UCS glyph-forms for JIS:2004"
4237                   chars         256
4238                   dimension     3
4239                   columns       2
4240                   graphic       2
4241                   direction     l2r
4242                   =>iso-ir      177
4243                   mother        ==ucs@jis))
4244   (define-charset-alias '=>>>ucs@jis/2004 '==ucs@jis/2004)
4245   (make-charset '==ucs@JP
4246                 "UCS for common glyph-forms used in Japan."
4247                 '(long-name     "UCS for Japan"
4248                   chars         256
4249                   dimension     3
4250                   columns       2
4251                   graphic       2
4252                   direction     l2r
4253                   =>iso-ir      177
4254                   mother        ==ucs@jis/2004))
4255   (make-charset '==ucs@JP/hanazono
4256                 "Japanese glyph-forms of Hanazono Mincho."
4257                 '(long-name     "UCS for Hana-Min"
4258                   chars         256
4259                   dimension     3
4260                   columns       2
4261                   graphic       2
4262                   direction     l2r
4263                   =>iso-ir      177
4264                   mother        ==ucs@JP))
4265   (make-charset '==ucs@ks
4266                 "UCS Representative glyph-forms for Korean Standards."
4267                 '(long-name     "UCS glyph-forms for KS"
4268                   chars         256
4269                   dimension     3
4270                   columns       2
4271                   graphic       2
4272                   direction     l2r
4273                   =>iso-ir      177
4274                   mother        ==ucs@unicode))
4275   (define-charset-alias '=>>>ucs@ks '==ucs@ks)
4276   (make-charset '==ucs-bmp@ks
4277                 "ISO/IEC 10646 BMP for KS."
4278                 '(long-name     "BMP for KS"
4279                   chars         256
4280                   dimension     3
4281                   columns       2
4282                   graphic       2
4283                   direction     l2r
4284                   mother        ==ucs@ks
4285                   min-code      #x0000
4286                   max-code      #xFFFF))
4287   (make-charset '==ucs@cns11643
4288                 "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw."
4289                 '(long-name     "UCS for CNS11643"
4290                   chars         256
4291                   dimension     3
4292                   columns       2
4293                   graphic       2
4294                   direction     l2r
4295                   =>iso-ir      177
4296                   mother        ==ucs@cns))
4297
4298   (make-charset '===ucs@iso
4299                 "ISO/IEC 10646-2 representative glyph-images."
4300                 '(long-name     "ISO rep-images for UCS"
4301                   chars         256
4302                   dimension     3
4303                   columns       2
4304                   graphic       2
4305                   direction     l2r
4306                   =>iso-ir      177
4307                   mother        ==ucs@iso))
4308   (make-charset '===ucs@unicode
4309                 "Unicode for its representative glyph-images."
4310                 '(long-name     "UCS for Unicode"
4311                   chars         256
4312                   dimension     3
4313                   columns       2
4314                   graphic       2
4315                   direction     l2r
4316                   =>iso-ir      177
4317                   mother        ==ucs@unicode))
4318   (make-charset '===ucs@gb
4319                 "UCS representative glyph-images of GB."
4320                 '(long-name     "UCS rep-images for GB"
4321                   chars         256
4322                   dimension     3
4323                   columns       2
4324                   graphic       2
4325                   direction     l2r
4326                   =>iso-ir      177
4327                   mother        ===ucs@unicode))
4328   (make-charset '===ucs@ks
4329                 "UCS representative glyph-images of Korean Standards."
4330                 '(long-name     "UCS rep-images for KS"
4331                   chars         256
4332                   dimension     3
4333                   columns       2
4334                   graphic       2
4335                   direction     l2r
4336                   =>iso-ir      177
4337                   mother        ==ucs@ks))
4338
4339   (make-charset '=ucs-var-001
4340                 "uXXXX-var-001 glyph-images of GlyphWiki"
4341                 '(long-name     "UCS-var-001"
4342                   chars         256
4343                   dimension     3
4344                   columns       2
4345                   graphic       2
4346                   direction     l2r
4347                   ;; =>iso-ir   177
4348                   mother        =ucs))
4349   (make-charset '=ucs-bmp-var-001
4350                 "uXXXX-var-001 glyph-images in BMP"
4351                 '(long-name     "UCS-BMP-var-001"
4352                   chars         256
4353                   dimension     2
4354                   columns       2
4355                   graphic       2
4356                   direction     l2r
4357                   ;; =>iso-ir   177
4358                   mother        =ucs-var-001
4359                   min-code #x2E00
4360                   max-code #x9FCC
4361                   registry "ucs\\.var001-0"))
4362   (make-charset '=ucs-sip-var-001
4363                 "uXXXX-var-001 glyph-images in SIP"
4364                 '(long-name     "UCS-SIP-var-001"
4365                   chars         256
4366                   dimension     2
4367                   columns       2
4368                   graphic       2
4369                   direction     l2r
4370                   mother        =ucs-var-001
4371                   min-code #x20000 max-code #x2FFFF
4372                   registry "ucs00\\.var001-2"))
4373
4374   (make-charset '=ucs-var-002
4375                 "uXXXX-var-002 glyph-images of GlyphWiki"
4376                 '(long-name     "UCS-var-002"
4377                   chars         256
4378                   dimension     3
4379                   columns       2
4380                   graphic       2
4381                   direction     l2r
4382                   ;; =>iso-ir   177
4383                   mother        =ucs))
4384   (make-charset '=ucs-bmp-var-002
4385                 "uXXXX-var-002 glyph-images in BMP"
4386                 '(long-name     "UCS-BMP-var-002"
4387                   chars         256
4388                   dimension     2
4389                   columns       2
4390                   graphic       2
4391                   direction     l2r
4392                   ;; =>iso-ir   177
4393                   mother        =ucs-var-002
4394                   min-code #x2E00
4395                   max-code #x9FCC
4396                   registry "ucs\\.var002-0"))
4397   (make-charset '=ucs-sip-var-002
4398                 "uXXXX-var-002 glyph-images in SIP"
4399                 '(long-name     "UCS-SIP-var-002"
4400                   chars         256
4401                   dimension     2
4402                   columns       2
4403                   graphic       2
4404                   direction     l2r
4405                   mother        =ucs-var-002
4406                   min-code #x20000 max-code #x2FFFF
4407                   registry "ucs00\\.var002-2"))
4408   (make-charset '==ucs-var-002
4409                 "Abstract glyph-forms corresponding with uXXXX-var-002 of GlyphWiki"
4410                 '(long-name     "UCS-var-002"
4411                   chars         256
4412                   dimension     3
4413                   columns       2
4414                   graphic       2
4415                   direction     l2r
4416                   ;; =>iso-ir   177
4417                   mother        =ucs-var-002))
4418   (make-charset '==ucs-bmp-var-002
4419                 "uXXXX-var-002's abstract glyph-forms in BMP"
4420                 '(long-name     "UCS-BMP-var-002 glyph-forms"
4421                   chars         256
4422                   dimension     2
4423                   columns       2
4424                   graphic       2
4425                   direction     l2r
4426                   ;; =>iso-ir   177
4427                   mother        ==ucs-var-002
4428                   min-code #x2E00
4429                   max-code #x9FCC
4430                   registry "ucs\\.var002-0"))
4431   (make-charset '==ucs-sip-var-002
4432                 "uXXXX-var-002's abstract glyph-forms in SIP"
4433                 '(long-name     "UCS-SIP-var-002 glyph-forms"
4434                   chars         256
4435                   dimension     2
4436                   columns       2
4437                   graphic       2
4438                   direction     l2r
4439                   mother        ==ucs-var-002
4440                   min-code #x20000 max-code #x2FFFF
4441                   registry "ucs00\\.var002-2"))
4442
4443   (make-charset '=ucs-var-003
4444                 "uXXXX-var-003 glyph-images of GlyphWiki"
4445                 '(long-name     "UCS-var-003"
4446                   chars         256
4447                   dimension     3
4448                   columns       2
4449                   graphic       2
4450                   direction     l2r
4451                   ;; =>iso-ir   177
4452                   mother        =ucs))
4453   (make-charset '=ucs-bmp-var-003
4454                 "uXXXX-var-003 glyph-images in BMP"
4455                 '(long-name     "UCS-BMP-var-003"
4456                   chars         256
4457                   dimension     2
4458                   columns       2
4459                   graphic       2
4460                   direction     l2r
4461                   ;; =>iso-ir   177
4462                   mother        =ucs-var-003
4463                   min-code #x2E00
4464                   max-code #x9FCC
4465                   registry "ucs\\.var003-0"))
4466   (make-charset '=ucs-sip-var-003
4467                 "uXXXX-var-003 glyph-images in SIP"
4468                 '(long-name     "UCS-SIP-var-003"
4469                   chars         256
4470                   dimension     2
4471                   columns       2
4472                   graphic       2
4473                   direction     l2r
4474                   mother        =ucs-var-003
4475                   min-code #x20000 max-code #x2FFFF
4476                   registry "ucs00\\.var003-2"))
4477   (make-charset '=+>ucs-var-003
4478                 "uXXXX-var-003's unified glyphs of GlyphWiki"
4479                 '(long-name     "UCS-var-003 unified glyphs"
4480                   chars         256
4481                   dimension     3
4482                   columns       2
4483                   graphic       2
4484                   direction     l2r
4485                   ;; =>iso-ir   177
4486                   mother        =ucs-var-003))
4487   (make-charset '=+>ucs-bmp-var-003
4488                 "uXXXX-var-003's unified glyphs in BMP"
4489                 '(long-name     "UCS-BMP-var-003 unified glyphs"
4490                   chars         256
4491                   dimension     2
4492                   columns       2
4493                   graphic       2
4494                   direction     l2r
4495                   ;; =>iso-ir   177
4496                   mother        =+>ucs-var-003
4497                   min-code #x2E00
4498                   max-code #x9FCC
4499                   registry "ucs\\.var003-0"))
4500
4501   (make-charset '=ucs-var-004
4502                 "uXXXX-var-004 glyph-images of GlyphWiki"
4503                 '(long-name     "UCS-var-004"
4504                   chars         256
4505                   dimension     3
4506                   columns       2
4507                   graphic       2
4508                   direction     l2r
4509                   ;; =>iso-ir   177
4510                   mother        =ucs))
4511   (make-charset '=ucs-bmp-var-004
4512                 "uXXXX-var-004 glyph-images in BMP"
4513                 '(long-name     "UCS-BMP-var-004"
4514                   chars         256
4515                   dimension     2
4516                   columns       2
4517                   graphic       2
4518                   direction     l2r
4519                   ;; =>iso-ir   177
4520                   mother        =ucs-var-004
4521                   min-code #x2E00
4522                   max-code #x9FCC
4523                   registry "ucs\\.var004-0"))
4524   (make-charset '=ucs-sip-var-004
4525                 "uXXXX-var-004 glyph-images in SIP"
4526                 '(long-name     "UCS-SIP-var-004"
4527                   chars         256
4528                   dimension     2
4529                   columns       2
4530                   graphic       2
4531                   direction     l2r
4532                   mother        =ucs-var-004
4533                   min-code #x20000 max-code #x2FFFF
4534                   registry "ucs00\\.var004-2"))
4535   (make-charset '=ucs-var-005
4536                 "uXXXX-var-005 glyph-images of GlyphWiki"
4537                 '(long-name     "UCS-var-005"
4538                   chars         256
4539                   dimension     3
4540                   columns       2
4541                   graphic       2
4542                   direction     l2r
4543                   ;; =>iso-ir   177
4544                   mother        =ucs))
4545   (make-charset '=ucs-bmp-var-005
4546                 "uXXXX-var-005 glyph-images in BMP"
4547                 '(long-name     "UCS-BMP-var-005"
4548                   chars         256
4549                   dimension     2
4550                   columns       2
4551                   graphic       2
4552                   direction     l2r
4553                   ;; =>iso-ir   177
4554                   mother        =ucs-var-005
4555                   min-code #x2E00
4556                   max-code #x9FCC
4557                   registry "ucs\\.var005-0"))
4558   (make-charset '=ucs-var-006
4559                 "uXXXX-var-006 glyph-images of GlyphWiki"
4560                 '(long-name     "UCS-var-006"
4561                   chars         256
4562                   dimension     3
4563                   columns       2
4564                   graphic       2
4565                   direction     l2r
4566                   ;; =>iso-ir   177
4567                   mother        =ucs))
4568   (make-charset '=ucs-bmp-var-006
4569                 "uXXXX-var-006 glyph-images in BMP"
4570                 '(long-name     "UCS-BMP-var-006"
4571                   chars         256
4572                   dimension     2
4573                   columns       2
4574                   graphic       2
4575                   direction     l2r
4576                   ;; =>iso-ir   177
4577                   mother        =ucs-var-006
4578                   min-code #x2E00
4579                   max-code #x9FCC
4580                   registry "ucs\\.var006-0"))
4581   (make-charset '=ucs-sip-var-006
4582                 "uXXXX-var-006 glyph-images in SIP"
4583                 '(long-name     "UCS-SIP-var-006"
4584                   chars         256
4585                   dimension     2
4586                   columns       2
4587                   graphic       2
4588                   direction     l2r
4589                   mother        =ucs-var-006
4590                   min-code #x20000 max-code #x2FFFF
4591                   registry "ucs00\\.var006-2"))
4592   (make-charset '=ucs-var-008
4593                 "uXXXX-var-008 glyph-images of GlyphWiki"
4594                 '(long-name     "UCS-var-008"
4595                   chars         256
4596                   dimension     3
4597                   columns       2
4598                   graphic       2
4599                   direction     l2r
4600                   ;; =>iso-ir   177
4601                   mother        =ucs))
4602   (make-charset '=ucs-bmp-var-008
4603                 "uXXXX-var-008 glyph-images in BMP"
4604                 '(long-name     "UCS-BMP-var-008"
4605                   chars         256
4606                   dimension     2
4607                   columns       2
4608                   graphic       2
4609                   direction     l2r
4610                   ;; =>iso-ir   177
4611                   mother        =ucs-var-008
4612                   min-code #x2E00
4613                   max-code #x9FCC
4614                   registry "ucs\\.var008-0"))
4615   (make-charset '=ucs-var-010
4616                 "uXXXX-var-010 glyph-forms of GlyphWiki"
4617                 '(long-name     "UCS-var-010"
4618                   chars         256
4619                   dimension     3
4620                   columns       2
4621                   graphic       2
4622                   direction     l2r
4623                   ;; =>iso-ir   177
4624                   mother        =ucs))
4625   (make-charset '=ucs-bmp-var-010
4626                 "uXXXX-var-010 glyph-forms in BMP"
4627                 '(long-name     "UCS-BMP-var-010"
4628                   chars         256
4629                   dimension     2
4630                   columns       2
4631                   graphic       2
4632                   direction     l2r
4633                   ;; =>iso-ir   177
4634                   mother        =ucs-var-010
4635                   min-code #x2E00
4636                   max-code #x9FCC
4637                   registry "ucs\\.var010-0"))
4638
4639   (make-charset '=ucs-itaiji-001
4640                 "uXXXX-itaiji-001 glyphs of GlyphWiki"
4641                 '(long-name     "UCS-itaiji-001"
4642                   chars         256
4643                   dimension     3
4644                   columns       2
4645                   graphic       2
4646                   direction     l2r
4647                   ;; =>iso-ir   177
4648                   mother        =ucs))
4649   (make-charset '=ucs-bmp-itaiji-001
4650                 "uXXXX-itaiji-001 glyph-images in BMP"
4651                 '(long-name     "UCS-BMP-itaiji-001"
4652                   chars         256
4653                   dimension     2
4654                   columns       2
4655                   graphic       2
4656                   direction     l2r
4657                   ;; =>iso-ir   177
4658                   mother        =ucs-itaiji-001
4659                   min-code #x2E00
4660                   max-code #x9FCC
4661                   registry "ucs\\.itaiji001-0"))
4662   (make-charset '=ucs-sip-itaiji-001
4663                 "uXXXX-itaiji-001 glyph-images in SIP"
4664                 '(long-name     "UCS-SIP-itaiji-001"
4665                   chars         256
4666                   dimension     2
4667                   columns       2
4668                   graphic       2
4669                   direction     l2r
4670                   mother        =ucs-itaiji-001
4671                   min-code #x20000 max-code #x2FFFF
4672                   registry "ucs00\\.itaiji001-2"))
4673   (make-charset '=>ucs-itaiji-001
4674                 "Abstract characters corresponding with uXXXX-itaiji-001 of GlyphWiki"
4675                 '(long-name     "UCS-itaiji-001"
4676                   chars         256
4677                   dimension     3
4678                   columns       2
4679                   graphic       2
4680                   direction     l2r
4681                   ;; =>iso-ir   177
4682                   mother        =ucs))
4683   (make-charset '=>ucs-bmp-itaiji-001
4684                 "uXXXX-itaiji-001's abstract characters in BMP"
4685                 '(long-name     "UCS-BMP-itaiji-001 characters"
4686                   chars         256
4687                   dimension     2
4688                   columns       2
4689                   graphic       2
4690                   direction     l2r
4691                   ;; =>iso-ir   177
4692                   mother        =>ucs-itaiji-001
4693                   min-code #x2E00
4694                   max-code #x9FCC
4695                   registry "ucs\\.itaiji001-0"))
4696   (make-charset '=>ucs-sip-itaiji-001
4697                 "uXXXX-itaiji-001 characters in SIP"
4698                 '(long-name     "UCS-SIP-itaiji-001"
4699                   chars         256
4700                   dimension     2
4701                   columns       2
4702                   graphic       2
4703                   direction     l2r
4704                   mother        =>ucs-itaiji-001
4705                   min-code #x20000 max-code #x2FFFF
4706                   registry "ucs00\\.itaiji001-2"))
4707   (make-charset '==ucs-itaiji-001
4708                 "Abstract glyph-forms corresponding with uXXXX-itaiji-001 of GlyphWiki"
4709                 '(long-name     "UCS-itaiji-001"
4710                   chars         256
4711                   dimension     3
4712                   columns       2
4713                   graphic       2
4714                   direction     l2r
4715                   ;; =>iso-ir   177
4716                   mother        =ucs-itaiji-001))
4717   (make-charset '==ucs-sip-itaiji-001
4718                 "uXXXX-itaiji-001's abstract glyph-forms in SIP"
4719                 '(long-name     "UCS-SIP-itaiji-001"
4720                   chars         256
4721                   dimension     2
4722                   columns       2
4723                   graphic       2
4724                   direction     l2r
4725                   mother        ==ucs-itaiji-001
4726                   min-code #x20000 max-code #x2FFFF
4727                   registry "ucs00\\.itaiji001-2"))
4728
4729   (make-charset '=ucs-itaiji-002
4730                 "uXXXX-itaiji-002 glyphs of GlyphWiki"
4731                 '(long-name     "UCS-itaiji-002"
4732                   chars         256
4733                   dimension     3
4734                   columns       2
4735                   graphic       2
4736                   direction     l2r
4737                   ;; =>iso-ir   177
4738                   mother        =ucs))
4739   (make-charset '=ucs-bmp-itaiji-002
4740                 "uXXXX-itaiji-002 glyph-images in BMP"
4741                 '(long-name     "UCS-BMP-itaiji-002"
4742                   chars         256
4743                   dimension     2
4744                   columns       2
4745                   graphic       2
4746                   direction     l2r
4747                   ;; =>iso-ir   177
4748                   mother        =ucs-itaiji-002
4749                   min-code #x2E00
4750                   max-code #x9FCC
4751                   registry "ucs\\.itaiji002-0"))
4752   (make-charset '=ucs-sip-itaiji-002
4753                 "uXXXX-itaiji-002 glyph-images in SIP"
4754                 '(long-name     "UCS-SIP-itaiji-002"
4755                   chars         256
4756                   dimension     2
4757                   columns       2
4758                   graphic       2
4759                   direction     l2r
4760                   mother        =ucs-itaiji-002
4761                   min-code #x20000 max-code #x2FFFF
4762                   registry "ucs00\\.itaiji002-2"))
4763   (make-charset '=>ucs-itaiji-002
4764                 "Abstract characters corresponding with uXXXX-itaiji-002 of GlyphWiki"
4765                 '(long-name     "UCS-itaiji-002"
4766                   chars         256
4767                   dimension     3
4768                   columns       2
4769                   graphic       2
4770                   direction     l2r
4771                   ;; =>iso-ir   177
4772                   mother        =ucs-itaiji-002))
4773   (make-charset '=>ucs-bmp-itaiji-002
4774                 "uXXXX-itaiji-002's abstract characters in BMP"
4775                 '(long-name     "UCS-BMP-itaiji-002 characters"
4776                   chars         256
4777                   dimension     2
4778                   columns       2
4779                   graphic       2
4780                   direction     l2r
4781                   ;; =>iso-ir   177
4782                   mother        =>ucs-itaiji-002
4783                   min-code #x2E00
4784                   max-code #x9FCC
4785                   registry "ucs\\.itaiji002-0"))
4786   (make-charset '=>ucs-sip-itaiji-002
4787                 "uXXXX-itaiji-002 characters in SIP"
4788                 '(long-name     "UCS-SIP-itaiji-002"
4789                   chars         256
4790                   dimension     2
4791                   columns       2
4792                   graphic       2
4793                   direction     l2r
4794                   mother        =>ucs-itaiji-002
4795                   min-code #x20000 max-code #x2FFFF
4796                   registry "ucs00\\.itaiji002-2"))
4797   (make-charset '==ucs-itaiji-002
4798                 "Abstract glyph-forms corresponding with uXXXX-itaiji-002 of GlyphWiki"
4799                 '(long-name     "UCS-itaiji-002"
4800                   chars         256
4801                   dimension     3
4802                   columns       2
4803                   graphic       2
4804                   direction     l2r
4805                   ;; =>iso-ir   177
4806                   mother        =ucs-itaiji-002))
4807   (make-charset '==ucs-bmp-itaiji-002
4808                 "uXXXX-itaiji-002's abstract glyph-forms in BMP"
4809                 '(long-name     "UCS-BMP-itaiji-002 characters"
4810                   chars         256
4811                   dimension     2
4812                   columns       2
4813                   graphic       2
4814                   direction     l2r
4815                   ;; =>iso-ir   177
4816                   mother        ==ucs-itaiji-002
4817                   min-code #x2E00
4818                   max-code #x9FCC
4819                   registry "ucs\\.itaiji002-0"))
4820   (make-charset '==ucs-sip-itaiji-002
4821                 "uXXXX-itaiji-002's abstract glyph-forms in SIP"
4822                 '(long-name     "UCS-SIP-itaiji-002"
4823                   chars         256
4824                   dimension     2
4825                   columns       2
4826                   graphic       2
4827                   direction     l2r
4828                   mother        ==ucs-itaiji-002
4829                   min-code #x20000 max-code #x2FFFF
4830                   registry "ucs00\\.itaiji002-2"))
4831
4832   (make-charset '=ucs-itaiji-003
4833                 "uXXXX-itaiji-003 glyphs of GlyphWiki"
4834                 '(long-name     "UCS-itaiji-003"
4835                   chars         256
4836                   dimension     3
4837                   columns       2
4838                   graphic       2
4839                   direction     l2r
4840                   ;; =>iso-ir   177
4841                   mother        =ucs))
4842   (make-charset '=ucs-bmp-itaiji-003
4843                 "uXXXX-itaiji-003 glyph-images in BMP"
4844                 '(long-name     "UCS-BMP-itaiji-003"
4845                   chars         256
4846                   dimension     2
4847                   columns       2
4848                   graphic       2
4849                   direction     l2r
4850                   ;; =>iso-ir   177
4851                   mother        =ucs-itaiji-003
4852                   min-code #x2E00
4853                   max-code #x9FCC
4854                   registry "ucs\\.itaiji003-0"))
4855   (make-charset '=ucs-sip-itaiji-003
4856                 "uXXXX-itaiji-003 glyph-images in SIP"
4857                 '(long-name     "UCS-SIP-itaiji-003"
4858                   chars         256
4859                   dimension     2
4860                   columns       2
4861                   graphic       2
4862                   direction     l2r
4863                   mother        =ucs-itaiji-003
4864                   min-code #x20000 max-code #x2FFFF
4865                   registry "ucs00\\.itaiji003-2"))
4866   (make-charset '=>ucs-itaiji-003
4867                 "Abstract characters corresponding with uXXXX-itaiji-003 of GlyphWiki"
4868                 '(long-name     "UCS-itaiji-003"
4869                   chars         256
4870                   dimension     3
4871                   columns       2
4872                   graphic       2
4873                   direction     l2r
4874                   ;; =>iso-ir   177
4875                   mother        =ucs-itaiji-003))
4876   (make-charset '=>ucs-bmp-itaiji-003
4877                 "uXXXX-itaiji-003's abstract characters in BMP"
4878                 '(long-name     "UCS-BMP-itaiji-003 characters"
4879                   chars         256
4880                   dimension     2
4881                   columns       2
4882                   graphic       2
4883                   direction     l2r
4884                   ;; =>iso-ir   177
4885                   mother        =>ucs-itaiji-003
4886                   min-code #x2E00
4887                   max-code #x9FCC
4888                   registry "ucs\\.itaiji003-0"))
4889   (make-charset '==ucs-itaiji-003
4890                 "Abstract glyph-forms corresponding with uXXXX-itaiji-003 of GlyphWiki"
4891                 '(long-name     "UCS-itaiji-003"
4892                   chars         256
4893                   dimension     3
4894                   columns       2
4895                   graphic       2
4896                   direction     l2r
4897                   ;; =>iso-ir   177
4898                   mother        =ucs-itaiji-003))
4899   (make-charset '==ucs-bmp-itaiji-003
4900                 "uXXXX-itaiji-003's abstract glyph-forms in BMP"
4901                 '(long-name     "UCS-BMP-itaiji-003 characters"
4902                   chars         256
4903                   dimension     2
4904                   columns       2
4905                   graphic       2
4906                   direction     l2r
4907                   ;; =>iso-ir   177
4908                   mother        ==ucs-itaiji-003
4909                   min-code #x2E00
4910                   max-code #x9FCC
4911                   registry "ucs\\.itaiji003-0"))
4912   (make-charset '==ucs-sip-itaiji-003
4913                 "uXXXX-itaiji-003's abstract glyph-forms in SIP"
4914                 '(long-name     "UCS-SIP-itaiji-003"
4915                   chars         256
4916                   dimension     2
4917                   columns       2
4918                   graphic       2
4919                   direction     l2r
4920                   mother        ==ucs-itaiji-003
4921                   min-code #x20000 max-code #x2FFFF
4922                   registry "ucs00\\.itaiji003-2"))
4923
4924   (make-charset '=ucs-itaiji-004
4925                 "uXXXX-itaiji-004 glyphs of GlyphWiki"
4926                 '(long-name     "UCS-itaiji-004"
4927                   chars         256
4928                   dimension     3
4929                   columns       2
4930                   graphic       2
4931                   direction     l2r
4932                   ;; =>iso-ir   177
4933                   mother        =ucs))
4934   (make-charset '=ucs-bmp-itaiji-004
4935                 "uXXXX-itaiji-004 glyph-images in BMP"
4936                 '(long-name     "UCS-BMP-itaiji-004"
4937                   chars         256
4938                   dimension     2
4939                   columns       2
4940                   graphic       2
4941                   direction     l2r
4942                   ;; =>iso-ir   177
4943                   mother        =ucs-itaiji-004
4944                   min-code #x2E00
4945                   max-code #x9FCC
4946                   registry "ucs\\.itaiji004-0"))
4947   (make-charset '=ucs-sip-itaiji-004
4948                 "uXXXX-itaiji-004 glyph-images in SIP"
4949                 '(long-name     "UCS-SIP-itaiji-004"
4950                   chars         256
4951                   dimension     2
4952                   columns       2
4953                   graphic       2
4954                   direction     l2r
4955                   mother        =ucs-itaiji-004
4956                   min-code #x20000 max-code #x2FFFF
4957                   registry "ucs00\\.itaiji004-2"))
4958   (make-charset '=>ucs-itaiji-004
4959                 "Abstract characters corresponding with uXXXX-itaiji-004 of GlyphWiki"
4960                 '(long-name     "UCS-itaiji-004"
4961                   chars         256
4962                   dimension     3
4963                   columns       2
4964                   graphic       2
4965                   direction     l2r
4966                   ;; =>iso-ir   177
4967                   mother        =ucs-itaiji-004))
4968   (make-charset '=>ucs-bmp-itaiji-004
4969                 "uXXXX-itaiji-004's abstract characters in BMP"
4970                 '(long-name     "UCS-BMP-itaiji-004 characters"
4971                   chars         256
4972                   dimension     2
4973                   columns       2
4974                   graphic       2
4975                   direction     l2r
4976                   ;; =>iso-ir   177
4977                   mother        =>ucs-itaiji-004
4978                   min-code #x2E00
4979                   max-code #x9FCC
4980                   registry "ucs\\.itaiji004-0"))
4981   (make-charset '=>ucs-sip-itaiji-004
4982                 "uXXXX-itaiji-004 glyph-images in SIP"
4983                 '(long-name     "UCS-SIP-itaiji-004"
4984                   chars         256
4985                   dimension     2
4986                   columns       2
4987                   graphic       2
4988                   direction     l2r
4989                   mother        =>ucs-itaiji-004
4990                   min-code #x20000 max-code #x2FFFF
4991                   registry "ucs00\\.itaiji004-2"))
4992
4993   (make-charset '=ucs-itaiji-005
4994                 "uXXXX-itaiji-005 glyphs of GlyphWiki"
4995                 '(long-name     "UCS-itaiji-005"
4996                   chars         256
4997                   dimension     3
4998                   columns       2
4999                   graphic       2
5000                   direction     l2r
5001                   ;; =>iso-ir   177
5002                   mother        =ucs))
5003   (make-charset '=ucs-bmp-itaiji-005
5004                 "uXXXX-itaiji-005 glyph-images in BMP"
5005                 '(long-name     "UCS-BMP-itaiji-005"
5006                   chars         256
5007                   dimension     2
5008                   columns       2
5009                   graphic       2
5010                   direction     l2r
5011                   ;; =>iso-ir   177
5012                   mother        =ucs-itaiji-005
5013                   min-code #x2E00
5014                   max-code #x9FCC
5015                   registry "ucs\\.itaiji005-0"))
5016   (make-charset '=ucs-sip-itaiji-005
5017                 "uXXXX-itaiji-005 glyph-images in SIP"
5018                 '(long-name     "UCS-SIP-itaiji-005"
5019                   chars         256
5020                   dimension     2
5021                   columns       2
5022                   graphic       2
5023                   direction     l2r
5024                   mother        =ucs-itaiji-005
5025                   min-code #x20000 max-code #x2FFFF
5026                   registry "ucs00\\.itaiji005-2"))
5027   (make-charset '=>ucs-itaiji-005
5028                 "Abstract characters corresponding with uXXXX-itaiji-005 of GlyphWiki"
5029                 '(long-name     "UCS-itaiji-005"
5030                   chars         256
5031                   dimension     3
5032                   columns       2
5033                   graphic       2
5034                   direction     l2r
5035                   ;; =>iso-ir   177
5036                   mother        =ucs))
5037   (make-charset '=>ucs-bmp-itaiji-005
5038                 "uXXXX-itaiji-005's abstract characters in BMP"
5039                 '(long-name     "UCS-BMP-itaiji-005 characters"
5040                   chars         256
5041                   dimension     2
5042                   columns       2
5043                   graphic       2
5044                   direction     l2r
5045                   ;; =>iso-ir   177
5046                   mother        =>ucs-itaiji-005
5047                   min-code #x2E00
5048                   max-code #x9FCC
5049                   registry "ucs\\.itaiji005-0"))
5050   (make-charset '=>ucs-sip-itaiji-005
5051                 "uXXXX-itaiji-005's abstract characters in SIP"
5052                 '(long-name     "UCS-SIP-itaiji-005 characters"
5053                   chars         256
5054                   dimension     2
5055                   columns       2
5056                   graphic       2
5057                   direction     l2r
5058                   mother        =>ucs-itaiji-005
5059                   min-code #x20000 max-code #x2FFFF
5060                   registry "ucs00\\.itaiji005-2"))
5061   (make-charset '==ucs-itaiji-005
5062                 "Abstract glyph-forms corresponding with uXXXX-itaiji-005 of GlyphWiki"
5063                 '(long-name     "UCS-itaiji-005"
5064                   chars         256
5065                   dimension     3
5066                   columns       2
5067                   graphic       2
5068                   direction     l2r
5069                   ;; =>iso-ir   177
5070                   mother        =ucs-itaiji-005))
5071   (make-charset '==ucs-bmp-itaiji-005
5072                 "uXXXX-itaiji-005's abstract glyph-forms in BMP"
5073                 '(long-name     "UCS-BMP-itaiji-005 characters"
5074                   chars         256
5075                   dimension     2
5076                   columns       2
5077                   graphic       2
5078                   direction     l2r
5079                   ;; =>iso-ir   177
5080                   mother        ==ucs-itaiji-005
5081                   min-code #x2E00
5082                   max-code #x9FCC
5083                   registry "ucs\\.itaiji005-0"))
5084
5085   (make-charset '=ucs-itaiji-006
5086                 "uXXXX-itaiji-006 glyphs of GlyphWiki"
5087                 '(long-name     "UCS-itaiji-006"
5088                   chars         256
5089                   dimension     3
5090                   columns       2
5091                   graphic       2
5092                   direction     l2r
5093                   ;; =>iso-ir   177
5094                   mother        =ucs))
5095   (make-charset '=ucs-bmp-itaiji-006
5096                 "uXXXX-itaiji-006 glyph-images in BMP"
5097                 '(long-name     "UCS-BMP-itaiji-006"
5098                   chars         256
5099                   dimension     2
5100                   columns       2
5101                   graphic       2
5102                   direction     l2r
5103                   ;; =>iso-ir   177
5104                   mother        =ucs-itaiji-006
5105                   min-code #x2E00
5106                   max-code #x9FCC
5107                   registry "ucs\\.itaiji006-0"))
5108   (make-charset '=>ucs-itaiji-006
5109                 "Abstract characters corresponding with uXXXX-itaiji-006 of GlyphWiki"
5110                 '(long-name     "UCS-itaiji-006"
5111                   chars         256
5112                   dimension     3
5113                   columns       2
5114                   graphic       2
5115                   direction     l2r
5116                   ;; =>iso-ir   177
5117                   mother        =ucs-itaiji-006))
5118   (make-charset '=>ucs-bmp-itaiji-006
5119                 "uXXXX-itaiji-006's abstract characters in BMP"
5120                 '(long-name     "UCS-BMP-itaiji-006 characters"
5121                   chars         256
5122                   dimension     2
5123                   columns       2
5124                   graphic       2
5125                   direction     l2r
5126                   ;; =>iso-ir   177
5127                   mother        =>ucs-itaiji-006
5128                   min-code #x2E00
5129                   max-code #x9FCC
5130                   registry "ucs\\.itaiji006-0"))
5131
5132   (make-charset '=ucs-itaiji-007
5133                 "uXXXX-itaiji-007 glyphs of GlyphWiki"
5134                 '(long-name     "UCS-itaiji-007"
5135                   chars         256
5136                   dimension     3
5137                   columns       2
5138                   graphic       2
5139                   direction     l2r
5140                   ;; =>iso-ir   177
5141                   mother        =ucs))
5142   (make-charset '=ucs-bmp-itaiji-007
5143                 "uXXXX-itaiji-007 glyph-images in BMP"
5144                 '(long-name     "UCS-BMP-itaiji-007"
5145                   chars         256
5146                   dimension     2
5147                   columns       2
5148                   graphic       2
5149                   direction     l2r
5150                   ;; =>iso-ir   177
5151                   mother        =ucs-itaiji-007
5152                   min-code #x2E00
5153                   max-code #x9FCC
5154                   registry "ucs\\.itaiji007-0"))
5155   (make-charset '=ucs-sip-itaiji-007
5156                 "uXXXX-itaiji-007 glyph-images in SIP"
5157                 '(long-name     "UCS-SIP-itaiji-007"
5158                   chars         256
5159                   dimension     2
5160                   columns       2
5161                   graphic       2
5162                   direction     l2r
5163                   mother        =ucs-itaiji-007
5164                   min-code #x20000 max-code #x2FFFF
5165                   registry "ucs00\\.itaiji007-2"))
5166   (make-charset '=>ucs-itaiji-007
5167                 "Abstract characters corresponding with uXXXX-itaiji-007 of GlyphWiki"
5168                 '(long-name     "UCS-itaiji-007"
5169                   chars         256
5170                   dimension     3
5171                   columns       2
5172                   graphic       2
5173                   direction     l2r
5174                   ;; =>iso-ir   177
5175                   mother        =ucs))
5176   (make-charset '=>ucs-bmp-itaiji-007
5177                 "uXXXX-itaiji-007's abstract characters in BMP"
5178                 '(long-name     "UCS-BMP-itaiji-007 characters"
5179                   chars         256
5180                   dimension     2
5181                   columns       2
5182                   graphic       2
5183                   direction     l2r
5184                   ;; =>iso-ir   177
5185                   mother        =>ucs-itaiji-007
5186                   min-code #x2E00
5187                   max-code #x9FCC
5188                   registry "ucs\\.itaiji007-0"))
5189   (make-charset '=>ucs-sip-itaiji-007
5190                 "uXXXX-itaiji-007 characters in SIP"
5191                 '(long-name     "UCS-SIP-itaiji-007"
5192                   chars         256
5193                   dimension     2
5194                   columns       2
5195                   graphic       2
5196                   direction     l2r
5197                   mother        =>ucs-itaiji-007
5198                   min-code #x20000 max-code #x2FFFF
5199                   registry "ucs00\\.itaiji007-2"))
5200
5201   (make-charset '=ucs-itaiji-008
5202                 "uXXXX-itaiji-008 glyphs of GlyphWiki"
5203                 '(long-name     "UCS-itaiji-008"
5204                   chars         256
5205                   dimension     3
5206                   columns       2
5207                   graphic       2
5208                   direction     l2r
5209                   ;; =>iso-ir   177
5210                   mother        =ucs))
5211   (make-charset '=ucs-bmp-itaiji-008
5212                 "uXXXX-itaiji-008 glyph-images in BMP"
5213                 '(long-name     "UCS-BMP-itaiji-008"
5214                   chars         256
5215                   dimension     2
5216                   columns       2
5217                   graphic       2
5218                   direction     l2r
5219                   ;; =>iso-ir   177
5220                   mother        =ucs-itaiji-008
5221                   min-code #x2E00
5222                   max-code #x9FCC
5223                   registry "ucs\\.itaiji008-0"))
5224
5225   (make-charset '=ucs-itaiji-009
5226                 "uXXXX-itaiji-009 glyphs of GlyphWiki"
5227                 '(long-name     "UCS-itaiji-009"
5228                   chars         256
5229                   dimension     3
5230                   columns       2
5231                   graphic       2
5232                   direction     l2r
5233                   ;; =>iso-ir   177
5234                   mother        =ucs))
5235   (make-charset '=ucs-bmp-itaiji-009
5236                 "uXXXX-itaiji-009 glyph-images in BMP"
5237                 '(long-name     "UCS-BMP-itaiji-009"
5238                   chars         256
5239                   dimension     2
5240                   columns       2
5241                   graphic       2
5242                   direction     l2r
5243                   ;; =>iso-ir   177
5244                   mother        =ucs-itaiji-009
5245                   min-code #x2E00
5246                   max-code #x9FCC
5247                   registry "ucs\\.itaiji009-0"))
5248   (make-charset '=>ucs-itaiji-009
5249                 "Abstract characters corresponding with uXXXX-itaiji-009 of GlyphWiki"
5250                 '(long-name     "UCS-itaiji-009"
5251                   chars         256
5252                   dimension     3
5253                   columns       2
5254                   graphic       2
5255                   direction     l2r
5256                   ;; =>iso-ir   177
5257                   mother        =ucs))
5258   (make-charset '=>ucs-bmp-itaiji-009
5259                 "uXXXX-itaiji-009's abstract characters in BMP"
5260                 '(long-name     "UCS-BMP-itaiji-009 characters"
5261                   chars         256
5262                   dimension     2
5263                   columns       2
5264                   graphic       2
5265                   direction     l2r
5266                   ;; =>iso-ir   177
5267                   mother        =>ucs-itaiji-009
5268                   min-code #x2E00
5269                   max-code #x9FCC
5270                   registry "ucs\\.itaiji009-0"))
5271
5272   (make-charset '=ucs-itaiji-010
5273                 "uXXXX-itaiji-010 glyphs of GlyphWiki"
5274                 '(long-name     "UCS-itaiji-010"
5275                   chars         256
5276                   dimension     3
5277                   columns       2
5278                   graphic       2
5279                   direction     l2r
5280                   ;; =>iso-ir   177
5281                   mother        =ucs))
5282   (make-charset '=ucs-bmp-itaiji-010
5283                 "uXXXX-itaiji-010 glyph-images in BMP"
5284                 '(long-name     "UCS-BMP-itaiji-010"
5285                   chars         256
5286                   dimension     2
5287                   columns       2
5288                   graphic       2
5289                   direction     l2r
5290                   ;; =>iso-ir   177
5291                   mother        =ucs-itaiji-010
5292                   min-code #x2E00
5293                   max-code #x9FCC
5294                   registry "ucs\\.itaiji010-0"))
5295
5296   (make-charset '=ucs-itaiji-011
5297                 "uXXXX-itaiji-011 glyphs of GlyphWiki"
5298                 '(long-name     "UCS-itaiji-011"
5299                   chars         256
5300                   dimension     3
5301                   columns       2
5302                   graphic       2
5303                   direction     l2r
5304                   ;; =>iso-ir   177
5305                   mother        =ucs))
5306   (make-charset '=ucs-bmp-itaiji-011
5307                 "uXXXX-itaiji-011 glyph-images in BMP"
5308                 '(long-name     "UCS-BMP-itaiji-011"
5309                   chars         256
5310                   dimension     2
5311                   columns       2
5312                   graphic       2
5313                   direction     l2r
5314                   ;; =>iso-ir   177
5315                   mother        =ucs-itaiji-011
5316                   min-code #x2E00
5317                   max-code #x9FCC
5318                   registry "ucs\\.itaiji011-0"))
5319   (make-charset '=ucs-sip-itaiji-011
5320                 "uXXXX-itaiji-011 glyphs in SIP"
5321                 '(long-name     "UCS-SIP-itaiji-011"
5322                   chars         256
5323                   dimension     2
5324                   columns       2
5325                   graphic       2
5326                   direction     l2r
5327                   mother        =ucs-itaiji-011
5328                   min-code #x20000 max-code #x2FFFF
5329                   registry "ucs00\\.itaiji011-2"))
5330
5331   (make-charset '=ucs-itaiji-084
5332                 "uXXXX-itaiji-084 glyph-images of GlyphWiki"
5333                 '(long-name     "UCS-itaiji-084"
5334                   chars         256
5335                   dimension     3
5336                   columns       2
5337                   graphic       2
5338                   direction     l2r
5339                   ;; =>iso-ir   177
5340                   mother        =ucs))
5341   (make-charset '=ucs-bmp-itaiji-084
5342                 "uXXXX-itaiji-084 glyph-images in BMP"
5343                 '(long-name     "UCS-BMP-itaiji-084"
5344                   chars         256
5345                   dimension     2
5346                   columns       2
5347                   graphic       2
5348                   direction     l2r
5349                   ;; =>iso-ir   177
5350                   mother        =ucs-itaiji-084
5351                   min-code #x2E00
5352                   max-code #x9FCC
5353                   registry "ucs\\.itaiji084-0"))
5354
5355   (make-charset
5356    '=ucs-radicals
5357    "CJK Radicals of UCS"
5358    '(long-name "UCS-Radicals"
5359                chars 256
5360                dimension 2
5361                columns 2
5362                graphic 2
5363                direction l2r
5364                registry "-zhRadicals-.*-ucs-0"
5365                mother ucs-bmp
5366                min-code #x2E00 max-code #x2FFF))
5367   (make-charset
5368    '=ucs-radicals@unicode
5369    "CJK Radicals of UCS"
5370    '(long-name "UCS-Radicals"
5371                chars 256
5372                dimension 2
5373                columns 2
5374                graphic 2
5375                direction l2r
5376                registry "-zhRadicals-.*-ucs-0"
5377                mother =ucs@unicode
5378                min-code #x2E00 max-code #x2FFF))
5379   (make-charset
5380    '==ucs-radicals@unicode
5381    "CJK Radicals of UCS"
5382    '(long-name "UCS-Radicals"
5383                chars 256
5384                dimension 2
5385                columns 2
5386                graphic 2
5387                direction l2r
5388                registry "-zhRadicals-.*-ucs-0"
5389                mother ==ucs@unicode
5390                min-code #x2E00 max-code #x2FFF))
5391   (make-charset
5392    '=ucs-hangul
5393    "Hangul Syllables of UCS"
5394    '(long-name "UCS-Hangul-Syllables"
5395                chars 256
5396                dimension 2
5397                columns 2
5398                graphic 2
5399                direction l2r
5400                registry "-Hangul-.*-ucs-0"
5401                mother =ucs
5402                min-code #xAC00 max-code #xD7AF))
5403   (make-charset
5404    '=ucs-bmp-cjk
5405    "CJK Characters in BMP of UCS"
5406    '(long-name "UCS-BMP-CJK"
5407                chars 256
5408                dimension 2
5409                columns 2
5410                graphic 2
5411                direction l2r
5412                registry "-zh-.*-ucs-0"
5413                mother ucs-bmp
5414                min-code #x2E00
5415                max-code #x9FA5
5416                ;; max-code #x9FCC
5417                ;; max-code #xA4CF
5418                ))
5419   (make-charset
5420    '=ucs-bmp-cjk@gb
5421    "CJK Characters in BMP with GB representative glyph-images."
5422    '(long-name "CJK in BMP@GB"
5423                chars 256
5424                dimension 2
5425                columns 2
5426                graphic 2
5427                direction l2r
5428                registry "-zh-.*-ucs-0"
5429                mother =ucs@gb
5430                min-code #x2E00
5431                max-code #x9FA5
5432                ;; max-code #x9FCC
5433                ;; max-code #xA4CF
5434                ))
5435   (make-charset
5436    '==ucs-bmp-cjk@gb
5437    "CJK Characters in BMP with GB representative glyph-images."
5438    '(long-name "CJK in BMP@GB"
5439                chars 256
5440                dimension 2
5441                columns 2
5442                graphic 2
5443                direction l2r
5444                registry "-zh-.*-ucs-0"
5445                mother ==ucs@gb
5446                min-code #x2E00
5447                max-code #x9FA5
5448                ;; max-code #x9FCC
5449                ;; max-code #xA4CF
5450                ))
5451   (make-charset
5452    '===ucs-bmp-cjk@gb
5453    "CJK Characters in BMP with GB representative glyph-images."
5454    '(long-name "CJK in BMP@GB"
5455                chars 256
5456                dimension 2
5457                columns 2
5458                graphic 2
5459                direction l2r
5460                registry "-zh-.*-ucs-0"
5461                mother ===ucs@gb
5462                min-code #x2E00
5463                max-code #x9FA5
5464                ;; max-code #x9FCC
5465                ;; max-code #xA4CF
5466                ))
5467   (make-charset
5468    '=ucs-bmp-cjk@JP
5469    "CJK Characters in BMP with JIS representative glyphs"
5470    '(long-name "CJK in BMP@JP"
5471                chars 256
5472                dimension 2
5473                columns 2
5474                graphic 2
5475                direction l2r
5476                registry "-ja-.*-ucs-0"
5477                mother =ucs@JP
5478                min-code #x2E00
5479                max-code #x9FCC
5480                ;; max-code #xA4CF
5481                ))
5482   (make-charset
5483    '=ucs-bmp-cjk@JP/hanazono
5484    "CJK Characters in BMP with Hanazono font"
5485    '(long-name "CJK in BMP@JP/Hanazono"
5486                chars 256
5487                dimension 2
5488                columns 2
5489                graphic 2
5490                direction l2r
5491                registry "-ja-.*-ucs-0"
5492                mother =ucs@JP/hanazono
5493                min-code #x2E00
5494                max-code #x9FCC
5495                ;; max-code #xA4CF
5496                ))
5497   (make-charset
5498    '==ucs-bmp-cjk@JP/hanazono
5499    "CJK Characters in BMP with Hanazono font"
5500    '(long-name "CJK in BMP@JP/Hanazono"
5501                chars 256
5502                dimension 2
5503                columns 2
5504                graphic 2
5505                direction l2r
5506                registry "-ja-.*-ucs-0"
5507                mother ==ucs@JP/hanazono
5508                min-code #x2E00
5509                max-code #x9FCC
5510                ;; max-code #xA4CF
5511                ))
5512   (make-charset
5513    '=+>ucs-bmp-cjk@unicode
5514    "Unicode representative characters of CJK Unified Ideographs in BMP"
5515    '(long-name "Unicode-BMP-CJK unified abstract glyphs"
5516                chars 256
5517                dimension 2
5518                columns 2
5519                graphic 2
5520                direction l2r
5521                registry "-zh-.*-ucs-0"
5522                mother =+>ucs@unicode
5523                min-code #x2E00
5524                max-code #x9FA5
5525                ;; max-code #x9FCC
5526                ;; max-code #xA4CF
5527                ))
5528   (make-charset
5529    '=>ucs-bmp-cjk@unicode
5530    "Unicode representative characters of CJK Unified Ideographs in BMP"
5531    '(long-name "Unicode-BMP-CJK"
5532                chars 256
5533                dimension 2
5534                columns 2
5535                graphic 2
5536                direction l2r
5537                registry "-zh-.*-ucs-0"
5538                mother =>ucs@unicode
5539                min-code #x2E00
5540                max-code #x9FA5
5541                ;; max-code #x9FCC
5542                ;; max-code #xA4CF
5543                ))
5544   (make-charset
5545    '=>ucs-bmp-cjk@cognate
5546    "CJK Characters in BMP for abstract characters based on cognate."
5547    '(long-name "CJK in BMP@cognate"
5548                chars 256
5549                dimension 2
5550                columns 2
5551                graphic 2
5552                direction l2r
5553                registry "-ja-.*-ucs-0"
5554                mother =>ucs@cognate
5555                min-code #x2E00
5556                max-code #x9FCC
5557                ;; max-code #xA4CF
5558                ))
5559   (make-charset
5560    '=>ucs-bmp-cjk@component
5561    "CJK Characters in BMP for IWDS-1 abstract components."
5562    '(long-name "CJK in BMP@component"
5563                chars 256
5564                dimension 2
5565                columns 2
5566                graphic 2
5567                direction l2r
5568                registry "-ja-.*-ucs-0"
5569                mother =>ucs@component
5570                min-code #x2E00
5571                max-code #x9FCC
5572                ;; max-code #xA4CF
5573                ))
5574   (make-charset
5575    '=>ucs-bmp-cjk@iwds-1
5576    "CJK Characters in BMP for IWDS-1 abstract characters."
5577    '(long-name "CJK in BMP@iwds-1"
5578                chars 256
5579                dimension 2
5580                columns 2
5581                graphic 2
5582                direction l2r
5583                registry "-ja-.*-ucs-0"
5584                mother =>ucs@iwds-1
5585                min-code #x2E00
5586                max-code #x9FCC
5587                ;; max-code #xA4CF
5588                ))
5589   (make-charset
5590    '==>ucs-bmp-cjk@bucs
5591    "CJK Characters in BMP of BUCS"
5592    '(long-name "BUCS-BMP-CJK"
5593                chars 256
5594                dimension 2
5595                columns 2
5596                graphic 2
5597                direction l2r
5598                registry "-zh-.*-ucs-0"
5599                mother ==>ucs@bucs
5600                min-code #x2E00
5601                max-code #x9FA5
5602                ;; max-code #x9FCC
5603                ;; max-code #xA4CF
5604                ))
5605   (make-charset
5606    '=ucs-bmp-cjk-compat
5607    "CJK Compatibility Ideographs in BMP of UCS"
5608    '(long-name "CJK Compatibility Ideographs"
5609                chars 256
5610                dimension 2
5611                columns 2
5612                graphic 2
5613                direction l2r
5614                registry "-ja-.*-ucs-0"
5615                mother ucs-bmp
5616                min-code #xF900
5617                max-code #xFAFF
5618                ))
5619   (make-charset
5620    '=ucs-bmp-cjk-compat@unicode
5621    "CJK Compatibility Ideographs of Unicode representatives"
5622    '(long-name "CJK Compatibility Ideographs of Unicode"
5623                chars 256
5624                dimension 2
5625                columns 2
5626                graphic 2
5627                direction l2r
5628                registry "-ja-.*-ucs-0"
5629                mother =ucs@unicode
5630                min-code #xF900
5631                max-code #xFAFF
5632                ))
5633   (make-charset
5634    '==ucs-bmp-cjk-compat@gb
5635    "CJK Compatibility Ideographs of Unicode representatives"
5636    '(long-name "CJK Compatibility Ideographs of Unicode"
5637                chars 256
5638                dimension 2
5639                columns 2
5640                graphic 2
5641                direction l2r
5642                registry "-zh-.*-ucs-0"
5643                mother ==ucs@gb
5644                min-code #xF900
5645                max-code #xFAFF
5646                ))
5647   (make-charset
5648    '==ucs-bmp-cjk-compat@JP
5649    "CJK Compatibility Ideographs for common glyph-forms used in Japan."
5650    '(long-name "CJK Compatibility Ideographs for Japan"
5651                chars 256
5652                dimension 2
5653                columns 2
5654                graphic 2
5655                direction l2r
5656                registry "-ja-.*-ucs-0"
5657                mother ==ucs@JP
5658                min-code #xF900
5659                max-code #xFAFF
5660                ))
5661   (make-charset
5662    '===ucs-bmp-cjk-compat@unicode
5663    "CJK Compatibility Ideographs of Unicode representatives"
5664    '(long-name "CJK Compatibility Ideographs of Unicode"
5665                chars 256
5666                dimension 2
5667                columns 2
5668                graphic 2
5669                direction l2r
5670                registry "-ja-.*-ucs-0"
5671                mother ===ucs@unicode
5672                min-code #xF900
5673                max-code #xFAFF
5674                ))
5675   (make-charset
5676    '=+>ucs-bmp-cjk-compat@jis
5677    "CJK Compatibility Ideographs of JIS representatives unified glyphs"
5678    '(long-name "JIS unified glyphs for CJK Compat chars"
5679                chars 256
5680                dimension 2
5681                columns 2
5682                graphic 2
5683                direction l2r
5684                registry "-ja-.*-ucs-0"
5685                mother =+>ucs@jis
5686                min-code #xF900
5687                max-code #xFAFF
5688                ))
5689   (make-charset
5690    '=ucs-sip-ext-b
5691    "CJK Ideographs Extension B"
5692    '(long-name "UCS CJK Ext-B"
5693                chars 256
5694                dimension 2
5695                columns 2
5696                graphic 2
5697                direction l2r
5698                registry "\\(iso10646\\|ucs00\\)-2$"
5699                mother ucs
5700                min-code #x20000 max-code #x2A6D6
5701                code-offset #x20000))
5702   (make-charset
5703    '=ucs-sip@iso
5704    "UCS glyphs of UCS SIP"
5705    '(long-name "UCS SIP"
5706                chars 256
5707                dimension 2
5708                columns 2
5709                graphic 2
5710                direction l2r
5711                registry "ucs00-2$"
5712                mother =ucs@iso
5713                min-code #x20000 max-code #x2FFFF
5714                code-offset #x20000))
5715   (make-charset
5716    '=ucs-sip-ext-b@iso
5717    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
5718    '(long-name "UCS CJK Ext-B"
5719                chars 256
5720                dimension 2
5721                columns 2
5722                graphic 2
5723                direction l2r
5724                registry "\\(iso10646\\|ucs00\\)-2$"
5725                mother =ucs@iso
5726                min-code #x20000 max-code #x2A6D6
5727                code-offset #x20000))
5728   (make-charset
5729    '=ucs-sip@JP/hanazono
5730    "Hanazono glyphs of UCS SIP"
5731    '(long-name "Hanazono SIP glyphs"
5732                chars 256
5733                dimension 2
5734                columns 2
5735                graphic 2
5736                direction l2r
5737                registry "ucs00-2$"
5738                mother =ucs@JP/hanazono
5739                min-code #x20000 max-code #x2FFFF
5740                code-offset #x20000))
5741   (make-charset
5742    '=>ucs-sip@iwds-1
5743    "CJK Characters in SIP based on IWDS-1."
5744    '(long-name "CJK in SIP@IWDS-1"
5745                chars 256
5746                dimension 2
5747                columns 2
5748                graphic 2
5749                direction l2r
5750                registry "ucs00-2$"
5751                mother =>ucs@iwds-1
5752                min-code #x20000 max-code #x2FFFF
5753                code-offset #x20000))
5754   (make-charset
5755    '=>ucs-sip@cognate
5756    "CJK Characters in SIP for abstract characters based on cognate."
5757    '(long-name "CJK in SIP@cognate"
5758                chars 256
5759                dimension 2
5760                columns 2
5761                graphic 2
5762                direction l2r
5763                registry "ucs00-2$"
5764                mother =>ucs@cognate
5765                min-code #x20000 max-code #x2FFFF
5766                code-offset #x20000))
5767   (make-charset
5768    '=>ucs-sip@component
5769    "CJK Characters in SIP for IWDS-1 abstract components."
5770    '(long-name "CJK in SIP@component"
5771                chars 256
5772                dimension 2
5773                columns 2
5774                graphic 2
5775                direction l2r
5776                registry "ucs00-2$"
5777                mother =>ucs@component
5778                min-code #x20000 max-code #x2FFFF
5779                code-offset #x20000))
5780   (make-charset
5781    '==ucs-sip@JP/hanazono
5782    "Hanazono glyphs-forms of UCS SIP"
5783    '(long-name "Hanazono SIP glyph-forms"
5784                chars 256
5785                dimension 2
5786                columns 2
5787                graphic 2
5788                direction l2r
5789                registry "ucs00-2$"
5790                mother ==ucs@JP/hanazono
5791                min-code #x20000 max-code #x2FFFF
5792                code-offset #x20000))
5793   (make-charset
5794    '==ucs-sip@iso
5795    "ISO representative abstract-glyph-images of ISO/IEC 10646 Plane 2"
5796    '(long-name "SIP abstract glyph-images"
5797                chars 256
5798                dimension 2
5799                columns 2
5800                graphic 2
5801                direction l2r
5802                registry "\\(ucs00\\)-2$"
5803                mother ==ucs@iso
5804                code-offset #x20000))
5805   (make-charset
5806    '==ucs-sip-ext-b@iso
5807    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
5808    '(long-name "UCS CJK Ext-B"
5809                chars 256
5810                dimension 2
5811                columns 2
5812                graphic 2
5813                direction l2r
5814                registry "\\(iso10646\\|ucs00\\)-2$"
5815                mother ==ucs@iso
5816                min-code #x20000 max-code #x2A6D6
5817                code-offset #x20000))
5818   (make-charset
5819    '===ucs-sip@iso
5820    "ISO representative glyph-images of ISO/IEC 10646 Plane 2"
5821    '(long-name "SIP rep-glyph-images"
5822                chars 256
5823                dimension 2
5824                columns 2
5825                graphic 2
5826                direction l2r
5827                registry "\\(ucs00\\)-2$"
5828                mother ===ucs@iso
5829                code-offset #x20000))
5830   (make-charset
5831    '===ucs-sip-ext-b@iso
5832    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
5833    '(long-name "UCS CJK Ext-B"
5834                chars 256
5835                dimension 2
5836                columns 2
5837                graphic 2
5838                direction l2r
5839                registry "\\(iso10646\\|ucs00\\)-2$"
5840                mother ===ucs@iso
5841                min-code #x20000 max-code #x2A6D6
5842                code-offset #x20000))
5843   )
5844
5845 ;;; mule-conf.el ends here