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