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 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/2-pr
 824    "JIS X 0208:1978, 2nd impression or later."
 825    '(registry "jisx0208\\.1978"
 826               dimension 2
 827               chars 94
 828               ;; mother =jis-x0208@1978/1er-pr
 829               mother ==jis-x0208@1978
 830               =>iso-ir 42
 831               ;; final ?@
 832               graphic 0
 833               ;; partial t
 834               ))
 835   (make-charset
 836    '==jis-x0208@1978/4er
 837    "JIS X 0208:1978, replaced by errata of 4th impression."
 838    '(registry "jisx0208\\.1978"
 839               dimension 2
 840               chars 94
 841               mother ==jis-x0208@1978/2-pr
 842               =>iso-ir 42
 843               ;; final ?@
 844               graphic 0
 845               partial t))
 846   (make-charset
 847    '==jis-x0208@1978/4-pr
 848    "JIS X 0208:1978, 4th impression or later."
 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/5pr
 859    "JIS X 0208:1978, 5th impression."
 860    '(registry "jisx0208\\.1978"
 861               dimension 2
 862               chars 94
 863               mother ==jis-x0208@1978/4-pr
 864               =>iso-ir 42
 865               ;; final ?@
 866               graphic 0
 867               partial t))
 868   (make-charset
 869    '==jis-x0208@1983
 870    "JIS X 0208:1983 abstract glyph-forms."
 871    '(registry "jisx0208\\.1983"
 872               dimension 2
 873               chars 94
 874               mother ==jis-x0208
 875               =>iso-ir 87
 876               graphic 0))
 877   (make-charset
 878    '==jis-x0208@1990
 879    "JIS X 0208:1990 abstract glyph-forms."
 880    '(registry "jisx0208\\.1990"
 881               dimension 2
 882               chars 94
 883               mother ==jis-x0208
 884               =>iso-ir 168
 885               ;; final ?B
 886               graphic 0))
 887
 888   (make-charset
 889    '==jis-x0213-1
 890    "JIS X 0213 Plain 1 abstract glyph-forms (unchanged part)"
 891    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
 892               dimension 2
 893               chars 94
 894               mother =jis-x0213-1
 895               =>iso-ir 228
 896               ;; final ?O
 897               graphic 0
 898               ;; partial t
 899               ))
 900   (make-charset
 901    '==jis-x0213-1@2000
 902    "JIS X 0213:2000 Plain 1 abstract glyph-forms"
 903    '(registry "jisx0213\\(\\.2000\\)-1"
 904               dimension 2
 905               chars 94
 906               mother ==jis-x0213-1
 907               =>iso-ir 228
 908               ;; final ?O
 909               graphic 0
 910               ;; partial t
 911               ))
 912   (make-charset
 913    '==jis-x0213-1@2004
 914    "JIS X 0213:2004 Plain 1 abstract glyph-forms"
 915    '(mother ==jis-x0213-1
 916             =>iso-ir 233
 917             ;; registry "jisx0213\\(\\.2004\\)-1"
 918             dimension 2
 919             chars 94
 920             graphic 0))
 921
 922   (make-charset
 923    '==jis-x0213-2
 924    "JIS X 0213 Plain 2 abstract glyph-forms"
 925    '(mother =jis-x0213-2
 926             =>iso-ir 229
 927             registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
 928             dimension 2
 929             chars 94
 930             graphic 0))
 931
 932   (make-charset
 933    '==jis-x0212
 934    "JIS X 0212 representative glyph-images."
 935    '(registry "jisx0212"
 936               dimension 2
 937               chars 94
 938               mother =jis-x0212
 939               =>iso-ir 159
 940               ;; final ?D
 941               graphic 0))
 942
 943   (make-charset
 944    '==gb2312
 945    "GB 2312 representative glyph-images."
 946    '(registry "gb2312"
 947               dimension 2
 948               chars 94
 949               mother =gb2312
 950               =>iso-ir 58
 951               ;; final ?A
 952               graphic 0))
 953   (make-charset
 954    '==iso-ir165
 955    "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
 956    '(registry "isoir165"
 957               =>iso-ir 165
 958               dimension 2
 959               chars 94
 960               mother =iso-ir165
 961               ;; final ?E
 962               graphic 0))
 963   (make-charset
 964    '==gb12345
 965    "GB 12345 representative glyph-images."
 966    '(registry "gb12345"
 967               dimension 2
 968               chars 94
 969               mother =gb12345
 970               graphic 0))
 971
 972   (make-charset
 973    '==ks-x1001
 974    "KS X 1001 representative glyph-images."
 975    '(registry "ksc5601"
 976               dimension 2
 977               chars 94
 978               mother =ks-x1001
 979               =>iso-ir 149
 980               ;; final ?C
 981               graphic 0))
 982
 983   (define-charset-alias '=>>>jis-x0208      '==jis-x0208)
 984   (define-charset-alias '=>>>jis-x0208@1978 '==jis-x0208@1978)
 985   (define-charset-alias '=>>>jis-x0208@1983 '==jis-x0208@1983)
 986   (define-charset-alias '=>>>jis-x0208@1990 '==jis-x0208@1990)
 987
 988   (define-charset-alias '=>>>jis-x0213-1      '==jis-x0213-1)
 989   (define-charset-alias '=>>>jis-x0213-1@2000 '==jis-x0213-1@2000)
 990   (define-charset-alias '=>>>jis-x0213-1@2004 '==jis-x0213-1@2004)
 991   (define-charset-alias '=>>>jis-x0213-2      '==jis-x0213-2)
 992
 993   (make-charset
 994    '===jis-x0208
 995    "JIS X 0208 detailed representative glyph-images (unchanged part)."
 996    '(registry "jisx0208\\.1990"
 997               dimension 2
 998               chars 94
 999               mother ==jis-x0208
1000               =>iso-ir 168
1001               ;; final ?B
1002               graphic 0))
1003   (make-charset
1004    '===jis-x0208@1978
1005    "JIS X 0208:1978 detailed representative glyph-images."
1006    '(registry "jisx0208\\.1978"
1007               dimension 2
1008               chars 94
1009               mother ==jis-x0208@1978
1010               =>iso-ir 42
1011               ;; final ?@
1012               graphic 0))
1013   (make-charset
1014    '===jis-x0208@1983
1015    "JIS X 0208:1983 detailed representative glyph-images."
1016    '(registry "jisx0208\\.1983"
1017               dimension 2
1018               chars 94
1019               mother ==jis-x0208@1983
1020               =>iso-ir 87
1021               graphic 0))
1022   (make-charset
1023    '===jis-x0208@1990
1024    "JIS X 0208:1990 detailed representative glyph-images."
1025    '(registry "jisx0208\\.1990"
1026               dimension 2
1027               chars 94
1028               mother ==jis-x0208@1990
1029               =>iso-ir 168
1030               ;; final ?B
1031               graphic 0))
1032
1033   (make-charset
1034    '===jis-x0213-1
1035    "JIS X 0213 Plain 1 detailed representative glyph-images (unchanged part)."
1036    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1037               dimension 2
1038               chars 94
1039               mother ==jis-x0213-1
1040               =>iso-ir 228
1041               ;; final ?O
1042               graphic 0
1043               ;; partial t
1044               ))
1045   (make-charset
1046    '===jis-x0213-1@2000
1047    "JIS X 0213:2000 Plain 1 detailed representative glyph-images."
1048    '(registry "jisx0213\\(\\.2000\\)-1"
1049               dimension 2
1050               chars 94
1051               mother ==jis-x0213-1@2000
1052               =>iso-ir 228
1053               ;; final ?O
1054               graphic 0
1055               ;; partial t
1056               ))
1057   (make-charset
1058    '===jis-x0213-1@2004
1059    "JIS X 0213:2004 Plain 1 detailed representative glyph-images."
1060    '(mother ==jis-x0213-1@2004
1061             =>iso-ir 233
1062             ;; registry "jisx0213\\(\\.2004\\)-1"
1063             dimension 2
1064             chars 94
1065             graphic 0))
1066   (make-charset
1067    '===jis-x0213-2
1068    "JIS X 0213 Plain 2 detailed representative glyph-images."
1069    '(mother ==jis-x0213-2
1070             =>iso-ir 229
1071             registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1072             dimension 2
1073             chars 94
1074             graphic 0))
1075
1076   (make-charset
1077    '===jis-x0212
1078    "JIS X 0212 representative glyph-images."
1079    '(registry "jisx0212"
1080               dimension 2
1081               chars 94
1082               mother ==jis-x0212
1083               =>iso-ir 159
1084               ;; final ?D
1085               graphic 0))
1086
1087   (make-charset
1088    '===ks-x1001
1089    "KS X 1001 representative glyph-images."
1090    '(registry "ksc5601"
1091               dimension 2
1092               chars 94
1093               mother ==ks-x1001
1094               =>iso-ir 149
1095               ;; final ?C
1096               graphic 0))
1097
1098   (make-charset
1099    '=>>jis-x0208
1100    "JIS X 0208 abstract glyphs (unchanged part)."
1101    '(registry "jisx0208\\.1990"
1102               dimension 2
1103               chars 94
1104               mother =jis-x0208
1105               =>iso-ir 168
1106               ;; final ?B
1107               graphic 0))
1108   (make-charset
1109    '=>>jis-x0208@1978
1110    "JIS X 0208:1978 abstract glyphs."
1111    '(registry "jisx0208\\.1978"
1112               dimension 2
1113               chars 94
1114               mother =>>jis-x0208
1115               =>iso-ir 42
1116               ;; final ?@
1117               graphic 0))
1118   (make-charset
1119    '=>>jis-x0208@1983
1120    "JIS X 0208:1983 abstract glyphs."
1121    '(registry "jisx0208\\.1983"
1122               dimension 2
1123               chars 94
1124               mother =>>jis-x0208
1125               =>iso-ir 87
1126               graphic 0))
1127   (make-charset
1128    '=>>jis-x0208@1990
1129    "JIS X 0208:1990 abstract glyphs."
1130    '(registry "jisx0208\\.1990"
1131               dimension 2
1132               chars 94
1133               mother =>>jis-x0208
1134               =>iso-ir 168
1135               graphic 0))
1136
1137   (make-charset
1138    '=>>jis-x0213-1
1139    "JIS X 0213 Plain 1 abstract glyphs (unchanged part)"
1140    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1141               dimension 2
1142               chars 94
1143               mother =jis-x0213-1
1144               =>iso-ir 228
1145               ;; final ?O
1146               graphic 0
1147               ;; partial t
1148               ))
1149   (make-charset
1150    '=>>jis-x0213-1@2000
1151    "JIS X 0213:2000 Plain 1 abstract glyphs"
1152    '(registry "jisx0213\\(\\.2000\\)-1"
1153               dimension 2
1154               chars 94
1155               mother =>>jis-x0213-1
1156               =>iso-ir 228
1157               ;; final ?O
1158               graphic 0
1159               ;; partial t
1160               ))
1161   (make-charset
1162    '=>>jis-x0213-2
1163    "JIS X 0213 Plain 2 abstract glyphs"
1164    '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1165               dimension 2
1166               chars 94
1167               mother =jis-x0213-2
1168               =>iso-ir 229
1169               ;; final ?P
1170               graphic 0))
1171   (make-charset
1172    '=>>jis-x0213-1@2004
1173    "JIS X 0213:2004 Plain 1 abstract glyphs"
1174    '(registry "jisx0213\\(\\.2004\\)-1"
1175               dimension 2
1176               chars 94
1177               mother =>>jis-x0213-1
1178               =>iso-ir 233
1179               ;; final ?Q
1180               graphic 0
1181               ;; partial t
1182               ))
1183
1184   (make-charset
1185    '=+>jis-x0208
1186    "JIS X 0208 based on usual unification."
1187    '(registry "jisx0208\\.1990"
1188               dimension 2
1189               chars 94
1190               mother =>>jis-x0208
1191               =>iso-ir 168
1192               ;; final ?B
1193               graphic 0))
1194   (define-charset-alias '=>jis-x0208@usual '=+>jis-x0208)
1195   (make-charset
1196    '=+>jis-x0208@1978
1197    "JIS X 0208:1978 unified abstract glyphs."
1198    '(registry "jisx0208\\.1978"
1199               dimension 2
1200               chars 94
1201               mother =+>jis-x0208
1202               =>iso-ir 42
1203               ;; final ?@
1204               graphic 0))
1205   (make-charset
1206    '=+>jis-x0208@1983
1207    "JIS X 0208:1983 unified abstract glyphs."
1208    '(registry "jisx0208\\.1983"
1209               dimension 2
1210               chars 94
1211               mother =+>jis-x0208
1212               =>iso-ir 87
1213               graphic 0))
1214   (make-charset
1215    '=+>jis-x0208@1990
1216    "JIS X 0208:1990 unified abstract glyphs."
1217    '(registry "jisx0208\\.1990"
1218               dimension 2
1219               chars 94
1220               mother =+>jis-x0208
1221               =>iso-ir 168
1222               graphic 0))
1223   (make-charset
1224    '=+>jis-x0213-1
1225    "JIS X 0213 Plain 1 unified abstract glyphs (unchanged part)"
1226    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1227               dimension 2
1228               chars 94
1229               mother =>>jis-x0213-1
1230               =>iso-ir 228
1231               ;; final ?O
1232               graphic 0
1233               ;; partial t
1234               ))
1235   (make-charset
1236    '=+>jis-x0213-1@2000
1237    "JIS X 0213:2000 Plain 1 unified abstract glyphs"
1238    '(registry "jisx0213\\(\\.2000\\)-1"
1239               dimension 2
1240               chars 94
1241               mother =+>jis-x0213-1
1242               =>iso-ir 228
1243               ;; final ?O
1244               graphic 0
1245               ;; partial t
1246               ))
1247   (make-charset
1248    '=+>jis-x0213-1@2004
1249    "JIS X 0213:2004 Plain 1 unified abstract glyphs"
1250    '(registry "jisx0213\\(\\.2004\\)-1"
1251               dimension 2
1252               chars 94
1253               mother =+>jis-x0213-1
1254               =>iso-ir 233
1255               ;; final ?Q
1256               graphic 0
1257               ;; partial t
1258               ))
1259
1260   (make-charset
1261    '=>jis-x0208
1262    "JIS X 0208 based on the unchanged unification rules."
1263    '(registry "jisx0208\\.1990"
1264               dimension 2
1265               chars 94
1266               mother =+>jis-x0208
1267               =>iso-ir 168
1268               ;; final ?B
1269               graphic 0))
1270   (define-charset-alias '<=>jis-x0208 '=>jis-x0208)
1271   (make-charset
1272    '=>jis-x0208@1997
1273    "JIS X 0208 based on the unification rule of 1997 edition."
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@1997 '=>jis-x0208@1997)
1282   (define-charset-alias '  =jis-x0208@1997 '=>jis-x0208@1997)
1283
1284   (make-charset
1285    '=>jis-x0213-1
1286    "JIS X 0213 Plain 1 abstract characters (unchanged part)"
1287    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1288               dimension 2
1289               chars 94
1290               mother =+>jis-x0213-1
1291               =>iso-ir 228
1292               ;; final ?O
1293               graphic 0
1294               ;; partial t
1295               ))
1296   (define-charset-alias '<=>jis-x0213-1 '=>jis-x0213-1)
1297   (make-charset
1298    '=>jis-x0213-1@2000
1299    "JIS X 0213:2000 Plain 1 abstract characters"
1300    '(registry "jisx0213\\(\\.2000\\)-1"
1301               dimension 2
1302               chars 94
1303               mother =>jis-x0213-1
1304               =>iso-ir 228
1305               ;; final ?O
1306               graphic 0
1307               ;; partial t
1308               ))
1309   (define-charset-alias '<=>jis-x0213-1@2000 '=>jis-x0213-1@2000)
1310   (make-charset
1311    '=>jis-x0213-1@2004
1312    "JIS X 0213:2004 Plain 1 abstract characters"
1313    '(registry "jisx0213\\(\\.2004\\)-1"
1314               dimension 2
1315               chars 94
1316               mother =>jis-x0213-1
1317               =>iso-ir 233
1318               ;; final ?Q
1319               graphic 0
1320               ;; partial t
1321               ))
1322   (define-charset-alias '<=>jis-x0213-1@2004 '=>jis-x0213-1@2004)
1323   (make-charset
1324    '=+>jis-x0213-2
1325    "JIS X 0213 Plain 2 based on usual unification."
1326    '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1327               dimension 2
1328               chars 94
1329               mother =>>jis-x0213-2
1330               =>iso-ir 229
1331               ;; final ?P
1332               graphic 0))
1333   (define-charset-alias '=>jis-x0213-2@usual '=+>jis-x0213-2)
1334   (make-charset
1335    '=>jis-x0213-2
1336    "JIS X 0213 Plain 2 abstract characters"
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
1345   (make-charset
1346    '==cns11643-1
1347    "CNS 11643 Plane 1 representative glyph-images."
1348    '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
1349               dimension 2
1350               chars 94
1351               mother =cns11643-1
1352               =>iso-ir 171
1353               graphic 0))
1354   (make-charset
1355    '==cns11643-2
1356    "CNS 11643 Plane 2 representative glyph-images."
1357    '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1358               dimension 2
1359               chars 94
1360               mother =cns11643-2
1361               =>iso-ir 172
1362               graphic 0))
1363   (make-charset
1364    '==cns11643-3
1365    "CNS 11643 Plane 3 representative glyph-images."
1366    '(registry "CNS11643[.-]\\(.*[.-]\\)?3$"
1367               dimension 2
1368               chars 94
1369               mother =cns11643-3
1370               =>iso-ir 183
1371               graphic 0))
1372   (make-charset
1373    '==cns11643-4
1374    "CNS 11643 Plane 4 representative glyph-images."
1375    '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
1376               dimension 2
1377               chars 94
1378               mother =cns11643-4
1379               =>iso-ir 184
1380               graphic 0))
1381   (make-charset
1382    '==cns11643-5
1383    "CNS 11643 Plane 5 representative glyph-images."
1384    '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
1385               dimension 2
1386               chars 94
1387               mother =cns11643-5
1388               =>iso-ir 185
1389               graphic 0))
1390   (make-charset
1391    '==cns11643-6
1392    "CNS 11643 Plane 6 representative glyph-images."
1393    '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
1394               dimension 2
1395               chars 94
1396               mother =cns11643-6
1397               =>iso-ir 186
1398               graphic 0))
1399   (make-charset
1400    '==cns11643-7
1401    "CNS 11643 Plane 7 representative glyph-images."
1402    '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
1403               dimension 2
1404               chars 94
1405               mother =cns11643-7
1406               =>iso-ir 187
1407               graphic 0))
1408
1409   (make-charset
1410    '===cns11643-1
1411    "CNS 11643 Plane 1 representative glyph-images."
1412    '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
1413               dimension 2
1414               chars 94
1415               mother ==cns11643-1
1416               =>iso-ir 171
1417               graphic 0))
1418   (make-charset
1419    '===cns11643-2
1420    "CNS 11643 Plane 2 representative glyph-images."
1421    '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1422               dimension 2
1423               chars 94
1424               mother ==cns11643-2
1425               =>iso-ir 172
1426               graphic 0))
1427   (make-charset
1428    '===cns11643-3
1429    "CNS 11643 Plane 3 representative glyph-images."
1430    '(registry "CNS11643[.-]\\(.*[.-]\\)?3$"
1431               dimension 2
1432               chars 94
1433               mother ==cns11643-3
1434               =>iso-ir 183
1435               graphic 0))
1436   (make-charset
1437    '===cns11643-4
1438    "CNS 11643 Plane 4 representative glyph-images."
1439    '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
1440               dimension 2
1441               chars 94
1442               mother ==cns11643-4
1443               =>iso-ir 184
1444               graphic 0))
1445   (make-charset
1446    '===cns11643-5
1447    "CNS 11643 Plane 5 representative glyph-images."
1448    '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
1449               dimension 2
1450               chars 94
1451               mother ==cns11643-5
1452               =>iso-ir 185
1453               graphic 0))
1454   (make-charset
1455    '===cns11643-6
1456    "CNS 11643 Plane 6 representative glyph-images."
1457    '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
1458               dimension 2
1459               chars 94
1460               mother ==cns11643-6
1461               =>iso-ir 186
1462               graphic 0))
1463   (make-charset
1464    '===cns11643-7
1465    "CNS 11643 Plane 7 representative glyph-images."
1466    '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
1467               dimension 2
1468               chars 94
1469               mother ==cns11643-7
1470               =>iso-ir 187
1471               graphic 0))
1472
1473   (make-charset
1474    '=>>cns11643-1
1475    "CNS 11643 Plane 1 abstract glyphs."
1476    '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
1477               dimension 2
1478               chars 94
1479               mother =cns11643-1
1480               =>iso-ir 184
1481               graphic 0))
1482   (make-charset
1483    '=>>cns11643-4
1484    "CNS 11643 Plane 4 abstract glyphs."
1485    '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
1486               dimension 2
1487               chars 94
1488               mother =cns11643-4
1489               =>iso-ir 184
1490               graphic 0))
1491
1492   (make-charset
1493    '=>cns11643-2
1494    "CNS 11643 Plane 2 abstract characters."
1495    '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1496               dimension 2
1497               chars 94
1498               mother =cns11643-2
1499               =>iso-ir 172
1500               graphic 0))
1501   (make-charset
1502    '=>cns11643-5
1503    "CNS 11643 Plane 5 abstract characters."
1504    '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
1505               dimension 2
1506               chars 94
1507               mother =cns11643-5
1508               =>iso-ir 185
1509               graphic 0))
1510   (make-charset
1511    '=>cns11643-6
1512    "CNS 11643 Plane 6 abstract characters."
1513    '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
1514               dimension 2
1515               chars 94
1516               mother =cns11643-6
1517               =>iso-ir 186
1518               graphic 0))
1519   (make-charset
1520    '=>cns11643-7
1521    "CNS 11643 Plane 7 abstract characters."
1522    '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
1523               dimension 2
1524               chars 94
1525               mother =cns11643-7
1526               =>iso-ir 187
1527               graphic 0))
1528
1529   (make-charset '=big5-eten
1530                 "Big5 ETEN"
1531                 '(long-name     "Big5-ETEN"
1532                   chars         256
1533                   dimension     2
1534                   columns       2
1535                   graphic       2
1536                   direction     l2r
1537                   mother        chinese-big5
1538                   min-code      #x8140
1539                   max-code      #xFEFE
1540                   registry      "Big5\\.ETEN"))
1541   (define-charset-alias 'chinese-big5-eten '=big5-eten)
1542   (make-charset 'chinese-big5-eten-a
1543                 "Big5 ETEN (#xF9D6 .. #xF9FE)"
1544                 '(long-name     "Big5-ETEN-a"
1545                   chars         256
1546                   dimension     2
1547                   columns       2
1548                   graphic       2
1549                   direction     l2r
1550                   mother        chinese-big5
1551                   min-code      #xF9D6
1552                   max-code      #xF9FE
1553                   registry      "Big5\\.ETEN"))
1554   (make-charset 'chinese-big5-eten-b
1555                 "Big5 ETEN (#xC6A1 .. #xC8FE)"
1556                 '(long-name     "Big5-ETEN-b"
1557                   chars         256
1558                   dimension     2
1559                   columns       2
1560                   graphic       2
1561                   direction     l2r
1562                   mother        chinese-big5
1563                   min-code      #xC6A1
1564                   max-code      #xC8FE
1565                   registry      "Big5\\.ETEN"))
1566
1567   (make-charset '=big5-cdp
1568                 "Big5 with CDP extension"
1569                 '(long-name     "Big5-CDP"
1570                   chars         256
1571                   dimension     2
1572                   columns       2
1573                   graphic       2
1574                   direction     l2r
1575                   registry      "big5\\.cdp-0"
1576                   mother        chinese-big5
1577                   min-code      #x8140
1578                   max-code      #x8DFE))
1579   (define-charset-alias 'chinese-big5-cdp '=big5-cdp)
1580
1581   (make-charset '==big5-cdp
1582                 "Abstract glyph-images of Big5-CDP"
1583                 '(long-name     "Big5-CDP glyph-forms"
1584                   chars         256
1585                   dimension     2
1586                   columns       2
1587                   graphic       2
1588                   direction     l2r
1589                   registry      "big5\\.cdp-0"
1590                   mother        =big5-cdp))
1591   (make-charset '===big5-cdp
1592                 "Representative glyph-images of Big5-CDP"
1593                 '(long-name     "Big5-CDP glyph-images"
1594                   chars         256
1595                   dimension     2
1596                   columns       2
1597                   graphic       2
1598                   direction     l2r
1599                   registry      "big5\\.cdp-0"
1600                   mother        ==big5-cdp))
1601
1602   (make-charset '=>>big5-cdp
1603                 "Abstract glyphs of Big5-CDP"
1604                 '(long-name     "Big5-CDP glyphs"
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                 "Big5-CDP abstract characters"
1615                 '(long-name     "Big5-CDP abstract characters"
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
1625    '=mj
1626    "Moji-Jouhou-Kiban characters"
1627    `(long-name "Moji-Jouhou-Kiban"
1628                chars 256
1629                dimension 2
1630                columns 2
1631                graphic 2
1632                direction l2r
1633                ;; registry "mj-0$"
1634                min-code     #xE30000
1635                max-code ,(+ #xE30000 68053)
1636                code-offset  #xE30000
1637                ;; min-code            ,(lsh #x6404 16)
1638                ;; max-code         ,(+ (lsh #x6404 16) 68053)
1639                ;; code-offset    ,(lsh #x6404 16)
1640                ))
1641   (make-charset
1642    '=mj-0
1643    "Moji-Jouhou-Kiban plane 0"
1644    '(long-name "Moji-Jouhou-Kiban-0"
1645                chars 256
1646                dimension 2
1647                columns 2
1648                graphic 2
1649                direction l2r
1650                registry "mj-0$"
1651                mother =mj
1652                min-code 0
1653                max-code #xFFFF))
1654   (make-charset
1655    '=mj-1
1656    "Moji-Jouhou-Kiban plane 1"
1657    '(long-name "Moji-Jouhou-Kiban-1"
1658                chars 256
1659                dimension 2
1660                columns 2
1661                graphic 2
1662                direction l2r
1663                registry "mj-1$"
1664                mother =mj
1665                min-code #x10000
1666                code-offset #x10000))
1667
1668   (make-charset
1669    '=hanyo-denshi/ja
1670    "JA (JIS X0208) part of Han'you-Denshi characters"
1671    `(long-name "Han'you-Denshi/JA"
1672                chars 94
1673                dimension 2
1674                columns 2
1675                graphic 2
1676                direction l2r
1677                registry "HanyoDenshi\\.JA-0$"
1678                min-code ,(lsh #x6400 16)
1679                max-code ,(+ (lsh #x6400 16) (1- (* 94 94)))
1680                code-offset ,(lsh #x6400 16)))
1681   (make-charset
1682    '=hanyo-denshi/jb
1683    "JB (JIS X0212) part of Han'you-Denshi characters"
1684    `(long-name "Han'you-Denshi/JB"
1685                chars 94
1686                dimension 2
1687                columns 2
1688                graphic 2
1689                direction l2r
1690                registry "HanyoDenshi\\.JB-0$"
1691                min-code    ,(+ (lsh #x6400 16) (* 94 94))
1692                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 2)))
1693                code-offset ,(+ (lsh #x6400 16) (* 94 94))))
1694   (make-charset
1695    '=hanyo-denshi/jc
1696    "JC (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
1697    `(long-name "Han'you-Denshi/JC"
1698                chars 94
1699                dimension 2
1700                columns 2
1701                graphic 2
1702                direction l2r
1703                registry "HanyoDenshi\\.JC-0$"
1704                min-code    ,(+ (lsh #x6400 16) (* 94 94 2))
1705                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 3)))
1706                code-offset ,(+ (lsh #x6400 16) (* 94 94 2))))
1707   (make-charset
1708    '=hanyo-denshi/jd
1709    "JD (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
1710    `(long-name "Han'you-Denshi/JD"
1711                chars 94
1712                dimension 2
1713                columns 2
1714                graphic 2
1715                direction l2r
1716                registry "HanyoDenshi\\.JD-0$"
1717                min-code    ,(+ (lsh #x6400 16) (* 94 94 3))
1718                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 4)))
1719                code-offset ,(+ (lsh #x6400 16) (* 94 94 3))))
1720   (make-charset
1721    '=hanyo-denshi/ft
1722    "FT (FDPC additional) part of Han'you-Denshi characters"
1723    `(long-name "Han'you-Denshi/FT"
1724                chars 94
1725                dimension 2
1726                columns 2
1727                graphic 2
1728                direction l2r
1729                registry "HanyoDenshi\\.FT-0$"
1730                min-code    ,(+ (lsh #x6400 16) (* 94 94 4))
1731                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 5)))
1732                code-offset ,(+ (lsh #x6400 16) (* 94 94 4))))
1733   (make-charset
1734    '=hanyo-denshi/ia
1735    "IA part of Han'you-Denshi characters"
1736    `(long-name "Han'you-Denshi/IA"
1737                chars 94
1738                dimension 2
1739                columns 2
1740                graphic 2
1741                direction l2r
1742                registry "HanyoDenshi\\.IA-0$"
1743                min-code    ,(+ (lsh #x6400 16) (* 94 94 5))
1744                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 6)))
1745                code-offset ,(+ (lsh #x6400 16) (* 94 94 5))))
1746   (make-charset
1747    '=hanyo-denshi/ib
1748    "IB part of Han'you-Denshi characters"
1749    `(long-name "Han'you-Denshi/IB"
1750                chars 94
1751                dimension 2
1752                columns 2
1753                graphic 2
1754                direction l2r
1755                registry "HanyoDenshi\\.IB-0$"
1756                min-code    ,(+ (lsh #x6400 16) (* 94 94 6))
1757                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 7)))
1758                code-offset ,(+ (lsh #x6400 16) (* 94 94 6))))
1759   (make-charset
1760    '=hanyo-denshi/hg
1761    "HG (HyouGai Kanji) part of Han'you-Denshi characters"
1762    `(long-name "Han'you-Denshi/HG"
1763                chars 94
1764                dimension 2
1765                columns 2
1766                graphic 2
1767                direction l2r
1768                registry "HanyoDenshi\\.HG-0$"
1769                min-code    ,(+ (lsh #x6400 16) (* 94 94 7))
1770                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 8)))
1771                code-offset ,(+ (lsh #x6400 16) (* 94 94 7))))
1772   (make-charset
1773    '=hanyo-denshi/ip
1774    "IP (for IPA) part of Han'you-Denshi characters"
1775    `(long-name "Han'you-Denshi/IP"
1776                chars 256
1777                dimension 2
1778                columns 2
1779                graphic 2
1780                direction l2r
1781                registry "HanyoDenshi\\.IP-0$"
1782                min-code    ,(+ (lsh #x6402 16) #x4E00)
1783                max-code    ,(+ (lsh #x6402 16) #x9FFF)
1784                code-offset ,(+ (lsh #x6402 16))))
1785   (make-charset
1786    '=hanyo-denshi/jt
1787    "JT (Juuki Touitsu Moji) part of Han'you-Denshi characters"
1788    `(long-name "Han'you-Denshi/JT"
1789                chars 256
1790                dimension 2
1791                columns 2
1792                graphic 2
1793                direction l2r
1794                registry "HanyoDenshi\\.JT-0$"
1795                min-code    ,(+ (lsh #x6402 16) #xAC00)
1796                max-code    ,(+ (lsh #x6402 16) #xD7AF)
1797                code-offset ,(+ (lsh #x6402 16))))
1798   (make-charset
1799    '=hanyo-denshi/ks
1800    "KS (KoSeki) part of Han'you-Denshi characters"
1801    `(long-name "Han'you-Denshi/KS font encoding"
1802                chars 256
1803                dimension 3
1804                columns 2
1805                graphic 2
1806                direction l2r))
1807
1808   (make-charset
1809    '==mj
1810    "Moji-Jouhou-Kiban detailed glyph-images."
1811    '(long-name "MJ glyph-images"
1812                chars 256
1813                dimension 2
1814                columns 2
1815                graphic 2
1816                direction l2r
1817                mother =mj))
1818   (make-charset
1819    '==mj-0
1820    "MJ detailed glyph-images plane 0"
1821    '(long-name "MJ glyph-images-0"
1822                chars 256
1823                dimension 2
1824                columns 2
1825                graphic 2
1826                direction l2r
1827                registry "mj-0$"
1828                mother ==mj
1829                min-code 0
1830                max-code #xFFFF))
1831   (make-charset
1832    '==mj-1
1833    "MJ detailed glyph-images plane 1"
1834    '(long-name "MJ glyph-images-1"
1835                chars 256
1836                dimension 2
1837                columns 2
1838                graphic 2
1839                direction l2r
1840                registry "mj-1$"
1841                mother ==mj
1842                min-code #x10000
1843                code-offset #x10000))
1844
1845   (make-charset
1846    '==hanyo-denshi/ja
1847    "Han'you-Denshi/JA abstract glyph-forms."
1848    '(long-name "Han'you-Denshi/JA glyph-forms"
1849                chars 94
1850                dimension 2
1851                columns 2
1852                graphic 2
1853                direction l2r
1854                registry "HanyoDenshi\\.JA-0$"
1855                mother =hanyo-denshi/ja))
1856   (make-charset
1857    '==hanyo-denshi/jb
1858    "Han'you-Denshi/JB abstract glyph-forms."
1859    '(long-name "Han'you-Denshi/JB glyph-forms"
1860                chars 94
1861                dimension 2
1862                columns 2
1863                graphic 2
1864                direction l2r
1865                registry "HanyoDenshi\\.JB-0$"
1866                mother =hanyo-denshi/jb))
1867   (make-charset
1868    '==hanyo-denshi/jc
1869    "Han'you-Denshi/JC abstract glyph-forms."
1870    '(long-name "Han'you-Denshi/JC glyph-forms"
1871                chars 94
1872                dimension 2
1873                columns 2
1874                graphic 2
1875                direction l2r
1876                registry "HanyoDenshi\\.JC-0$"
1877                mother =hanyo-denshi/jc))
1878   (make-charset
1879    '==hanyo-denshi/jd
1880    "Han'you-Denshi/JD abstract glyph-forms."
1881    '(long-name "Han'you-Denshi/JD glyph-forms"
1882                chars 94
1883                dimension 2
1884                columns 2
1885                graphic 2
1886                direction l2r
1887                registry "HanyoDenshi\\.JD-0$"
1888                mother =hanyo-denshi/jd))
1889   (make-charset
1890    '==hanyo-denshi/ft
1891    "Han'you-Denshi/FT abstract glyph-forms."
1892    '(long-name "Han'you-Denshi/FT glyph-forms"
1893                chars 94
1894                dimension 2
1895                columns 2
1896                graphic 2
1897                direction l2r
1898                registry "HanyoDenshi\\.FT-0$"
1899                mother =hanyo-denshi/ft))
1900   (make-charset
1901    '==hanyo-denshi/ia
1902    "Han'you-Denshi/IA abstract glyph-forms."
1903    '(long-name "Han'you-Denshi/IA glyph-images"
1904                chars 94
1905                dimension 2
1906                columns 2
1907                graphic 2
1908                direction l2r
1909                registry "HanyoDenshi\\.IA-0$"
1910                mother =hanyo-denshi/ia))
1911   (make-charset
1912    '==hanyo-denshi/ib
1913    "Han'you-Denshi/IB abstract glyph-forms."
1914    '(long-name "Han'you-Denshi/IB glyph-forms"
1915                chars 94
1916                dimension 2
1917                columns 2
1918                graphic 2
1919                direction l2r
1920                registry "HanyoDenshi\\.IB-0$"
1921                mother =hanyo-denshi/ib))
1922   (make-charset
1923    '==hanyo-denshi/hg
1924    "Han'you-Denshi/HG abstract glyph-forms."
1925    '(long-name "Han'you-Denshi/HG glyph-forms"
1926                chars 94
1927                dimension 2
1928                columns 2
1929                graphic 2
1930                direction l2r
1931                registry "HanyoDenshi\\.HG-0$"
1932                mother =hanyo-denshi/hg))
1933   (make-charset
1934    '==hanyo-denshi/ip
1935    "Han'you-Denshi/IP abstract glyph-forms."
1936    '(long-name "Han'you-Denshi/IP glyph-images"
1937                chars 256
1938                dimension 2
1939                columns 2
1940                graphic 2
1941                direction l2r
1942                registry "HanyoDenshi\\.IP-0$"
1943                mother =hanyo-denshi/ip))
1944   (make-charset
1945    '==hanyo-denshi/jt
1946    "JT (Juuki Touitsu Moji) abstract glyph-forms."
1947    '(long-name "Han'you-Denshi/JT glyph-forms"
1948                chars 256
1949                dimension 2
1950                columns 2
1951                graphic 2
1952                direction l2r
1953                registry "HanyoDenshi\\.JT-0$"
1954                mother =hanyo-denshi/jt))
1955   (make-charset
1956    '==hanyo-denshi/ks
1957    "KoSeki-touitsu-moji abstract glyph-forms."
1958    '(long-name "Han'you-Denshi/KS glyph-forms"
1959                chars 256
1960                dimension 3
1961                columns 2
1962                graphic 2
1963                direction l2r
1964                mother =hanyo-denshi/ks))
1965
1966   (make-charset
1967    '=koseki
1968    "Abstract glyph-forms of KoSeki-touitsu-moji."
1969    '(long-name "KoSeki-touitsu-moji glyph-forms"
1970                chars 256
1971                dimension 3
1972                columns 2
1973                graphic 2
1974                direction l2r
1975                mother =hanyo-denshi/ks))
1976   (make-charset
1977    '==koseki
1978    "Representative glyph-images of KoSeki-touitsu-moji."
1979    '(long-name "KoSeki-touitsu-moji glyph-images"
1980                chars 256
1981                dimension 3
1982                columns 2
1983                graphic 2
1984                direction l2r
1985                mother =koseki))
1986
1987   (define-charset-alias '=>>>hanyo-denshi/ja '==hanyo-denshi/ja)
1988   (define-charset-alias '=>>>hanyo-denshi/jb '==hanyo-denshi/jb)
1989   (define-charset-alias '=>>>hanyo-denshi/jc '==hanyo-denshi/jc)
1990   (define-charset-alias '=>>>hanyo-denshi/jd '==hanyo-denshi/jd)
1991   (define-charset-alias '=>>>hanyo-denshi/ft '==hanyo-denshi/ft)
1992   (define-charset-alias '=>>>hanyo-denshi/ib '==hanyo-denshi/ib)
1993   (define-charset-alias '=>>>hanyo-denshi/hg '==hanyo-denshi/hg)
1994   (define-charset-alias '=>>>hanyo-denshi/jt '==hanyo-denshi/jt)
1995   (define-charset-alias '=>>>hanyo-denshi/ks '==hanyo-denshi/ks)
1996
1997   ;; (make-charset
1998   ;;  '===hanyo-denshi/ja
1999   ;;  "Han'you-Denshi/JA detailed glyph-images."
2000   ;;  '(long-name "Han'you-Denshi/JA glyph-images"
2001   ;;              chars 94
2002   ;;              dimension 2
2003   ;;              columns 2
2004   ;;              graphic 2
2005   ;;              direction l2r
2006   ;;              registry "HanyoDenshi\\.JA-0$"
2007   ;;              mother ==hanyo-denshi/ja))
2008   (make-charset
2009    '===hanyo-denshi/jb
2010    "Han'you-Denshi/JB detailed glyph-images."
2011    '(long-name "Han'you-Denshi/JB glyph-images"
2012                chars 94
2013                dimension 2
2014                columns 2
2015                graphic 2
2016                direction l2r
2017                registry "HanyoDenshi\\.JB-0$"
2018                mother ==hanyo-denshi/jb))
2019   (make-charset
2020    '===hanyo-denshi/jc
2021    "Han'you-Denshi/JC representative glyph-images."
2022    '(long-name "Han'you-Denshi/JC glyph-images"
2023                chars 94
2024                dimension 2
2025                columns 2
2026                graphic 2
2027                direction l2r
2028                registry "HanyoDenshi\\.JC-0$"
2029                mother ==hanyo-denshi/jc))
2030   (make-charset
2031    '===hanyo-denshi/jd
2032    "Han'you-Denshi/JD representative glyph-images."
2033    '(long-name "Han'you-Denshi/JD glyph-images"
2034                chars 94
2035                dimension 2
2036                columns 2
2037                graphic 2
2038                direction l2r
2039                registry "HanyoDenshi\\.JD-0$"
2040                mother ==hanyo-denshi/jd))
2041   (make-charset
2042    '===hanyo-denshi/ft
2043    "Han'you-Denshi/FT detailed glyph-images."
2044    '(long-name "Han'you-Denshi/FT glyph-images"
2045                chars 94
2046                dimension 2
2047                columns 2
2048                graphic 2
2049                direction l2r
2050                registry "HanyoDenshi\\.FT-0$"
2051                mother ==hanyo-denshi/ft))
2052   (make-charset
2053    '===hanyo-denshi/ia
2054    "Han'you-Denshi/IA detailed glyph-images."
2055    '(long-name "Han'you-Denshi/IA glyph-images"
2056                chars 94
2057                dimension 2
2058                columns 2
2059                graphic 2
2060                direction l2r
2061                registry "HanyoDenshi\\.IA-0$"
2062                mother ==hanyo-denshi/ia))
2063   (make-charset
2064    '===hanyo-denshi/ib
2065    "Han'you-Denshi/IB detailed glyph-images."
2066    '(long-name "Han'you-Denshi/IB glyph-images"
2067                chars 94
2068                dimension 2
2069                columns 2
2070                graphic 2
2071                direction l2r
2072                registry "HanyoDenshi\\.IB-0$"
2073                mother ==hanyo-denshi/ib))
2074   (make-charset
2075    '===hanyo-denshi/hg
2076    "Han'you-Denshi/HG detailed glyph-images."
2077    '(long-name "Han'you-Denshi/HG glyph-images"
2078                chars 94
2079                dimension 2
2080                columns 2
2081                graphic 2
2082                direction l2r
2083                registry "HanyoDenshi\\.HG-0$"
2084                mother ==hanyo-denshi/hg))
2085   (make-charset
2086    '===hanyo-denshi/ip
2087    "Han'you-Denshi/IP representative glyph-images."
2088    '(long-name "Han'you-Denshi/IP glyph-images"
2089                chars 256
2090                dimension 2
2091                columns 2
2092                graphic 2
2093                direction l2r
2094                registry "HanyoDenshi\\.IP-0$"
2095                mother ==hanyo-denshi/ip))
2096   (make-charset
2097    '===hanyo-denshi/jt
2098    "JT (Juuki Touitsu Moji) detailed glyph-images."
2099    '(long-name "Han'you-Denshi/JT glyph-images"
2100                chars 256
2101                dimension 2
2102                columns 2
2103                graphic 2
2104                direction l2r
2105                registry "HanyoDenshi\\.JT-0$"
2106                mother ==hanyo-denshi/jt))
2107   (make-charset
2108    '===hanyo-denshi/ks
2109    "KoSeki-touitsu-moji detailed glyph-images."
2110    '(long-name "Han'you-Denshi/KS glyph-images"
2111                chars 256
2112                dimension 3
2113                columns 2
2114                graphic 2
2115                direction l2r
2116                mother ==hanyo-denshi/ks))
2117
2118   (make-charset
2119    '=hanyo-denshi/ks/mf
2120    "font encoding for KS (KoSeki) characters"
2121    `(long-name "Han'you-Denshi/KS font encoding"
2122                chars 256
2123                dimension 2
2124                columns 2
2125                graphic 2
2126                direction l2r
2127                registry "HanyoDenshi\\.KSMF-0$"
2128                min-code       ,(lsh #x6403 16)
2129                max-code    ,(+ (lsh #x6403 16) #xFFFF)
2130                code-offset    ,(lsh #x6403 16)))
2131
2132   (make-charset
2133    '===mj
2134    "Moji-Jouhou-Kiban detailed glyph-images."
2135    '(long-name "MJ glyph-images"
2136                chars 256
2137                dimension 2
2138                columns 2
2139                graphic 2
2140                direction l2r
2141                mother ==mj))
2142   (make-charset
2143    '===mj-0
2144    "MJ detailed glyph-images plane 0"
2145    '(long-name "MJ glyph-images-0"
2146                chars 256
2147                dimension 2
2148                columns 2
2149                graphic 2
2150                direction l2r
2151                registry "mj-0$"
2152                mother ===mj
2153                min-code 0
2154                max-code #xFFFF))
2155   (make-charset
2156    '===mj-1
2157    "MJ detailed glyph-images plane 1"
2158    '(long-name "MJ glyph-images-1"
2159                chars 256
2160                dimension 2
2161                columns 2
2162                graphic 2
2163                direction l2r
2164                registry "mj-1$"
2165                mother ===mj
2166                min-code #x10000
2167                code-offset #x10000))
2168
2169   (make-charset
2170    '=+>hanyo-denshi/ft
2171    "Han'you-Denshi/FT abstract glyphs"
2172    '(long-name "Han'you-Denshi/FT glyphs"
2173                chars 94
2174                dimension 2
2175                columns 2
2176                graphic 2
2177                direction l2r
2178                registry "HanyoDenshi\\.FT-0$"
2179                mother =hanyo-denshi/ft))
2180   (make-charset
2181    '=+>hanyo-denshi/jt
2182    "JT (Juuki Touitsu Moji) unified abstract glyphs."
2183    '(long-name "Han'you-Denshi/JT unified glyphs"
2184                chars 256
2185                dimension 2
2186                columns 2
2187                graphic 2
2188                direction l2r
2189                registry "HanyoDenshi\\.JT-0$"
2190                mother =hanyo-denshi/jt))
2191
2192   (make-charset
2193    '=>>mj
2194    "Moji-Jouhou-Kiban abstract glyphs."
2195    '(long-name "MJ glyphs"
2196                chars 256
2197                dimension 2
2198                columns 2
2199                graphic 2
2200                direction l2r
2201                mother =mj))
2202
2203   (make-charset
2204    '=>>hanyo-denshi/ja
2205    "Han'you-Denshi/JA abstract glyphs"
2206    '(long-name "Han'you-Denshi/JA glyphs"
2207                chars 94
2208                dimension 2
2209                columns 2
2210                graphic 2
2211                direction l2r
2212                registry "HanyoDenshi\\.JA-0$"
2213                mother =hanyo-denshi/ja))
2214   (make-charset
2215    '=>>hanyo-denshi/jb
2216    "Han'you-Denshi/JB abstract glyphs"
2217    '(long-name "Han'you-Denshi/JB glyphs"
2218                chars 94
2219                dimension 2
2220                columns 2
2221                graphic 2
2222                direction l2r
2223                registry "HanyoDenshi\\.JB-0$"
2224                mother =hanyo-denshi/jb))
2225   (make-charset
2226    '=>>hanyo-denshi/jc
2227    "Han'you-Denshi/JC abstract glyphs"
2228    '(long-name "Han'you-Denshi/JC glyphs"
2229                chars 94
2230                dimension 2
2231                columns 2
2232                graphic 2
2233                direction l2r
2234                registry "HanyoDenshi\\.JC-0$"
2235                mother =hanyo-denshi/jc))
2236   (make-charset
2237    '=>>hanyo-denshi/jd
2238    "Han'you-Denshi/JD abstract glyphs"
2239    '(long-name "Han'you-Denshi/JD glyphs"
2240                chars 94
2241                dimension 2
2242                columns 2
2243                graphic 2
2244                direction l2r
2245                registry "HanyoDenshi\\.JD-0$"
2246                mother =hanyo-denshi/jd))
2247   (make-charset
2248    '=>>hanyo-denshi/ft
2249    "Han'you-Denshi/FT abstract glyphs"
2250    '(long-name "Han'you-Denshi/FT glyphs"
2251                chars 94
2252                dimension 2
2253                columns 2
2254                graphic 2
2255                direction l2r
2256                registry "HanyoDenshi\\.FT-0$"
2257                mother =hanyo-denshi/ft))
2258   (make-charset
2259    '=>>hanyo-denshi/ia
2260    "Han'you-Denshi/IA abstract glyphs"
2261    '(long-name "Han'you-Denshi/IA glyphs"
2262                chars 94
2263                dimension 2
2264                columns 2
2265                graphic 2
2266                direction l2r
2267                registry "HanyoDenshi\\.IA-0$"
2268                mother =hanyo-denshi/ia))
2269   (make-charset
2270    '=>>hanyo-denshi/ib
2271    "Han'you-Denshi/IB abstract glyphs"
2272    '(long-name "Han'you-Denshi/IB abstract glyphs"
2273                chars 94
2274                dimension 2
2275                columns 2
2276                graphic 2
2277                direction l2r
2278                registry "HanyoDenshi\\.IB-0$"
2279                mother =hanyo-denshi/ib))
2280   (make-charset
2281    '=>>hanyo-denshi/hg
2282    "Han'you-Denshi/HG abstract glyphs"
2283    '(long-name "Han'you-Denshi/HG abstract glyphs"
2284                chars 94
2285                dimension 2
2286                columns 2
2287                graphic 2
2288                direction l2r
2289                registry "HanyoDenshi\\.HG-0$"
2290                mother =hanyo-denshi/hg))
2291   (make-charset
2292    '=>>hanyo-denshi/ip
2293    "Han'you-Denshi/IP abstract glyphs"
2294    '(long-name "Han'you-Denshi/IP abstract glyphs"
2295                chars 256
2296                dimension 2
2297                columns 2
2298                graphic 2
2299                direction l2r
2300                registry "HanyoDenshi\\.IP-0$"
2301                mother =hanyo-denshi/ip))
2302   (make-charset
2303    '=>>hanyo-denshi/jt
2304    "JT (Juuki Touitsu Moji) abstract glyphs"
2305    '(long-name "Han'you-Denshi/JT glyphs"
2306                chars 256
2307                dimension 2
2308                columns 2
2309                graphic 2
2310                direction l2r
2311                registry "HanyoDenshi\\.JT-0$"
2312                mother =hanyo-denshi/jt))
2313   (make-charset
2314    '=>>hanyo-denshi/ks
2315    "Han'you-Denshi/KS abstract glyphs"
2316    '(long-name "Han'you-Denshi/KS glyphs"
2317                chars 256
2318                dimension 3
2319                columns 2
2320                graphic 2
2321                direction l2r
2322                mother =hanyo-denshi/ks))
2323
2324   (make-charset '=gt
2325                 "GT 2000"
2326                 `(long-name     "GT"
2327                   chars         256
2328                   dimension     3
2329                   columns       2
2330                   graphic       2
2331                   direction     l2r
2332                   registry      ""
2333                   min-code      ,(lsh #x6100 16)
2334                   max-code      ,(+ (lsh #x6100 16) 67547)
2335                   code-offset   ,(lsh #x6100 16)))
2336   (make-charset '==gt
2337                 "GT 2000 abstract glyph-forms."
2338                 '(long-name     "GT abstract glyph-forms"
2339                   chars         256
2340                   dimension     3
2341                   columns       2
2342                   graphic       2
2343                   direction     l2r
2344                   mother        =gt))
2345   (make-charset '===gt
2346                 "GT 2000 detailed glyph-images."
2347                 '(long-name     "GT glyph-images"
2348                   chars         256
2349                   dimension     3
2350                   columns       2
2351                   graphic       2
2352                   direction     l2r
2353                   mother        ==gt
2354                   ;; min-code   1
2355                   ;; max-code   67392
2356                   ))
2357   (define-charset-alias 'ideograph-gt '=gt)
2358   (define-charset-alias '=>>>gt '==gt)
2359   (make-charset '=>>gt
2360                 "GT 2000 abstract glyphs"
2361                 '(long-name     "GT abstract glyphs"
2362                   chars         256
2363                   dimension     3
2364                   columns       2
2365                   graphic       2
2366                   direction     l2r
2367                   mother        =gt))
2368   (define-charset-alias '<=>gt '=>>gt)
2369   (define-charset-alias '<==>gt '=>>gt)
2370   (make-charset '=+>gt
2371                 "GT 2000 unified abstract glyphs"
2372                 '(long-name     "Unified abstract GT glyphs"
2373                   chars         256
2374                   dimension     3
2375                   columns       2
2376                   graphic       2
2377                   direction     l2r
2378                   mother        =>>gt))
2379   (make-charset '=>gt
2380                 "GT 2000 abstract characters"
2381                 '(long-name     "abstract GT characters"
2382                   chars         256
2383                   dimension     3
2384                   columns       2
2385                   graphic       2
2386                   direction     l2r
2387                   mother        =+>gt))
2388   (make-charset '=gt-k
2389                 "Ideographic components of GT"
2390                 `(long-name     "GT components"
2391                   chars         256
2392                   dimension     2
2393                   columns       2
2394                   graphic       2
2395                   direction     l2r
2396                   registry      ""
2397                   min-code      ,(lsh #x6110 16)
2398                   max-code      ,(+ (lsh #x6110 16) 17090)
2399                   code-offset   ,(lsh #x6110 16)))
2400   (define-charset-alias 'ideograph-gt-k '=gt-k)
2401   (make-charset '==gt-k
2402                 "Abstract glyph-images of GT-K"
2403                 '(long-name     "GT-K glyph-images"
2404                   chars         256
2405                   dimension     2
2406                   columns       2
2407                   graphic       2
2408                   direction     l2r
2409                   mother        =gt-k))
2410   (make-charset '===gt-k
2411                 "Representative glyph-images of GT-K"
2412                 '(long-name     "GT-K glyph-images"
2413                   chars         256
2414                   dimension     2
2415                   columns       2
2416                   graphic       2
2417                   direction     l2r
2418                   mother        ==gt-k))
2419   (make-charset '=>>gt-k
2420                 "abstract glyphs of GT-K"
2421                 '(long-name     "GT-K abstract glyphs"
2422                   chars         256
2423                   dimension     2
2424                   columns       2
2425                   graphic       2
2426                   direction     l2r
2427                   mother        =gt-k))
2428   (make-charset '=>gt-k
2429                 "GT-K abstract characters"
2430                 '(long-name     "GT-K abstract characters"
2431                   chars         256
2432                   dimension     2
2433                   columns       2
2434                   graphic       2
2435                   direction     l2r
2436                   mother        =>>gt-k))
2437   (let ((i 1))
2438     (while (<= i 11)
2439       (make-charset
2440        (intern (format "=gt-pj-%d" i))
2441        (format "GT 2000 (pseudo JIS encoding) part %d" i)
2442        `(long-name ,(format "GT PJ %d" i)
2443                    chars 94
2444                    dimension 2
2445                    columns 2
2446                    graphic 0
2447                    direction l2r
2448                    registry ,(format "\\(GTpj-%d\\|jisx0208\\.GT-%d\\)$" i i)))
2449       (define-charset-alias
2450         (intern (format "ideograph-gt-pj-%d" i))
2451         (intern (format "=gt-pj-%d" i)))
2452       (setq i (1+ i))))
2453   (make-charset
2454    '=gt-pj-k1
2455    "Ideographic parts of GT (pseudo JIS encoding) part 1"
2456    '(long-name "GT K1"
2457                chars 94
2458                dimension 2
2459                columns 2
2460                graphic 0
2461                direction l2r
2462                registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$"))
2463   (define-charset-alias 'ideograph-gt-pj-k1 '=gt-pj-k1)
2464   (make-charset
2465    '=gt-pj-k2
2466    "Ideographic parts of GT (pseudo JIS encoding) part 2"
2467    '(long-name "GT K2"
2468                chars 94
2469                dimension 2
2470                columns 2
2471                graphic 0
2472                direction l2r
2473                registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$"))
2474   (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2)
2475
2476   (make-charset '=daikanwa
2477                 "Daikanwa dictionary (unchanged part)"
2478                 `(long-name     "Daikanwa"
2479                   chars         256
2480                   dimension     2
2481                   columns       2
2482                   graphic       2
2483                   direction     l2r
2484                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2485                   min-code      #xE00000
2486                   max-code      ,(+ #xE00000 50100)
2487                   code-offset   #xE00000))
2488   (define-charset-alias 'ideograph-daikanwa '=daikanwa)
2489
2490   (make-charset '=daikanwa@rev1
2491                 "Daikanwa dictionary (revised version)"
2492                 '(long-name     "Daikanwa Rev."
2493                   chars         256
2494                   dimension     2
2495                   columns       2
2496                   graphic       2
2497                   direction     l2r
2498                   registry      "Daikanwa\\(\\.[0-9]+\\)?-2"
2499                   mother        =daikanwa))
2500   (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa@rev1)
2501   (define-charset-alias '=daikanwa-rev1 '=daikanwa@rev1)
2502
2503   (make-charset '=daikanwa@rev2
2504                 "Daikanwa dictionary (revised version 2)"
2505                 '(long-name     "Daikanwa"
2506                   chars         256
2507                   dimension     2
2508                   columns       2
2509                   graphic       2
2510                   direction     l2r
2511                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2512                   mother        =daikanwa
2513                   min-code      1
2514                   max-code      49964))
2515   (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2)
2516
2517   (make-charset '=daikanwa/+p
2518                 "Daikanwa dictionary (ddddd')"
2519                 '(long-name     "Daikanwa ddddd'"
2520                   chars         256
2521                   dimension     2
2522                   columns       2
2523                   graphic       2
2524                   direction     l2r))
2525   (make-charset '=daikanwa/+2p
2526                 "Daikanwa dictionary (ddddd'')"
2527                 '(long-name     "Daikanwa ddddd''"
2528                   chars         256
2529                   dimension     2
2530                   columns       2
2531                   graphic       2
2532                   direction     l2r))
2533   (make-charset '=daikanwa/ho
2534                 "Daikanwa dictionary (Hokan)"
2535                 '(long-name     "Daikanwa-ho"
2536                   chars         256
2537                   dimension     2
2538                   columns       2
2539                   graphic       2
2540                   direction     l2r))
2541
2542   (make-charset '==daikanwa
2543                 "Daikanwa glyph-images."
2544                 '(long-name     "Daikanwa glyph-images"
2545                   chars         256
2546                   dimension     2
2547                   columns       2
2548                   graphic       2
2549                   direction     l2r
2550                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2551                   mother        =daikanwa))
2552   (make-charset '==daikanwa/+p
2553                 "Daikanwa detailed glyph-images (ddddd')"
2554                 '(long-name     "Daikanwa detailed glyphs-images (ddddd')"
2555                   chars         256
2556                   dimension     2
2557                   columns       2
2558                   graphic       2
2559                   direction     l2r
2560                   mother        =daikanwa/+p))
2561   (make-charset '==daikanwa/+2p
2562                 "Daikanwa detailed glyph-images (ddddd'')"
2563                 '(long-name     "Daikanwa glyph-images ddddd''"
2564                   chars         256
2565                   dimension     2
2566                   columns       2
2567                   graphic       2
2568                   direction     l2r
2569                   mother        =daikanwa/+2p))
2570   (make-charset '==daikanwa/ho
2571                 "Daikanwa detailed glyph-images (Hokan)"
2572                 '(long-name     "Daikanwa-ho detailed glyph-images"
2573                   chars         256
2574                   dimension     2
2575                   columns       2
2576                   graphic       2
2577                   direction     l2r
2578                   mother        =daikanwa/ho))
2579
2580   (make-charset '===daikanwa
2581                 "Daikanwa detailed glyph-images."
2582                 '(long-name     "Daikanwa detailed glyph-images"
2583                   chars         256
2584                   dimension     2
2585                   columns       2
2586                   graphic       2
2587                   direction     l2r
2588                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2589                   mother        ==daikanwa))
2590   (make-charset '===daikanwa/+p
2591                 "Daikanwa detailed glyph-images (ddddd')"
2592                 '(long-name     "Daikanwa detailed glyphs-images (ddddd')"
2593                   chars         256
2594                   dimension     2
2595                   columns       2
2596                   graphic       2
2597                   direction     l2r
2598                   mother        ==daikanwa/+p))
2599   (make-charset '===daikanwa/ho
2600                 "Daikanwa detailed glyph-images (Hokan)"
2601                 '(long-name     "Daikanwa-ho detailed glyph-images"
2602                   chars         256
2603                   dimension     2
2604                   columns       2
2605                   graphic       2
2606                   direction     l2r
2607                   mother        ==daikanwa/ho))
2608
2609   (make-charset '=>>daikanwa
2610                 "Daikanwa abstract glyphs"
2611                 '(long-name     "Daikanwa glyphs"
2612                   chars         256
2613                   dimension     2
2614                   columns       2
2615                   graphic       2
2616                   direction     l2r
2617                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2618                   mother        =daikanwa))
2619   (make-charset '=>>daikanwa/+p
2620                 "Daikanwa abstract glyphs (ddddd')"
2621                 '(long-name     "Daikanwa glyphs (ddddd')"
2622                   chars         256
2623                   dimension     2
2624                   columns       2
2625                   graphic       2
2626                   direction     l2r
2627                   mother        =daikanwa/+p))
2628   (make-charset '=>>daikanwa/+2p
2629                 "Daikanwa abstract glyphs (ddddd'')"
2630                 '(long-name     "Daikanwa glyphs (ddddd'')"
2631                   chars         256
2632                   dimension     2
2633                   columns       2
2634                   graphic       2
2635                   direction     l2r
2636                   mother        =daikanwa/+2p))
2637   (make-charset '=>>daikanwa/ho
2638                 "Daikanwa abstract glyphs (Hokan)"
2639                 '(long-name     "Daikanwa-ho glyph"
2640                   chars         256
2641                   dimension     2
2642                   columns       2
2643                   graphic       2
2644                   direction     l2r
2645                   mother        =daikanwa/ho))
2646
2647   (make-charset '=>daikanwa
2648                 "Daikanwa abstract characters"
2649                 '(long-name     "abstract Daikanwa"
2650                   chars         256
2651                   dimension     2
2652                   columns       2
2653                   graphic       2
2654                   direction     l2r
2655                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2656                   mother        =>>daikanwa))
2657   (make-charset '=>daikanwa/ho
2658                 "Daikanwa abstract characters (Hokan)"
2659                 '(long-name     "abstract Daikanwa-ho"
2660                   chars         256
2661                   dimension     2
2662                   columns       2
2663                   graphic       2
2664                   direction     l2r
2665                   mother        =>>daikanwa/ho))
2666
2667   (make-charset '=shinjigen
2668                 "Kadokawa ShinJigen dictionary (common parts)"
2669                 `(long-name     "Shinjigen common parts"
2670                   chars         256
2671                   dimension     2
2672                   columns       2
2673                   graphic       2
2674                   direction     l2r
2675                   registry      "Shinjigen\\(\\.[0-9]+\\)?-*"))
2676
2677   (make-charset '=shinjigen@1ed
2678                 "Kadokawa ShinJigen dictionary (the first edition)"
2679                 `(long-name     "Shinjigen-1"
2680                   chars         256
2681                   dimension     2
2682                   columns       2
2683                   graphic       2
2684                   direction     l2r
2685                   mother        =shinjigen
2686                   registry      "Shinjigen\\(\\.[0-9]+\\)?-1"))
2687   (define-charset-alias 'shinjigen-1 '=shinjigen@1ed)
2688
2689   (make-charset '=shinjigen@1ed/24pr
2690                 "Kadokawa ShinJigen dictionary (the 24th impression)"
2691                 `(long-name     "Shinjigen-1 24pr"
2692                   chars         256
2693                   dimension     2
2694                   columns       2
2695                   graphic       2
2696                   direction     l2r
2697                   mother        =shinjigen@1ed))
2698
2699   (make-charset '=shinjigen@rev
2700                 "Kadokawa ShinJigen dictionary (the revised edition)"
2701                 `(long-name     "Shinjigen-2"
2702                   chars         256
2703                   dimension     2
2704                   columns       2
2705                   graphic       2
2706                   direction     l2r
2707                   mother        =shinjigen
2708                   registry      "Shinjigen\\(\\.[0-9]+\\)?-2"))
2709   (define-charset-alias 'shinjigen-2 '=shinjigen@rev)
2710   (make-charset '=shinjigen/+p@rev
2711                 "ShinJigen (the second edition) number with '"
2712                 `(long-name     "Shinjigen-2 with '"
2713                   chars         256
2714                   dimension     2
2715                   columns       2
2716                   graphic       2
2717                   direction     l2r))
2718   (define-charset-alias 'shinjigen-2-p '=shinjigen/+p@rev)
2719
2720   (make-charset '==shinjigen
2721                 "Detailed glyph-images of ShinJigen (common parts)"
2722                 '(long-name     "Shinjigen common parts"
2723                   chars         256
2724                   dimension     2
2725                   columns       2
2726                   graphic       2
2727                   direction     l2r
2728                   mother        =shinjigen
2729                   registry      "Shinjigen\\(\\.[0-9]+\\)?-*"))
2730   (make-charset '==shinjigen@1ed
2731                 "Detailed glyph-images of ShinJigen (the first edition)"
2732                 '(long-name     "Detailed glyph-images of Shinjigen-1"
2733                   chars         256
2734                   dimension     2
2735                   columns       2
2736                   graphic       2
2737                   direction     l2r
2738                   mother        ==shinjigen
2739                   registry      "Shinjigen\\(\\.[0-9]+\\)?-1"))
2740   (make-charset '==shinjigen@rev
2741                 "Detailed glyph-images of ShinJigen (the revised edition)"
2742                 '(long-name     "Detailed glyph-images of Shinjigen-2"
2743                   chars         256
2744                   dimension     2
2745                   columns       2
2746                   graphic       2
2747                   direction     l2r
2748                   mother        ==shinjigen
2749                   registry      "Shinjigen\\(\\.[0-9]+\\)?-2"))
2750   (make-charset
2751    '==shinjigen/+p@rev
2752    "Detailed glyph-images of ShinJigen (the second edition) number with '"
2753    '(long-name  "Detailed glyph-images of Shinjigen-2 with '"
2754                 mother  =shinjigen/+p@rev
2755                 chars           256
2756                 dimension       2
2757                 columns 2
2758                 graphic 2
2759                 direction       l2r))
2760
2761   (make-charset '=big5-pua
2762                 "Big5 with private used area"
2763                 '(long-name     "Big5-PUA"
2764                   chars         256
2765                   dimension     2
2766                   columns       2
2767                   graphic       2
2768                   direction     l2r
2769                   mother        chinese-big5
2770                   registry      "Big5\\.ETEN"))
2771   (define-charset-alias 'chinese-big5-pua '=big5-pua)
2772
2773   (let* ((i 1)
2774          (hzk-min (+ (lsh #x6200 16) 65536))
2775          (hzk-max (+ hzk-min 65535)))
2776     (while (<= i 12)
2777       (make-charset
2778        (intern (format "=hanziku-%d" i))
2779        (format "HANZIKU (pseudo BIG5 encoding) part %d" i)
2780        `(long-name ,(format "HANZIKU-%d" i)
2781                    chars 256
2782                    dimension 2
2783                    columns 2
2784                    graphic 2
2785                    direction l2r
2786                    registry ,(format "hanziku-%d$" i i)
2787                    min-code ,hzk-min
2788                    max-code ,hzk-max
2789                    code-offset ,hzk-min))
2790       (define-charset-alias
2791         (intern (format "ideograph-hanziku-%d" i))
2792         (intern (format "=hanziku-%d" i)))
2793       (setq hzk-min (1+ hzk-max)
2794             hzk-max (+ hzk-min 65535))
2795       (setq i (1+ i))))
2796
2797   (make-charset '===hng-khi "HNG:妙法蓮華經卷五（今西本）"
2798                 '(long-name "HNG/宮廷今西"
2799                   chars         256
2800                   dimension     2
2801                   registry      "hngkhi-0"
2802                   graphic       2
2803                   columns       2
2804                   direction     l2r))
2805
2806   (make-charset '=cbeta "CBETA private characters"
2807                 '(long-name     "CBETA PUA"
2808                   chars         256
2809                   dimension     2
2810                   registry      "cbeta-0"
2811                   graphic       2
2812                   min-code      #xE20000
2813                   max-code      #xE2FFFF
2814                   code-offset   #xE20000
2815                   columns       2
2816                   direction     l2r))
2817   (define-charset-alias 'ideograph-cbeta '=cbeta)
2818   (make-charset '==cbeta "CBETA private characters"
2819                 '(long-name     "CBETA PUA glyph-images"
2820                   chars         256
2821                   dimension     2
2822                   registry      "cbeta-0"
2823                   graphic       2
2824                   columns       2
2825                   direction     l2r
2826                   mother        =cbeta))
2827   (make-charset '===cbeta "CBETA private characters"
2828                 '(long-name     "CBETA PUA glyph-images"
2829                   chars         256
2830                   dimension     2
2831                   registry      "cbeta-0"
2832                   graphic       2
2833                   columns       2
2834                   direction     l2r
2835                   mother        ==cbeta))
2836   (make-charset '=>>cbeta "CBETA abstract glyphs"
2837                 '(long-name     "CBETA glyphs"
2838                   chars         256
2839                   dimension     2
2840                   registry      "cbeta-0"
2841                   graphic       2
2842                   columns       2
2843                   direction     l2r
2844                   mother        =cbeta))
2845   (make-charset '=>cbeta "CBETA abstract characters"
2846                 '(long-name     "CBETA characters"
2847                   chars         256
2848                   dimension     2
2849                   registry      "cbeta-0"
2850                   graphic       2
2851                   columns       2
2852                   direction     l2r
2853                   mother        =cbeta))
2854
2855   (make-charset '=zinbun-oracle
2856                 "Oracle Bones Script"
2857                 `(long-name     "Oracle Bones Script in Zinbun, Kyoto Univ."
2858                   chars         256
2859                   dimension     2
2860                   registry      "zob1968-0"
2861                   graphic       2
2862                   min-code      #xE70000
2863                   max-code      ,(+ #xE70000 8192)
2864                   code-offset   #xE70000
2865                   columns       2
2866                   direction     l2r))
2867
2868   (make-charset '=>zinbun-oracle
2869                 "Abstract Oracle Bones"
2870                 '(long-name     "Abstract characters of Zinbun Oracle Bones."
2871                   chars         256
2872                   dimension     2
2873                   mother        =zinbun-oracle
2874                   registry      "zob1968-0"
2875                   graphic       2
2876                   columns       2
2877                   direction     l2r))
2878
2879   (make-charset '=jef-china3
2880                 "JEF + CHINA3 private characters"
2881                 '(long-name     "JEF + CHINA3"
2882                   chars         256
2883                   dimension     2
2884                   columns       2
2885                   graphic       2
2886                   direction     l2r
2887                   registry      "china3jef-0"
2888                   min-code      #xE80000
2889                   max-code      #xE8FFFF
2890                   code-offset   #xE80000))
2891   (define-charset-alias 'china3-jef '=jef-china3)
2892   (make-charset '==jef-china3
2893                 "JEF + CHINA3 abstract glyph-images."
2894                 '(long-name     "JEF + CHINA3"
2895                   chars         256
2896                   dimension     2
2897                   columns       2
2898                   graphic       2
2899                   direction     l2r
2900                   registry      "china3jef-0"
2901                   mother        =jef-china3))
2902   (make-charset '===jef-china3
2903                 "JEF + CHINA3 glyph-images."
2904                 '(long-name     "JEF-CHINA3 glyph-images"
2905                   chars         256
2906                   dimension     2
2907                   columns       2
2908                   graphic       2
2909                   direction     l2r
2910                   registry      "china3jef-0"
2911                   mother        ==jef-china3))
2912
2913   (make-charset '=ruimoku-v6
2914                 "private characters used in RUIMOKU Version.6"
2915                 `(long-name     "RUI6"
2916                   chars         256
2917                   dimension     2
2918                   columns       2
2919                   graphic       2
2920                   direction     l2r
2921                   registry      "rui6-0"
2922                   ;; mother     ucs
2923                   min-code      #xE90000 ; #xE000
2924                   max-code      #xE908FF ; #xE8FF
2925                   code-offset   ,(- #xE90000 #xE000)))
2926   (make-charset '==ruimoku-v6
2927                 "RUIMOKU Version.6 glyph-images."
2928                 '(long-name     "RUI6 glyph-images."
2929                   chars         256
2930                   dimension     2
2931                   columns       2
2932                   graphic       2
2933                   direction     l2r
2934                   registry      "rui6-0"
2935                   mother        =ruimoku-v6))
2936   (make-charset '===ruimoku-v6
2937                 "RUIMOKU Version.6 representative glyph-images."
2938                 '(long-name     "RUI6 rep-glyph-images."
2939                   chars         256
2940                   dimension     2
2941                   columns       2
2942                   graphic       2
2943                   direction     l2r
2944                   registry      "rui6-0"
2945                   mother        ==ruimoku-v6))
2946   (make-charset '=>>ruimoku-v6
2947                 "RUIMOKU Version.6 glyphs"
2948                 '(long-name     "RUI6 glyphs"
2949                   chars         256
2950                   dimension     2
2951                   columns       2
2952                   graphic       2
2953                   direction     l2r
2954                   registry      "rui6-0"
2955                   mother        =ruimoku-v6))
2956
2957   ;; (make-charset
2958   ;;  '=zihai
2959   ;;  "ZhongHua-ZiHai glyph-images"
2960   ;;  '(long-name "ZhongHua-ZiHai (pppp-nn)"
2961   ;;              chars 256
2962   ;;              dimension 3
2963   ;;              columns 2
2964   ;;              graphic 2
2965   ;;              direction l2r))
2966
2967   ;; (make-charset
2968   ;;  '=zihai-17xx
2969   ;;  "ZhongHua-ZiHai (pp.1700〜1781) glyph-images"
2970   ;;  '(long-name "ZhongHua-ZiHai pp.17xx"
2971   ;;              chars 256
2972   ;;              dimension 2
2973   ;;              columns 2
2974   ;;              graphic 2
2975   ;;              direction l2r
2976   ;;              registry "zihai\\.cp-17$"))
2977
2978   (make-charset '=big5-cdp-var-3
2979                 "Big5-CDP-var-3 glyph-images of GlyphWiki"
2980                 '(long-name     "Big5-CDP-var-3"
2981                   chars         256
2982                   dimension     2
2983                   columns       2
2984                   graphic       2
2985                   direction     l2r
2986                   registry      "cdp\\.var-3$"
2987                   mother        =big5-cdp))
2988
2989   (make-charset '=big5-cdp-var-5
2990                 "Big5-CDP-var-5 glyph-images of GlyphWiki"
2991                 '(long-name     "Big5-CDP-var-5"
2992                   chars         256
2993                   dimension     2
2994                   columns       2
2995                   graphic       2
2996                   direction     l2r
2997                   registry      "cdp\\.var-5$"
2998                   mother        =big5-cdp))
2999
3000   (make-charset '==>ucs@bucs
3001                 "Basic Subset of Coded Character Sets (BUCS)"
3002                 '(long-name     "BUCS abstract characters"
3003                   chars         256
3004                   dimension     3
3005                   columns       2
3006                   graphic       2
3007                   direction     l2r
3008                   =>iso-ir      177
3009                   mother        =ucs))
3010
3011   (make-charset '=>iwds-1
3012                 "The IRG Working Document Series 1: List of UCV of Ideograhs."
3013                 '(long-name     "IWDS 1: List of UCV"
3014                   chars         256
3015                   dimension     2
3016                   columns       2
3017                   graphic       2
3018                   direction     l2r))
3019
3020   (make-charset '=>ucs@component
3021                 "UCS encoding for abstract components of IWDS-1."
3022                 '(long-name     "UCS for IWDS-1 abstract components"
3023                   chars         256
3024                   dimension     3
3025                   columns       2
3026                   graphic       2
3027                   direction     l2r
3028                   =>iso-ir      177
3029                   mother        =ucs))
3030
3031   (make-charset '=>ucs@hanyo-denshi
3032                 "UCS abstract characters based on Han'you-Denshi collection."
3033                 '(long-name     "UCS base characters of Han'you-Denshi"
3034                   chars         256
3035                   dimension     3
3036                   columns       2
3037                   graphic       2
3038                   direction     l2r
3039                   =>iso-ir      177
3040                   mother        =ucs))
3041
3042   (make-charset '=>ucs@iso
3043                 "Abstract characters of ISO/IEC 10646 representatives"
3044                 '(long-name     "UCS characters for ISO"
3045                   chars         256
3046                   dimension     3
3047                   columns       2
3048                   graphic       2
3049                   direction     l2r
3050                   =>iso-ir      177
3051                   mother        =ucs))
3052   (make-charset '=>ucs@unicode
3053                 "Abstract characters of Unicode representatives"
3054                 '(long-name     "UCS characters for Unicode"
3055                   chars         256
3056                   dimension     3
3057                   columns       2
3058                   graphic       2
3059                   direction     l2r
3060                   =>iso-ir      177
3061                   mother        =>ucs@iso))
3062   (make-charset '=>ucs@jis
3063                 "UCS representative characters for JIS X0208/0212/0213"
3064                 '(long-name     "UCS characters for JIS"
3065                   chars         256
3066                   dimension     3
3067                   columns       2
3068                   graphic       2
3069                   direction     l2r
3070                   =>iso-ir      177
3071                   mother        =>ucs@unicode))
3072   (make-charset '=>ucs@ks
3073                 "UCS representative characters for Korean Standards"
3074                 '(long-name     "UCS characters for KS"
3075                   chars         256
3076                   dimension     3
3077                   columns       2
3078                   graphic       2
3079                   direction     l2r
3080                   =>iso-ir      177
3081                   mother        =>ucs@unicode))
3082   (make-charset '=>ucs@cns
3083                 "UCS representatives characters for CNS 11643 sources"
3084                 '(long-name     "UCS characters for CNS 11643"
3085                   chars         256
3086                   dimension     3
3087                   columns       2
3088                   graphic       2
3089                   direction     l2r
3090                   =>iso-ir      177
3091                   mother        =>ucs@unicode))
3092
3093   (make-charset '=+>ucs@iso
3094                 "UCS based on ISO/IEC 10646 representative glyphs"
3095                 '(long-name     "Unified abstract glyphs of UCS"
3096                   chars         256
3097                   dimension     3
3098                   columns       2
3099                   graphic       2
3100                   direction     l2r
3101                   =>iso-ir      177
3102                   mother        =>ucs@iso))
3103   (make-charset '=+>ucs@unicode
3104                 "Unicode representative unified abstract glyphs"
3105                 '(long-name     "UCS unified abstract glyphs for Unicode"
3106                   chars         256
3107                   dimension     3
3108                   columns       2
3109                   graphic       2
3110                   direction     l2r
3111                   =>iso-ir      177
3112                   mother        =+>ucs@iso))
3113   (make-charset '=+>ucs@jis
3114                 "UCS based on Japanese usual unification"
3115                 '(long-name     "UCS unified abstract glyphs for JP"
3116                   chars         256
3117                   dimension     3
3118                   columns       2
3119                   graphic       2
3120                   direction     l2r
3121                   =>iso-ir      177
3122                   mother        =+>ucs@unicode))
3123   (define-charset-alias '=>ucs@JP '=+>ucs@jis)
3124   (make-charset '=+>ucs@jis/1990
3125                 "UCS representative characters for JIS X0208/0212:1990"
3126                 '(long-name     "UCS characters for JIS:1990"
3127                   chars         256
3128                   dimension     3
3129                   columns       2
3130                   graphic       2
3131                   direction     l2r
3132                   =>iso-ir      177
3133                   mother        =+>ucs@jis))
3134   (define-charset-alias '=>ucs@jis/1990 '=+>ucs@jis/1990)
3135   (make-charset '=+>ucs@jis/2004
3136                 "UCS representative characters for JIS X 0213:2004"
3137                 '(long-name     "UCS characters for JIS:2004"
3138                   chars         256
3139                   dimension     3
3140                   columns       2
3141                   graphic       2
3142                   direction     l2r
3143                   =>iso-ir      177
3144                   mother        =+>ucs@jis))
3145   (make-charset '=+>ucs@ks
3146                 "UCS representative unified abstract glyphs for Korean Standards"
3147                 '(long-name     "UCS unified abstract glyphs for KS"
3148                   chars         256
3149                   dimension     3
3150                   columns       2
3151                   graphic       2
3152                   direction     l2r
3153                   =>iso-ir      177
3154                   mother        =+>ucs@unicode))
3155   (make-charset '=+>ucs@cns
3156                 "UCS representatives unified abstract glyphs for CNS 11643 sources"
3157                 '(long-name     "UCS unified abstract glyphs for CNS"
3158                   chars         256
3159                   dimension     3
3160                   columns       2
3161                   graphic       2
3162                   direction     l2r
3163                   =>iso-ir      177
3164                   mother        =+>ucs@unicode))
3165
3166   (make-charset '=ucs@iso
3167                 "ISO/IEC 10646 for its representative glyphs"
3168                 '(long-name     "UCS for ISO"
3169                   chars         256
3170                   dimension     3
3171                   columns       2
3172                   graphic       2
3173                   direction     l2r
3174                   =>iso-ir      177
3175                   mother        =+>ucs@iso
3176                   ))
3177   (make-charset '=ucs@unicode
3178                 "Unicode for its representative glyphs"
3179                 '(long-name     "UCS for Unicode"
3180                   chars         256
3181                   dimension     3
3182                   columns       2
3183                   graphic       2
3184                   direction     l2r
3185                   =>iso-ir      177
3186                   mother        =ucs@iso))
3187   (make-charset '=ucs@gb
3188                 "ISO/IEC 10646 for GB"
3189                 '(long-name     "UCS for GB"
3190                   chars         256
3191                   dimension     3
3192                   columns       2
3193                   graphic       2
3194                   direction     l2r
3195                   =>iso-ir      177
3196                   mother        =ucs@unicode))
3197   (define-charset-alias 'ucs-gb '=ucs@gb)
3198   (make-charset '=ucs@gb/fw
3199                 "ISO/IEC 10646 for GB with fullwidth"
3200                 '(long-name     "UCS for GB-fullwidth"
3201                   chars         256
3202                   dimension     3
3203                   columns       2
3204                   graphic       2
3205                   direction     l2r
3206                   =>iso-ir      177
3207                   mother        =ucs@gb))
3208   (make-charset '=ucs-bmp@gb
3209                 "ISO/IEC 10646 BMP for GB"
3210                 '(long-name     "BMP for GB"
3211                   chars         256
3212                   dimension     3
3213                   columns       2
3214                   graphic       2
3215                   direction     l2r
3216                   mother        =ucs@gb
3217                   min-code      #x0000
3218                   max-code      #xFFFF))
3219   (make-charset '=ucs@cns
3220                 "ISO/IEC 10646 for CNS 11643"
3221                 '(long-name     "UCS for CNS"
3222                   chars         256
3223                   dimension     3
3224                   columns       2
3225                   graphic       2
3226                   direction     l2r
3227                   =>iso-ir      177
3228                   mother        =ucs@unicode))
3229   (define-charset-alias 'ucs-cns '=ucs@cns)
3230   (make-charset '=ucs@cns/fw
3231                 "ISO/IEC 10646 for CNS 11643 with fullwidth"
3232                 '(long-name     "UCS for CNS-fullwidth"
3233                   chars         256
3234                   dimension     3
3235                   columns       2
3236                   graphic       2
3237                   direction     l2r
3238                   =>iso-ir      177
3239                   mother        =ucs@cns))
3240   (make-charset '=ucs-bmp@cns
3241                 "ISO/IEC 10646 BMP for CNS"
3242                 '(long-name     "BMP for CNS"
3243                   chars         256
3244                   dimension     3
3245                   columns       2
3246                   graphic       2
3247                   direction     l2r
3248                   mother        =ucs@cns
3249                   min-code      #x0000
3250                   max-code      #xFFFF))
3251   (make-charset '=ucs@jis
3252                 "ISO/IEC 10646 for JIS X0208/0212/0213"
3253                 '(long-name     "UCS for JIS"
3254                   chars         256
3255                   dimension     3
3256                   columns       2
3257                   graphic       2
3258                   direction     l2r
3259                   =>iso-ir      177
3260                   mother        =ucs@unicode))
3261   (define-charset-alias 'ucs-jis '=ucs@jis)
3262   (make-charset '=ucs@jis/fw
3263                 "ISO/IEC 10646 for JIS X0208/0212/0213 with fullwidth"
3264                 '(long-name     "UCS for JIS-fullwidth"
3265                   chars         256
3266                   dimension     3
3267                   columns       2
3268                   graphic       2
3269                   direction     l2r
3270                   =>iso-ir      177
3271                   mother        =ucs@jis))
3272   (make-charset '=ucs-bmp@jis
3273                 "ISO/IEC 10646 BMP for JIS"
3274                 '(long-name     "BMP for JIS"
3275                   chars         256
3276                   dimension     3
3277                   columns       2
3278                   graphic       2
3279                   direction     l2r
3280                   mother        =ucs@jis
3281                   min-code      #x0000
3282                   max-code      #xFFFF))
3283   ;; (make-charset '=ucs@jis/1983
3284   ;;               "ISO/IEC 10646 for JIS X 0208:1983"
3285   ;;               '(long-name     "UCS for JIS:1983"
3286   ;;                 chars         256
3287   ;;                 dimension     3
3288   ;;                 columns       2
3289   ;;                 graphic       2
3290   ;;                 direction     l2r
3291   ;;                 =>iso-ir      177
3292   ;;                 mother        =ucs@jis))
3293   (make-charset '=ucs@jis/1990
3294                 "ISO/IEC 10646 for JIS X 0208/0212:1990"
3295                 '(long-name     "UCS for JIS:1990"
3296                   chars         256
3297                   dimension     3
3298                   columns       2
3299                   graphic       2
3300                   direction     l2r
3301                   =>iso-ir      177
3302                   mother        =ucs@jis))
3303   (define-charset-alias '=ucs@jis-1990 '=ucs@jis/1990)
3304   (define-charset-alias '=ucs-jis-1990 '=ucs@jis/1990)
3305   (make-charset '=ucs@jis/2000
3306                 "ISO/IEC 10646 for JIS X 0213:2000"
3307                 '(long-name     "UCS for JIS:2000"
3308                   chars         256
3309                   dimension     3
3310                   columns       2
3311                   graphic       2
3312                   direction     l2r
3313                   =>iso-ir      177
3314                   mother        =ucs@jis))
3315   (define-charset-alias '=ucs@jis-2000 '=ucs@jis/2000)
3316   (define-charset-alias '=ucs-jis-2000 '=ucs@jis/2000)
3317   (make-charset '=ucs@jis/2004
3318                 "ISO/IEC 10646 for JIS X 0213:2004"
3319                 '(long-name     "UCS for JIS:2004"
3320                   chars         256
3321                   dimension     3
3322                   columns       2
3323                   graphic       2
3324                   direction     l2r
3325                   =>iso-ir      177
3326                   mother        =ucs@jis))
3327   (make-charset '=ucs@JP
3328                 "UCS for common glyphs used in Japan"
3329                 '(long-name     "UCS for Japan"
3330                   chars         256
3331                   dimension     3
3332                   columns       2
3333                   graphic       2
3334                   direction     l2r
3335                   =>iso-ir      177
3336                   mother        =ucs@jis/2004))
3337   (define-charset-alias '=ucs@jp '=ucs@JP)
3338   (make-charset '=ucs@JP/hanazono
3339                 "Japanese glyph-images of Hanazono Mincho"
3340                 '(long-name     "UCS for Hana-Min"
3341                   chars         256
3342                   dimension     3
3343                   columns       2
3344                   graphic       2
3345                   direction     l2r
3346                   =>iso-ir      177
3347                   mother        =ucs@JP))
3348   (make-charset '=ucs@ks
3349                 "ISO/IEC 10646 for Korean Standards"
3350                 '(long-name     "UCS for KS"
3351                   chars         256
3352                   dimension     3
3353                   columns       2
3354                   graphic       2
3355                   direction     l2r
3356                   =>iso-ir      177
3357                   mother        =ucs@unicode))
3358   (define-charset-alias 'ucs-ks '=ucs@ks)
3359   (make-charset '=ucs@ks/2012
3360                 "Mapping for Korean Standards in ISO/IEC 10646:2012"
3361                 '(long-name     "UCS:2012 for KS"
3362                   chars         256
3363                   dimension     3
3364                   columns       2
3365                   graphic       2
3366                   direction     l2r
3367                   =>iso-ir      177
3368                   mother        =ucs@ks))
3369   (make-charset '=ucs-bmp@ks
3370                 "ISO/IEC 10646 BMP for KS"
3371                 '(long-name     "BMP for KS"
3372                   chars         256
3373                   dimension     3
3374                   columns       2
3375                   graphic       2
3376                   direction     l2r
3377                   mother        =ucs@ks
3378                   min-code      #x0000
3379                   max-code      #xFFFF))
3380   (make-charset '=ucs@cns11643
3381                 "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw"
3382                 '(long-name     "UCS for CNS11643"
3383                   chars         256
3384                   dimension     3
3385                   columns       2
3386                   graphic       2
3387                   direction     l2r
3388                   =>iso-ir      177
3389                   mother        =ucs@cns))
3390   (make-charset '=ucs@big5
3391                 "ISO/IEC 10646 for Big5"
3392                 '(long-name     "UCS for Big5"
3393                   chars         256
3394                   dimension     3
3395                   columns       2
3396                   graphic       2
3397                   direction     l2r
3398                   =>iso-ir      177
3399                   mother        =ucs@cns
3400                   ;; mother     =>>ucs@cns
3401                   ))
3402   (define-charset-alias 'ucs-big5 '=ucs@big5)
3403   (make-charset '=ucs@big5/cns11643
3404                 "ISO/IEC 10646 for Big5 based on www.cns11643.gov.tw"
3405                 '(long-name     "UCS for Big5@CNS11643"
3406                   chars         256
3407                   dimension     3
3408                   columns       2
3409                   graphic       2
3410                   direction     l2r
3411                   =>iso-ir      177
3412                   mother        =ucs@big5))
3413
3414   (make-charset '=>>ucs@iso
3415                 "Representative abstract-glyphs of ISO/IEC 10646"
3416                 '(long-name     "UCS abstract glyphs for UCS"
3417                   chars         256
3418                   dimension     3
3419                   columns       2
3420                   graphic       2
3421                   direction     l2r
3422                   =>iso-ir      177
3423                   mother        =ucs@iso))
3424   (make-charset '=>>ucs@unicode
3425                 "Representative abstract-glyphs of Unicode"
3426                 '(long-name     "Unicode abstract glyphs"
3427                   chars         256
3428                   dimension     3
3429                   columns       2
3430                   graphic       2
3431                   direction     l2r
3432                   =>iso-ir      177
3433                   mother        =>>ucs@iso))
3434   (make-charset '=>>ucs@jis
3435                 "UCS Representative abstract-glyphs for JIS X0208/0212/0213"
3436                 '(long-name     "UCS abstract glyphs for JIS"
3437                   chars         256
3438                   dimension     3
3439                   columns       2
3440                   graphic       2
3441                   direction     l2r
3442                   =>iso-ir      177
3443                   mother        =>>ucs@unicode))
3444   (make-charset '=>>ucs@jis/1990
3445                 "UCS Representative glyphs for JIS X 0208/0212:1990"
3446                 '(long-name     "UCS glyphs for JIS:1990"
3447                   chars         256
3448                   dimension     3
3449                   columns       2
3450                   graphic       2
3451                   direction     l2r
3452                   =>iso-ir      177
3453                   mother        =>>ucs@jis))
3454   (make-charset '=>>ucs@jis/2000
3455                 "UCS Representative glyphs for JIS X 0213:2000"
3456                 '(long-name     "UCS glyphs for JIS:2000"
3457                   chars         256
3458                   dimension     3
3459                   columns       2
3460                   graphic       2
3461                   direction     l2r
3462                   =>iso-ir      177
3463                   mother        =>>ucs@jis))
3464   (make-charset '=>>ucs@jis/2004
3465                 "UCS Representative glyphs for JIS X 0213:2004"
3466                 '(long-name     "UCS glyphs for JIS:2004"
3467                   chars         256
3468                   dimension     3
3469                   columns       2
3470                   graphic       2
3471                   direction     l2r
3472                   =>iso-ir      177
3473                   mother        =>>ucs@jis))
3474   (make-charset '=>>ucs@JP
3475                 "UCS abstract-glyphs based on Japanese style glyphs"
3476                 '(long-name     "UCS glyphs for JP"
3477                   chars         256
3478                   dimension     3
3479                   columns       2
3480                   graphic       2
3481                   direction     l2r
3482                   =>iso-ir      177
3483                   mother        =>>ucs@jis/2004))
3484   (make-charset '=>>ucs@ks
3485                 "UCS Representative glyphs for Korean Standards"
3486                 '(long-name     "UCS glyphs for KS"
3487                   chars         256
3488                   dimension     3
3489                   columns       2
3490                   graphic       2
3491                   direction     l2r
3492                   =>iso-ir      177
3493                   mother        =>>ucs@unicode))
3494   (make-charset '=>>ucs@cns
3495                 "UCS Representative glyphs for CNS 11643 sources"
3496                 '(long-name     "UCS glyphs for CNS"
3497                   chars         256
3498                   dimension     3
3499                   columns       2
3500                   graphic       2
3501                   direction     l2r
3502                   =>iso-ir      177
3503                   mother        =>>ucs@unicode))
3504
3505   (make-charset '==ucs@iso
3506                 "Representative glyph-forms of ISO/IEC 10646."
3507                 '(long-name     "UCS glyph-forms for UCS"
3508                   chars         256
3509                   dimension     3
3510                   columns       2
3511                   graphic       2
3512                   direction     l2r
3513                   =>iso-ir      177
3514                   mother        =>>ucs@iso))
3515   (define-charset-alias '=>>>ucs@iso '==ucs@iso)
3516   (make-charset '==ucs@unicode
3517                 "Representative glyph-forms of Unicode."
3518                 '(long-name     "UCS glyph-forms for Unicode"
3519                   chars         256
3520                   dimension     3
3521                   columns       2
3522                   graphic       2
3523                   direction     l2r
3524                   =>iso-ir      177
3525                   mother        ==ucs@iso))
3526   (define-charset-alias '=>>>ucs@unicode '==ucs@unicode)
3527   (make-charset '==ucs@gb
3528                 "ISO/IEC 10646 for GB"
3529                 '(long-name     "UCS for GB"
3530                   chars         256
3531                   dimension     3
3532                   columns       2
3533                   graphic       2
3534                   direction     l2r
3535                   =>iso-ir      177
3536                   mother        ==ucs@unicode))
3537   (make-charset '==ucs-bmp@gb
3538                 "ISO/IEC 10646 BMP for GB"
3539                 '(long-name     "BMP for GB"
3540                   chars         256
3541                   dimension     3
3542                   columns       2
3543                   graphic       2
3544                   direction     l2r
3545                   mother        ==ucs@gb
3546                   min-code      #x0000
3547                   max-code      #xFFFF))
3548   (make-charset '==ucs@cns
3549                 "UCS Representative glyph-forms for CNS 11643 sources."
3550                 '(long-name     "UCS glyph-forms for CNS"
3551                   chars         256
3552                   dimension     3
3553                   columns       2
3554                   graphic       2
3555                   direction     l2r
3556                   =>iso-ir      177
3557                   mother        ==ucs@unicode))
3558   (define-charset-alias '=>>>ucs@cns '==ucs@cns)
3559   (make-charset '==ucs-bmp@cns
3560                 "ISO/IEC 10646 BMP for CNS"
3561                 '(long-name     "BMP for CNS"
3562                   chars         256
3563                   dimension     3
3564                   columns       2
3565                   graphic       2
3566                   direction     l2r
3567                   mother        ==ucs@cns
3568                   min-code      #x0000
3569                   max-code      #xFFFF))
3570   (make-charset '==ucs@jis
3571                 "UCS Representative glyph-forms for JIS X0208/0212/0213."
3572                 '(long-name     "UCS glyph-forms for JIS"
3573                   chars         256
3574                   dimension     3
3575                   columns       2
3576                   graphic       2
3577                   direction     l2r
3578                   =>iso-ir      177
3579                   mother        ==ucs@unicode))
3580   (define-charset-alias '=>>>ucs@jis '==ucs@jis)
3581   (make-charset '==ucs@jis/1990
3582                 "UCS Representative glyph-forms for JIS X 0208/0212:1990."
3583                 '(long-name     "UCS glyph-forms for JIS:1990"
3584                   chars         256
3585                   dimension     3
3586                   columns       2
3587                   graphic       2
3588                   direction     l2r
3589                   =>iso-ir      177
3590                   mother        ==ucs@jis))
3591   (define-charset-alias '=>>>ucs@jis/1990 '==ucs@jis/1990)
3592   (make-charset '==ucs@jis/2000
3593                 "UCS Representative glyph-forms for JIS X 0213:2000."
3594                 '(long-name     "UCS glyph-forms for JIS:2000"
3595                   chars         256
3596                   dimension     3
3597                   columns       2
3598                   graphic       2
3599                   direction     l2r
3600                   =>iso-ir      177
3601                   mother        ==ucs@jis))
3602   (define-charset-alias '=>>>ucs@jis/2000 '==ucs@jis/2000)
3603   (make-charset '==ucs@jis/2004
3604                 "UCS Representative glyph-forms for JIS X 0213:2004."
3605                 '(long-name     "UCS glyph-forms for JIS:2004"
3606                   chars         256
3607                   dimension     3
3608                   columns       2
3609                   graphic       2
3610                   direction     l2r
3611                   =>iso-ir      177
3612                   mother        ==ucs@jis))
3613   (define-charset-alias '=>>>ucs@jis/2004 '==ucs@jis/2004)
3614   (make-charset '==ucs@JP
3615                 "UCS for common glyph-forms used in Japan."
3616                 '(long-name     "UCS for Japan"
3617                   chars         256
3618                   dimension     3
3619                   columns       2
3620                   graphic       2
3621                   direction     l2r
3622                   =>iso-ir      177
3623                   mother        ==ucs@jis/2004))
3624   (make-charset '==ucs@JP/hanazono
3625                 "Japanese glyph-forms of Hanazono Mincho."
3626                 '(long-name     "UCS for Hana-Min"
3627                   chars         256
3628                   dimension     3
3629                   columns       2
3630                   graphic       2
3631                   direction     l2r
3632                   =>iso-ir      177
3633                   mother        ==ucs@JP))
3634   (make-charset '==ucs@ks
3635                 "UCS Representative glyph-forms for Korean Standards."
3636                 '(long-name     "UCS glyph-forms for KS"
3637                   chars         256
3638                   dimension     3
3639                   columns       2
3640                   graphic       2
3641                   direction     l2r
3642                   =>iso-ir      177
3643                   mother        ==ucs@unicode))
3644   (define-charset-alias '=>>>ucs@ks '==ucs@ks)
3645   (make-charset '==ucs-bmp@ks
3646                 "ISO/IEC 10646 BMP for KS."
3647                 '(long-name     "BMP for KS"
3648                   chars         256
3649                   dimension     3
3650                   columns       2
3651                   graphic       2
3652                   direction     l2r
3653                   mother        ==ucs@ks
3654                   min-code      #x0000
3655                   max-code      #xFFFF))
3656   (make-charset '==ucs@cns11643
3657                 "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw."
3658                 '(long-name     "UCS for CNS11643"
3659                   chars         256
3660                   dimension     3
3661                   columns       2
3662                   graphic       2
3663                   direction     l2r
3664                   =>iso-ir      177
3665                   mother        ==ucs@cns))
3666
3667   (make-charset '===ucs@iso
3668                 "ISO/IEC 10646-2 representative glyph-images."
3669                 '(long-name     "ISO rep-images for UCS"
3670                   chars         256
3671                   dimension     3
3672                   columns       2
3673                   graphic       2
3674                   direction     l2r
3675                   =>iso-ir      177
3676                   mother        ==ucs@iso))
3677   (make-charset '===ucs@unicode
3678                 "Unicode for its representative glyph-images."
3679                 '(long-name     "UCS for Unicode"
3680                   chars         256
3681                   dimension     3
3682                   columns       2
3683                   graphic       2
3684                   direction     l2r
3685                   =>iso-ir      177
3686                   mother        ==ucs@unicode))
3687   (make-charset '===ucs@gb
3688                 "UCS representative glyph-images of GB."
3689                 '(long-name     "UCS rep-images for GB"
3690                   chars         256
3691                   dimension     3
3692                   columns       2
3693                   graphic       2
3694                   direction     l2r
3695                   =>iso-ir      177
3696                   mother        ===ucs@unicode))
3697   (make-charset '===ucs@ks
3698                 "UCS representative glyph-images of Korean Standards."
3699                 '(long-name     "UCS rep-images for KS"
3700                   chars         256
3701                   dimension     3
3702                   columns       2
3703                   graphic       2
3704                   direction     l2r
3705                   =>iso-ir      177
3706                   mother        ==ucs@ks))
3707
3708   (make-charset '=ucs-var-001
3709                 "uXXXX-var-001 glyph-images of GlyphWiki"
3710                 '(long-name     "UCS-var-001"
3711                   chars         256
3712                   dimension     3
3713                   columns       2
3714                   graphic       2
3715                   direction     l2r
3716                   ;; =>iso-ir   177
3717                   mother        =ucs))
3718   (make-charset '=ucs-bmp-var-001
3719                 "uXXXX-var-001 glyph-images in BMP"
3720                 '(long-name     "UCS-BMP-var-001"
3721                   chars         256
3722                   dimension     2
3723                   columns       2
3724                   graphic       2
3725                   direction     l2r
3726                   ;; =>iso-ir   177
3727                   mother        =ucs-var-001
3728                   min-code #x2E00
3729                   max-code #x9FCC
3730                   registry "ucs\\.var001-0"))
3731   (make-charset '=ucs-var-002
3732                 "uXXXX-var-002 glyph-images of GlyphWiki"
3733                 '(long-name     "UCS-var-002"
3734                   chars         256
3735                   dimension     3
3736                   columns       2
3737                   graphic       2
3738                   direction     l2r
3739                   ;; =>iso-ir   177
3740                   mother        =ucs))
3741   (make-charset '=ucs-bmp-var-002
3742                 "uXXXX-var-002 glyph-images in BMP"
3743                 '(long-name     "UCS-BMP-var-002"
3744                   chars         256
3745                   dimension     2
3746                   columns       2
3747                   graphic       2
3748                   direction     l2r
3749                   ;; =>iso-ir   177
3750                   mother        =ucs-var-002
3751                   min-code #x2E00
3752                   max-code #x9FCC
3753                   registry "ucs\\.var002-0"))
3754   (make-charset '=ucs-var-003
3755                 "uXXXX-var-003 glyph-images of GlyphWiki"
3756                 '(long-name     "UCS-var-003"
3757                   chars         256
3758                   dimension     3
3759                   columns       2
3760                   graphic       2
3761                   direction     l2r
3762                   ;; =>iso-ir   177
3763                   mother        =ucs))
3764   (make-charset '=ucs-bmp-var-003
3765                 "uXXXX-var-003 glyph-images in BMP"
3766                 '(long-name     "UCS-BMP-var-003"
3767                   chars         256
3768                   dimension     2
3769                   columns       2
3770                   graphic       2
3771                   direction     l2r
3772                   ;; =>iso-ir   177
3773                   mother        =ucs-var-003
3774                   min-code #x2E00
3775                   max-code #x9FCC
3776                   registry "ucs\\.var003-0"))
3777   (make-charset '=ucs-itaiji-084
3778                 "uXXXX-itaiji-084 glyph-images of GlyphWiki"
3779                 '(long-name     "UCS-itaiji-084"
3780                   chars         256
3781                   dimension     3
3782                   columns       2
3783                   graphic       2
3784                   direction     l2r
3785                   ;; =>iso-ir   177
3786                   mother        =ucs))
3787   (make-charset '=ucs-bmp-itaiji-084
3788                 "uXXXX-itaiji-084 glyph-images in BMP"
3789                 '(long-name     "UCS-BMP-itaiji-084"
3790                   chars         256
3791                   dimension     2
3792                   columns       2
3793                   graphic       2
3794                   direction     l2r
3795                   ;; =>iso-ir   177
3796                   mother        =ucs-itaiji-084
3797                   min-code #x2E00
3798                   max-code #x9FCC
3799                   registry "ucs\\.itaiji084-0"))
3800
3801   (make-charset
3802    '=ucs-radicals
3803    "CJK Radicals of UCS"
3804    '(long-name "UCS-Radicals"
3805                chars 256
3806                dimension 2
3807                columns 2
3808                graphic 2
3809                direction l2r
3810                registry "-zhRadicals-.*-ucs-0"
3811                mother ucs-bmp
3812                min-code #x2E00 max-code #x2FFF))
3813   (make-charset
3814    '=ucs-radicals@unicode
3815    "CJK Radicals of UCS"
3816    '(long-name "UCS-Radicals"
3817                chars 256
3818                dimension 2
3819                columns 2
3820                graphic 2
3821                direction l2r
3822                registry "-zhRadicals-.*-ucs-0"
3823                mother =ucs@unicode
3824                min-code #x2E00 max-code #x2FFF))
3825   (make-charset
3826    '==ucs-radicals@unicode
3827    "CJK Radicals of UCS"
3828    '(long-name "UCS-Radicals"
3829                chars 256
3830                dimension 2
3831                columns 2
3832                graphic 2
3833                direction l2r
3834                registry "-zhRadicals-.*-ucs-0"
3835                mother ==ucs@unicode
3836                min-code #x2E00 max-code #x2FFF))
3837   (make-charset
3838    '=ucs-hangul
3839    "Hangul Syllables of UCS"
3840    '(long-name "UCS-Hangul-Syllables"
3841                chars 256
3842                dimension 2
3843                columns 2
3844                graphic 2
3845                direction l2r
3846                registry "-Hangul-.*-ucs-0"
3847                mother =ucs
3848                min-code #xAC00 max-code #xD7AF))
3849   (make-charset
3850    '=ucs-bmp-cjk
3851    "CJK Characters in BMP of UCS"
3852    '(long-name "UCS-BMP-CJK"
3853                chars 256
3854                dimension 2
3855                columns 2
3856                graphic 2
3857                direction l2r
3858                registry "-zh-.*-ucs-0"
3859                mother ucs-bmp
3860                min-code #x2E00
3861                max-code #x9FA5
3862                ;; max-code #x9FCC
3863                ;; max-code #xA4CF
3864                ))
3865   (make-charset
3866    '=ucs-bmp-cjk@gb
3867    "CJK Characters in BMP with GB representative glyph-images."
3868    '(long-name "CJK in BMP@GB"
3869                chars 256
3870                dimension 2
3871                columns 2
3872                graphic 2
3873                direction l2r
3874                registry "-zh-.*-ucs-0"
3875                mother =ucs@gb
3876                min-code #x2E00
3877                max-code #x9FA5
3878                ;; max-code #x9FCC
3879                ;; max-code #xA4CF
3880                ))
3881   (make-charset
3882    '==ucs-bmp-cjk@gb
3883    "CJK Characters in BMP with GB representative glyph-images."
3884    '(long-name "CJK in BMP@GB"
3885                chars 256
3886                dimension 2
3887                columns 2
3888                graphic 2
3889                direction l2r
3890                registry "-zh-.*-ucs-0"
3891                mother ==ucs@gb
3892                min-code #x2E00
3893                max-code #x9FA5
3894                ;; max-code #x9FCC
3895                ;; max-code #xA4CF
3896                ))
3897   (make-charset
3898    '===ucs-bmp-cjk@gb
3899    "CJK Characters in BMP with GB representative glyph-images."
3900    '(long-name "CJK in BMP@GB"
3901                chars 256
3902                dimension 2
3903                columns 2
3904                graphic 2
3905                direction l2r
3906                registry "-zh-.*-ucs-0"
3907                mother ===ucs@gb
3908                min-code #x2E00
3909                max-code #x9FA5
3910                ;; max-code #x9FCC
3911                ;; max-code #xA4CF
3912                ))
3913   (make-charset
3914    '=ucs-bmp-cjk@JP
3915    "CJK Characters in BMP with JIS representative glyphs"
3916    '(long-name "CJK in BMP@JP"
3917                chars 256
3918                dimension 2
3919                columns 2
3920                graphic 2
3921                direction l2r
3922                registry "-ja-.*-ucs-0"
3923                mother =ucs@JP
3924                min-code #x2E00
3925                max-code #x9FCC
3926                ;; max-code #xA4CF
3927                ))
3928   (make-charset
3929    '=ucs-bmp-cjk@JP/hanazono
3930    "CJK Characters in BMP with Hanazono font"
3931    '(long-name "CJK in BMP@JP/Hanazono"
3932                chars 256
3933                dimension 2
3934                columns 2
3935                graphic 2
3936                direction l2r
3937                registry "-ja-.*-ucs-0"
3938                mother =ucs@JP/hanazono
3939                min-code #x2E00
3940                max-code #x9FCC
3941                ;; max-code #xA4CF
3942                ))
3943   (make-charset
3944    '==ucs-bmp-cjk@JP/hanazono
3945    "CJK Characters in BMP with Hanazono font"
3946    '(long-name "CJK in BMP@JP/Hanazono"
3947                chars 256
3948                dimension 2
3949                columns 2
3950                graphic 2
3951                direction l2r
3952                registry "-ja-.*-ucs-0"
3953                mother ==ucs@JP/hanazono
3954                min-code #x2E00
3955                max-code #x9FCC
3956                ;; max-code #xA4CF
3957                ))
3958   (make-charset
3959    '=+>ucs-bmp-cjk@unicode
3960    "Unicode representative characters of CJK Unified Ideographs in BMP"
3961    '(long-name "Unicode-BMP-CJK unified abstract glyphs"
3962                chars 256
3963                dimension 2
3964                columns 2
3965                graphic 2
3966                direction l2r
3967                registry "-zh-.*-ucs-0"
3968                mother =+>ucs@unicode
3969                min-code #x2E00
3970                max-code #x9FA5
3971                ;; max-code #x9FCC
3972                ;; max-code #xA4CF
3973                ))
3974   (make-charset
3975    '=>ucs-bmp-cjk@unicode
3976    "Unicode representative characters of CJK Unified Ideographs in BMP"
3977    '(long-name "Unicode-BMP-CJK"
3978                chars 256
3979                dimension 2
3980                columns 2
3981                graphic 2
3982                direction l2r
3983                registry "-zh-.*-ucs-0"
3984                mother =>ucs@unicode
3985                min-code #x2E00
3986                max-code #x9FA5
3987                ;; max-code #x9FCC
3988                ;; max-code #xA4CF
3989                ))
3990   (make-charset
3991    '=>ucs-bmp-cjk@component
3992    "CJK Characters in BMP for IWDS-1 abstract components."
3993    '(long-name "CJK in BMP@component"
3994                chars 256
3995                dimension 2
3996                columns 2
3997                graphic 2
3998                direction l2r
3999                registry "-ja-.*-ucs-0"
4000                mother =>ucs@component
4001                min-code #x2E00
4002                max-code #x9FCC
4003                ;; max-code #xA4CF
4004                ))
4005   (make-charset
4006    '==>ucs-bmp-cjk@bucs
4007    "CJK Characters in BMP of BUCS"
4008    '(long-name "BUCS-BMP-CJK"
4009                chars 256
4010                dimension 2
4011                columns 2
4012                graphic 2
4013                direction l2r
4014                registry "-zh-.*-ucs-0"
4015                mother ==>ucs@bucs
4016                min-code #x2E00
4017                max-code #x9FA5
4018                ;; max-code #x9FCC
4019                ;; max-code #xA4CF
4020                ))
4021   (make-charset
4022    '=ucs-bmp-cjk-compat
4023    "CJK Compatibility Ideographs in BMP of UCS"
4024    '(long-name "CJK Compatibility Ideographs"
4025                chars 256
4026                dimension 2
4027                columns 2
4028                graphic 2
4029                direction l2r
4030                registry "-ja-.*-ucs-0"
4031                mother ucs-bmp
4032                min-code #xF900
4033                max-code #xFAFF
4034                ))
4035   (make-charset
4036    '=ucs-bmp-cjk-compat@unicode
4037    "CJK Compatibility Ideographs of Unicode representatives"
4038    '(long-name "CJK Compatibility Ideographs of Unicode"
4039                chars 256
4040                dimension 2
4041                columns 2
4042                graphic 2
4043                direction l2r
4044                registry "-ja-.*-ucs-0"
4045                mother =ucs@unicode
4046                min-code #xF900
4047                max-code #xFAFF
4048                ))
4049   (make-charset
4050    '=+>ucs-bmp-cjk-compat@jis
4051    "CJK Compatibility Ideographs of JIS representatives unified glyphs"
4052    '(long-name "JIS unified glyphs for CJK Compat chars"
4053                chars 256
4054                dimension 2
4055                columns 2
4056                graphic 2
4057                direction l2r
4058                registry "-ja-.*-ucs-0"
4059                mother =+>ucs@jis
4060                min-code #xF900
4061                max-code #xFAFF
4062                ))
4063   (make-charset
4064    '=ucs-sip-ext-b
4065    "CJK Ideographs Extension B"
4066    '(long-name "UCS CJK Ext-B"
4067                chars 256
4068                dimension 2
4069                columns 2
4070                graphic 2
4071                direction l2r
4072                registry "\\(iso10646\\|ucs00\\)-2$"
4073                mother ucs
4074                min-code #x20000 max-code #x2A6D6
4075                code-offset #x20000))
4076   (make-charset
4077    '=ucs-sip@iso
4078    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
4079    '(long-name "UCS CJK Ext-B"
4080                chars 256
4081                dimension 2
4082                columns 2
4083                graphic 2
4084                direction l2r
4085                registry "ucs00-2$"
4086                mother =ucs@iso
4087                min-code #x20000 max-code #x2FFFF
4088                code-offset #x20000))
4089   (make-charset
4090    '=ucs-sip-ext-b@iso
4091    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
4092    '(long-name "UCS CJK Ext-B"
4093                chars 256
4094                dimension 2
4095                columns 2
4096                graphic 2
4097                direction l2r
4098                registry "\\(iso10646\\|ucs00\\)-2$"
4099                mother =ucs@iso
4100                min-code #x20000 max-code #x2A6D6
4101                code-offset #x20000))
4102   (make-charset
4103    '==ucs-sip@iso
4104    "ISO representative abstract-glyph-images of ISO/IEC 10646 Plane 2"
4105    '(long-name "SIP abstract glyph-images"
4106                chars 256
4107                dimension 2
4108                columns 2
4109                graphic 2
4110                direction l2r
4111                registry "\\(ucs00\\)-2$"
4112                mother ==ucs@iso
4113                code-offset #x20000))
4114   (make-charset
4115    '==ucs-sip-ext-b@iso
4116    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
4117    '(long-name "UCS CJK Ext-B"
4118                chars 256
4119                dimension 2
4120                columns 2
4121                graphic 2
4122                direction l2r
4123                registry "\\(iso10646\\|ucs00\\)-2$"
4124                mother ==ucs@iso
4125                min-code #x20000 max-code #x2A6D6
4126                code-offset #x20000))
4127   (make-charset
4128    '===ucs-sip@iso
4129    "ISO representative glyph-images of ISO/IEC 10646 Plane 2"
4130    '(long-name "SIP rep-glyph-images"
4131                chars 256
4132                dimension 2
4133                columns 2
4134                graphic 2
4135                direction l2r
4136                registry "\\(ucs00\\)-2$"
4137                mother ===ucs@iso
4138                code-offset #x20000))
4139   (make-charset
4140    '===ucs-sip-ext-b@iso
4141    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
4142    '(long-name "UCS CJK Ext-B"
4143                chars 256
4144                dimension 2
4145                columns 2
4146                graphic 2
4147                direction l2r
4148                registry "\\(iso10646\\|ucs00\\)-2$"
4149                mother ===ucs@iso
4150                min-code #x20000 max-code #x2A6D6
4151                code-offset #x20000))
4152   )
4153
4154 ;;; mule-conf.el ends here