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

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