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   (make-charset '=>cbeta "CBETA abstract characters"
2721                 '(long-name     "CBETA characters"
2722                   chars         256
2723                   dimension     2
2724                   registry      "cbeta-0"
2725                   graphic       2
2726                   columns       2
2727                   direction     l2r
2728                   mother        =cbeta))
2729
2730   (make-charset '=zinbun-oracle
2731                 "Oracle Bones Script"
2732                 `(long-name     "Oracle Bones Script in Zinbun, Kyoto Univ."
2733                   chars         256
2734                   dimension     2
2735                   registry      "zob1968-0"
2736                   graphic       2
2737                   min-code      #xE70000
2738                   max-code      ,(+ #xE70000 8192)
2739                   code-offset   #xE70000
2740                   columns       2
2741                   direction     l2r))
2742
2743   (make-charset '=>zinbun-oracle
2744                 "Abstract Oracle Bones"
2745                 '(long-name     "Abstract characters of Zinbun Oracle Bones."
2746                   chars         256
2747                   dimension     2
2748                   mother        =zinbun-oracle
2749                   registry      "zob1968-0"
2750                   graphic       2
2751                   columns       2
2752                   direction     l2r))
2753
2754   (make-charset '=jef-china3
2755                 "JEF + CHINA3 private characters"
2756                 '(long-name     "JEF + CHINA3"
2757                   chars         256
2758                   dimension     2
2759                   columns       2
2760                   graphic       2
2761                   direction     l2r
2762                   registry      "china3jef-0"
2763                   min-code      #xE80000
2764                   max-code      #xE8FFFF
2765                   code-offset   #xE80000))
2766   (define-charset-alias 'china3-jef '=jef-china3)
2767   (make-charset '==jef-china3
2768                 "JEF + CHINA3 abstract glyph-images."
2769                 '(long-name     "JEF + CHINA3"
2770                   chars         256
2771                   dimension     2
2772                   columns       2
2773                   graphic       2
2774                   direction     l2r
2775                   registry      "china3jef-0"
2776                   mother        =jef-china3))
2777   (make-charset '===jef-china3
2778                 "JEF + CHINA3 glyph-images."
2779                 '(long-name     "JEF-CHINA3 glyph-images"
2780                   chars         256
2781                   dimension     2
2782                   columns       2
2783                   graphic       2
2784                   direction     l2r
2785                   registry      "china3jef-0"
2786                   mother        ==jef-china3))
2787
2788   (make-charset '=ruimoku-v6
2789                 "private characters used in RUIMOKU Version.6"
2790                 `(long-name     "RUI6"
2791                   chars         256
2792                   dimension     2
2793                   columns       2
2794                   graphic       2
2795                   direction     l2r
2796                   registry      "rui6-0"
2797                   ;; mother     ucs
2798                   min-code      #xE90000 ; #xE000
2799                   max-code      #xE908FF ; #xE8FF
2800                   code-offset   ,(- #xE90000 #xE000)))
2801   (make-charset '==ruimoku-v6
2802                 "RUIMOKU Version.6 glyph-images."
2803                 '(long-name     "RUI6 glyph-images."
2804                   chars         256
2805                   dimension     2
2806                   columns       2
2807                   graphic       2
2808                   direction     l2r
2809                   registry      "rui6-0"
2810                   mother        =ruimoku-v6))
2811   (make-charset '=>>ruimoku-v6
2812                 "RUIMOKU Version.6 glyphs"
2813                 '(long-name     "RUI6 glyphs"
2814                   chars         256
2815                   dimension     2
2816                   columns       2
2817                   graphic       2
2818                   direction     l2r
2819                   registry      "rui6-0"
2820                   mother        =ruimoku-v6))
2821
2822   ;; (make-charset
2823   ;;  '=zihai
2824   ;;  "ZhongHua-ZiHai glyph-images"
2825   ;;  '(long-name "ZhongHua-ZiHai (pppp-nn)"
2826   ;;              chars 256
2827   ;;              dimension 3
2828   ;;              columns 2
2829   ;;              graphic 2
2830   ;;              direction l2r))
2831
2832   ;; (make-charset
2833   ;;  '=zihai-17xx
2834   ;;  "ZhongHua-ZiHai (pp.1700\e$B!A\e(B1781) glyph-images"
2835   ;;  '(long-name "ZhongHua-ZiHai pp.17xx"
2836   ;;              chars 256
2837   ;;              dimension 2
2838   ;;              columns 2
2839   ;;              graphic 2
2840   ;;              direction l2r
2841   ;;              registry "zihai\\.cp-17$"))
2842
2843   (make-charset '=big5-cdp-var-3
2844                 "Big5-CDP-var-3 glyph-images of GlyphWiki"
2845                 '(long-name     "Big5-CDP-var-3"
2846                   chars         256
2847                   dimension     2
2848                   columns       2
2849                   graphic       2
2850                   direction     l2r
2851                   registry      "cdp\\.var-3$"
2852                   mother        =big5-cdp))
2853
2854   (make-charset '=big5-cdp-var-5
2855                 "Big5-CDP-var-5 glyph-images of GlyphWiki"
2856                 '(long-name     "Big5-CDP-var-5"
2857                   chars         256
2858                   dimension     2
2859                   columns       2
2860                   graphic       2
2861                   direction     l2r
2862                   registry      "cdp\\.var-5$"
2863                   mother        =big5-cdp))
2864
2865   (make-charset '==>ucs@bucs
2866                 "Basic Subset of Coded Character Sets (BUCS)"
2867                 '(long-name     "BUCS abstract characters"
2868                   chars         256
2869                   dimension     3
2870                   columns       2
2871                   graphic       2
2872                   direction     l2r
2873                   =>iso-ir      177
2874                   mother        =ucs))
2875
2876   (make-charset '=>ucs@hanyo-denshi
2877                 "UCS abstract characters based on Han'you-Denshi collection."
2878                 '(long-name     "UCS base characters of Han'you-Denshi"
2879                   chars         256
2880                   dimension     3
2881                   columns       2
2882                   graphic       2
2883                   direction     l2r
2884                   =>iso-ir      177
2885                   mother        =ucs))
2886
2887   (make-charset '=>ucs@iso
2888                 "Abstract characters of ISO/IEC 10646 representatives"
2889                 '(long-name     "UCS characters for ISO"
2890                   chars         256
2891                   dimension     3
2892                   columns       2
2893                   graphic       2
2894                   direction     l2r
2895                   =>iso-ir      177
2896                   mother        =ucs))
2897   (make-charset '=>ucs@unicode
2898                 "Abstract characters of Unicode representatives"
2899                 '(long-name     "UCS characters for Unicode"
2900                   chars         256
2901                   dimension     3
2902                   columns       2
2903                   graphic       2
2904                   direction     l2r
2905                   =>iso-ir      177
2906                   mother        =>ucs@iso))
2907   (make-charset '=>ucs@jis
2908                 "UCS representative characters for JIS X0208/0212/0213"
2909                 '(long-name     "UCS characters for JIS"
2910                   chars         256
2911                   dimension     3
2912                   columns       2
2913                   graphic       2
2914                   direction     l2r
2915                   =>iso-ir      177
2916                   mother        =>ucs@unicode))
2917   (make-charset '=>ucs@ks
2918                 "UCS representative characters for Korean Standards"
2919                 '(long-name     "UCS characters for KS"
2920                   chars         256
2921                   dimension     3
2922                   columns       2
2923                   graphic       2
2924                   direction     l2r
2925                   =>iso-ir      177
2926                   mother        =>ucs@unicode))
2927   (make-charset '=>ucs@cns
2928                 "UCS representatives characters for CNS 11643 sources"
2929                 '(long-name     "UCS characters for CNS 11643"
2930                   chars         256
2931                   dimension     3
2932                   columns       2
2933                   graphic       2
2934                   direction     l2r
2935                   =>iso-ir      177
2936                   mother        =>ucs@unicode))
2937
2938   (make-charset '=+>ucs@iso
2939                 "UCS based on ISO/IEC 10646 representative glyphs"
2940                 '(long-name     "Unified abstract glyphs of UCS"
2941                   chars         256
2942                   dimension     3
2943                   columns       2
2944                   graphic       2
2945                   direction     l2r
2946                   =>iso-ir      177
2947                   mother        =>ucs@iso))
2948   (make-charset '=+>ucs@unicode
2949                 "Unicode representative unified abstract glyphs"
2950                 '(long-name     "UCS unified abstract glyphs for Unicode"
2951                   chars         256
2952                   dimension     3
2953                   columns       2
2954                   graphic       2
2955                   direction     l2r
2956                   =>iso-ir      177
2957                   mother        =+>ucs@iso))
2958   (make-charset '=+>ucs@jis
2959                 "UCS based on Japanese usual unification"
2960                 '(long-name     "UCS unified abstract glyphs for JP"
2961                   chars         256
2962                   dimension     3
2963                   columns       2
2964                   graphic       2
2965                   direction     l2r
2966                   =>iso-ir      177
2967                   mother        =+>ucs@unicode))
2968   (define-charset-alias '=>ucs@JP '=+>ucs@jis)
2969   (make-charset '=+>ucs@jis/1990
2970                 "UCS representative characters for JIS X0208/0212:1990"
2971                 '(long-name     "UCS characters for JIS:1990"
2972                   chars         256
2973                   dimension     3
2974                   columns       2
2975                   graphic       2
2976                   direction     l2r
2977                   =>iso-ir      177
2978                   mother        =+>ucs@jis))
2979   (define-charset-alias '=>ucs@jis/1990 '=+>ucs@jis/1990)
2980   (make-charset '=+>ucs@jis/2004
2981                 "UCS representative characters for JIS X 0213:2004"
2982                 '(long-name     "UCS characters for JIS:2004"
2983                   chars         256
2984                   dimension     3
2985                   columns       2
2986                   graphic       2
2987                   direction     l2r
2988                   =>iso-ir      177
2989                   mother        =+>ucs@jis))
2990   (make-charset '=+>ucs@ks
2991                 "UCS representative unified abstract glyphs for Korean Standards"
2992                 '(long-name     "UCS unified abstract glyphs for KS"
2993                   chars         256
2994                   dimension     3
2995                   columns       2
2996                   graphic       2
2997                   direction     l2r
2998                   =>iso-ir      177
2999                   mother        =+>ucs@unicode))
3000   (make-charset '=+>ucs@cns
3001                 "UCS representatives unified abstract glyphs for CNS 11643 sources"
3002                 '(long-name     "UCS unified abstract glyphs for CNS"
3003                   chars         256
3004                   dimension     3
3005                   columns       2
3006                   graphic       2
3007                   direction     l2r
3008                   =>iso-ir      177
3009                   mother        =+>ucs@unicode))
3010
3011   (make-charset '=>>ucs@iso
3012                 "Representative abstract-glyphs of ISO/IEC 10646"
3013                 '(long-name     "UCS abstract glyphs for UCS"
3014                   chars         256
3015                   dimension     3
3016                   columns       2
3017                   graphic       2
3018                   direction     l2r
3019                   =>iso-ir      177
3020                   mother        =+>ucs@iso))
3021   (make-charset '=>>ucs@unicode
3022                 "Representative abstract-glyphs of Unicode"
3023                 '(long-name     "Unicode abstract glyphs"
3024                   chars         256
3025                   dimension     3
3026                   columns       2
3027                   graphic       2
3028                   direction     l2r
3029                   =>iso-ir      177
3030                   mother        =>>ucs@iso))
3031   (make-charset '=>>ucs@jis
3032                 "UCS Representative abstract-glyphs for JIS X0208/0212/0213"
3033                 '(long-name     "UCS abstract glyphs for JIS"
3034                   chars         256
3035                   dimension     3
3036                   columns       2
3037                   graphic       2
3038                   direction     l2r
3039                   =>iso-ir      177
3040                   mother        =>>ucs@unicode))
3041   (make-charset '=>>ucs@jis/1990
3042                 "UCS Representative glyphs for JIS X 0208/0212:1990"
3043                 '(long-name     "UCS glyphs for JIS:1990"
3044                   chars         256
3045                   dimension     3
3046                   columns       2
3047                   graphic       2
3048                   direction     l2r
3049                   =>iso-ir      177
3050                   mother        =>>ucs@jis))
3051   (make-charset '=>>ucs@jis/2000
3052                 "UCS Representative glyphs for JIS X 0213:2000"
3053                 '(long-name     "UCS glyphs for JIS:2000"
3054                   chars         256
3055                   dimension     3
3056                   columns       2
3057                   graphic       2
3058                   direction     l2r
3059                   =>iso-ir      177
3060                   mother        =>>ucs@jis))
3061   (make-charset '=>>ucs@jis/2004
3062                 "UCS Representative glyphs for JIS X 0213:2004"
3063                 '(long-name     "UCS glyphs for JIS:2004"
3064                   chars         256
3065                   dimension     3
3066                   columns       2
3067                   graphic       2
3068                   direction     l2r
3069                   =>iso-ir      177
3070                   mother        =>>ucs@jis))
3071   (make-charset '=>>ucs@JP
3072                 "UCS abstract-glyphs based on Japanese style glyphs"
3073                 '(long-name     "UCS glyphs for JP"
3074                   chars         256
3075                   dimension     3
3076                   columns       2
3077                   graphic       2
3078                   direction     l2r
3079                   =>iso-ir      177
3080                   mother        =>>ucs@jis/2004))
3081   (make-charset '=>>ucs@ks
3082                 "UCS Representative glyphs for Korean Standards"
3083                 '(long-name     "UCS glyphs for KS"
3084                   chars         256
3085                   dimension     3
3086                   columns       2
3087                   graphic       2
3088                   direction     l2r
3089                   =>iso-ir      177
3090                   mother        =>>ucs@unicode))
3091   (make-charset '=>>ucs@cns
3092                 "UCS Representative glyphs for CNS 11643 sources"
3093                 '(long-name     "UCS glyphs for CNS"
3094                   chars         256
3095                   dimension     3
3096                   columns       2
3097                   graphic       2
3098                   direction     l2r
3099                   =>iso-ir      177
3100                   mother        =>>ucs@unicode))
3101
3102   (make-charset '=ucs@iso
3103                 "ISO/IEC 10646 for its representative glyphs"
3104                 '(long-name     "UCS for ISO"
3105                   chars         256
3106                   dimension     3
3107                   columns       2
3108                   graphic       2
3109                   direction     l2r
3110                   =>iso-ir      177
3111                   mother        =>>ucs@iso
3112                   ))
3113   (make-charset '=ucs@unicode
3114                 "Unicode for its representative glyphs"
3115                 '(long-name     "UCS for Unicode"
3116                   chars         256
3117                   dimension     3
3118                   columns       2
3119                   graphic       2
3120                   direction     l2r
3121                   =>iso-ir      177
3122                   mother        =ucs@iso))
3123   (make-charset '=ucs@gb
3124                 "ISO/IEC 10646 for GB"
3125                 '(long-name     "UCS for GB"
3126                   chars         256
3127                   dimension     3
3128                   columns       2
3129                   graphic       2
3130                   direction     l2r
3131                   =>iso-ir      177
3132                   mother        =ucs@unicode))
3133   (define-charset-alias 'ucs-gb '=ucs@gb)
3134   (make-charset '=ucs@gb/fw
3135                 "ISO/IEC 10646 for GB with fullwidth"
3136                 '(long-name     "UCS for GB-fullwidth"
3137                   chars         256
3138                   dimension     3
3139                   columns       2
3140                   graphic       2
3141                   direction     l2r
3142                   =>iso-ir      177
3143                   mother        =ucs@gb))
3144   (make-charset '=ucs-bmp@gb
3145                 "ISO/IEC 10646 BMP for GB"
3146                 '(long-name     "BMP for GB"
3147                   chars         256
3148                   dimension     3
3149                   columns       2
3150                   graphic       2
3151                   direction     l2r
3152                   mother        =ucs@gb
3153                   min-code      #x0000
3154                   max-code      #xFFFF))
3155   (make-charset '=ucs@cns
3156                 "ISO/IEC 10646 for CNS 11643"
3157                 '(long-name     "UCS for CNS"
3158                   chars         256
3159                   dimension     3
3160                   columns       2
3161                   graphic       2
3162                   direction     l2r
3163                   =>iso-ir      177
3164                   mother        =ucs@unicode))
3165   (define-charset-alias 'ucs-cns '=ucs@cns)
3166   (make-charset '=ucs@cns/fw
3167                 "ISO/IEC 10646 for CNS 11643 with fullwidth"
3168                 '(long-name     "UCS for CNS-fullwidth"
3169                   chars         256
3170                   dimension     3
3171                   columns       2
3172                   graphic       2
3173                   direction     l2r
3174                   =>iso-ir      177
3175                   mother        =ucs@cns))
3176   (make-charset '=ucs-bmp@cns
3177                 "ISO/IEC 10646 BMP for CNS"
3178                 '(long-name     "BMP for CNS"
3179                   chars         256
3180                   dimension     3
3181                   columns       2
3182                   graphic       2
3183                   direction     l2r
3184                   mother        =ucs@cns
3185                   min-code      #x0000
3186                   max-code      #xFFFF))
3187   (make-charset '=ucs@jis
3188                 "ISO/IEC 10646 for JIS X0208/0212/0213"
3189                 '(long-name     "UCS for JIS"
3190                   chars         256
3191                   dimension     3
3192                   columns       2
3193                   graphic       2
3194                   direction     l2r
3195                   =>iso-ir      177
3196                   mother        =ucs@unicode))
3197   (define-charset-alias 'ucs-jis '=ucs@jis)
3198   (make-charset '=ucs@jis/fw
3199                 "ISO/IEC 10646 for JIS X0208/0212/0213 with fullwidth"
3200                 '(long-name     "UCS for JIS-fullwidth"
3201                   chars         256
3202                   dimension     3
3203                   columns       2
3204                   graphic       2
3205                   direction     l2r
3206                   =>iso-ir      177
3207                   mother        =ucs@jis))
3208   (make-charset '=ucs-bmp@jis
3209                 "ISO/IEC 10646 BMP for JIS"
3210                 '(long-name     "BMP for JIS"
3211                   chars         256
3212                   dimension     3
3213                   columns       2
3214                   graphic       2
3215                   direction     l2r
3216                   mother        =ucs@jis
3217                   min-code      #x0000
3218                   max-code      #xFFFF))
3219   ;; (make-charset '=ucs@jis/1983
3220   ;;               "ISO/IEC 10646 for JIS X 0208:1983"
3221   ;;               '(long-name     "UCS for JIS:1983"
3222   ;;                 chars         256
3223   ;;                 dimension     3
3224   ;;                 columns       2
3225   ;;                 graphic       2
3226   ;;                 direction     l2r
3227   ;;                 =>iso-ir      177
3228   ;;                 mother        =ucs@jis))
3229   (make-charset '=ucs@jis/1990
3230                 "ISO/IEC 10646 for JIS X 0208/0212:1990"
3231                 '(long-name     "UCS for JIS:1990"
3232                   chars         256
3233                   dimension     3
3234                   columns       2
3235                   graphic       2
3236                   direction     l2r
3237                   =>iso-ir      177
3238                   mother        =ucs@jis))
3239   (define-charset-alias '=ucs@jis-1990 '=ucs@jis/1990)
3240   (define-charset-alias '=ucs-jis-1990 '=ucs@jis/1990)
3241   (make-charset '=ucs@jis/2000
3242                 "ISO/IEC 10646 for JIS X 0213:2000"
3243                 '(long-name     "UCS for JIS:2000"
3244                   chars         256
3245                   dimension     3
3246                   columns       2
3247                   graphic       2
3248                   direction     l2r
3249                   =>iso-ir      177
3250                   mother        =ucs@jis))
3251   (define-charset-alias '=ucs@jis-2000 '=ucs@jis/2000)
3252   (define-charset-alias '=ucs-jis-2000 '=ucs@jis/2000)
3253   (make-charset '=ucs@jis/2004
3254                 "ISO/IEC 10646 for JIS X 0213:2004"
3255                 '(long-name     "UCS for JIS:2004"
3256                   chars         256
3257                   dimension     3
3258                   columns       2
3259                   graphic       2
3260                   direction     l2r
3261                   =>iso-ir      177
3262                   mother        =ucs@jis))
3263   (make-charset '=ucs@JP
3264                 "UCS for common glyphs used in Japan"
3265                 '(long-name     "UCS for Japan"
3266                   chars         256
3267                   dimension     3
3268                   columns       2
3269                   graphic       2
3270                   direction     l2r
3271                   =>iso-ir      177
3272                   mother        =ucs@jis/2004))
3273   (define-charset-alias '=ucs@jp '=ucs@JP)
3274   (make-charset '=ucs@JP/hanazono
3275                 "Japanese glyph-images of Hanazono Mincho"
3276                 '(long-name     "UCS for Hana-Min"
3277                   chars         256
3278                   dimension     3
3279                   columns       2
3280                   graphic       2
3281                   direction     l2r
3282                   =>iso-ir      177
3283                   mother        =ucs@JP))
3284   (make-charset '=ucs@ks
3285                 "ISO/IEC 10646 for Korean Standards"
3286                 '(long-name     "UCS for KS"
3287                   chars         256
3288                   dimension     3
3289                   columns       2
3290                   graphic       2
3291                   direction     l2r
3292                   =>iso-ir      177
3293                   mother        =ucs@unicode))
3294   (define-charset-alias 'ucs-ks '=ucs@ks)
3295   (make-charset '=ucs@ks/2012
3296                 "Mapping for Korean Standards in ISO/IEC 10646:2012"
3297                 '(long-name     "UCS:2012 for KS"
3298                   chars         256
3299                   dimension     3
3300                   columns       2
3301                   graphic       2
3302                   direction     l2r
3303                   =>iso-ir      177
3304                   mother        =ucs@ks))
3305   (make-charset '=ucs-bmp@ks
3306                 "ISO/IEC 10646 BMP for KS"
3307                 '(long-name     "BMP for KS"
3308                   chars         256
3309                   dimension     3
3310                   columns       2
3311                   graphic       2
3312                   direction     l2r
3313                   mother        =ucs@ks
3314                   min-code      #x0000
3315                   max-code      #xFFFF))
3316   (make-charset '=ucs@cns11643
3317                 "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw"
3318                 '(long-name     "UCS for CNS11643"
3319                   chars         256
3320                   dimension     3
3321                   columns       2
3322                   graphic       2
3323                   direction     l2r
3324                   =>iso-ir      177
3325                   mother        =ucs@cns))
3326   (make-charset '=ucs@big5
3327                 "ISO/IEC 10646 for Big5"
3328                 '(long-name     "UCS for Big5"
3329                   chars         256
3330                   dimension     3
3331                   columns       2
3332                   graphic       2
3333                   direction     l2r
3334                   =>iso-ir      177
3335                   mother        =ucs@cns
3336                   ;; mother     =>>ucs@cns
3337                   ))
3338   (define-charset-alias 'ucs-big5 '=ucs@big5)
3339   (make-charset '=ucs@big5/cns11643
3340                 "ISO/IEC 10646 for Big5 based on www.cns11643.gov.tw"
3341                 '(long-name     "UCS for Big5@CNS11643"
3342                   chars         256
3343                   dimension     3
3344                   columns       2
3345                   graphic       2
3346                   direction     l2r
3347                   =>iso-ir      177
3348                   mother        =ucs@big5))
3349
3350   (make-charset '==ucs@iso
3351                 "Representative glyph-forms of ISO/IEC 10646."
3352                 '(long-name     "UCS glyph-forms for UCS"
3353                   chars         256
3354                   dimension     3
3355                   columns       2
3356                   graphic       2
3357                   direction     l2r
3358                   =>iso-ir      177
3359                   mother        =>>ucs@iso))
3360   (define-charset-alias '=>>>ucs@iso '==ucs@iso)
3361   (make-charset '==ucs@unicode
3362                 "Representative glyph-forms of Unicode."
3363                 '(long-name     "UCS glyph-forms for Unicode"
3364                   chars         256
3365                   dimension     3
3366                   columns       2
3367                   graphic       2
3368                   direction     l2r
3369                   =>iso-ir      177
3370                   mother        ==ucs@iso))
3371   (define-charset-alias '=>>>ucs@unicode '==ucs@unicode)
3372   (make-charset '==ucs@gb
3373                 "ISO/IEC 10646 for GB"
3374                 '(long-name     "UCS for GB"
3375                   chars         256
3376                   dimension     3
3377                   columns       2
3378                   graphic       2
3379                   direction     l2r
3380                   =>iso-ir      177
3381                   mother        ==ucs@unicode))
3382   (make-charset '==ucs-bmp@gb
3383                 "ISO/IEC 10646 BMP for GB"
3384                 '(long-name     "BMP for GB"
3385                   chars         256
3386                   dimension     3
3387                   columns       2
3388                   graphic       2
3389                   direction     l2r
3390                   mother        ==ucs@gb
3391                   min-code      #x0000
3392                   max-code      #xFFFF))
3393   (make-charset '==ucs@cns
3394                 "UCS Representative glyph-forms for CNS 11643 sources."
3395                 '(long-name     "UCS glyph-forms for CNS"
3396                   chars         256
3397                   dimension     3
3398                   columns       2
3399                   graphic       2
3400                   direction     l2r
3401                   =>iso-ir      177
3402                   mother        ==ucs@unicode))
3403   (define-charset-alias '=>>>ucs@cns '==ucs@cns)
3404   (make-charset '==ucs-bmp@cns
3405                 "ISO/IEC 10646 BMP for CNS"
3406                 '(long-name     "BMP for CNS"
3407                   chars         256
3408                   dimension     3
3409                   columns       2
3410                   graphic       2
3411                   direction     l2r
3412                   mother        ==ucs@cns
3413                   min-code      #x0000
3414                   max-code      #xFFFF))
3415   (make-charset '==ucs@jis
3416                 "UCS Representative glyph-forms for JIS X0208/0212/0213."
3417                 '(long-name     "UCS glyph-forms for JIS"
3418                   chars         256
3419                   dimension     3
3420                   columns       2
3421                   graphic       2
3422                   direction     l2r
3423                   =>iso-ir      177
3424                   mother        ==ucs@unicode))
3425   (define-charset-alias '=>>>ucs@jis '==ucs@jis)
3426   (make-charset '==ucs@jis/1990
3427                 "UCS Representative glyph-forms for JIS X 0208/0212:1990."
3428                 '(long-name     "UCS glyph-forms for JIS:1990"
3429                   chars         256
3430                   dimension     3
3431                   columns       2
3432                   graphic       2
3433                   direction     l2r
3434                   =>iso-ir      177
3435                   mother        ==ucs@jis))
3436   (define-charset-alias '=>>>ucs@jis/1990 '==ucs@jis/1990)
3437   (make-charset '==ucs@jis/2000
3438                 "UCS Representative glyph-forms for JIS X 0213:2000."
3439                 '(long-name     "UCS glyph-forms for JIS:2000"
3440                   chars         256
3441                   dimension     3
3442                   columns       2
3443                   graphic       2
3444                   direction     l2r
3445                   =>iso-ir      177
3446                   mother        ==ucs@jis))
3447   (define-charset-alias '=>>>ucs@jis/2000 '==ucs@jis/2000)
3448   (make-charset '==ucs@jis/2004
3449                 "UCS Representative glyph-forms for JIS X 0213:2004."
3450                 '(long-name     "UCS glyph-forms for JIS:2004"
3451                   chars         256
3452                   dimension     3
3453                   columns       2
3454                   graphic       2
3455                   direction     l2r
3456                   =>iso-ir      177
3457                   mother        ==ucs@jis))
3458   (define-charset-alias '=>>>ucs@jis/2004 '==ucs@jis/2004)
3459   (make-charset '==ucs@JP
3460                 "UCS for common glyph-forms used in Japan."
3461                 '(long-name     "UCS for Japan"
3462                   chars         256
3463                   dimension     3
3464                   columns       2
3465                   graphic       2
3466                   direction     l2r
3467                   =>iso-ir      177
3468                   mother        ==ucs@jis/2004))
3469   (make-charset '==ucs@JP/hanazono
3470                 "Japanese glyph-forms of Hanazono Mincho."
3471                 '(long-name     "UCS for Hana-Min"
3472                   chars         256
3473                   dimension     3
3474                   columns       2
3475                   graphic       2
3476                   direction     l2r
3477                   =>iso-ir      177
3478                   mother        ==ucs@JP))
3479   (make-charset '==ucs@ks
3480                 "UCS Representative glyph-forms for Korean Standards."
3481                 '(long-name     "UCS glyph-forms for KS"
3482                   chars         256
3483                   dimension     3
3484                   columns       2
3485                   graphic       2
3486                   direction     l2r
3487                   =>iso-ir      177
3488                   mother        ==ucs@unicode))
3489   (define-charset-alias '=>>>ucs@ks '==ucs@ks)
3490   (make-charset '==ucs-bmp@ks
3491                 "ISO/IEC 10646 BMP for KS."
3492                 '(long-name     "BMP for KS"
3493                   chars         256
3494                   dimension     3
3495                   columns       2
3496                   graphic       2
3497                   direction     l2r
3498                   mother        ==ucs@ks
3499                   min-code      #x0000
3500                   max-code      #xFFFF))
3501   (make-charset '==ucs@cns11643
3502                 "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw."
3503                 '(long-name     "UCS for CNS11643"
3504                   chars         256
3505                   dimension     3
3506                   columns       2
3507                   graphic       2
3508                   direction     l2r
3509                   =>iso-ir      177
3510                   mother        ==ucs@cns))
3511
3512   (make-charset '===ucs@iso
3513                 "ISO/IEC 10646-2 representative glyph-images."
3514                 '(long-name     "ISO rep-images for UCS"
3515                   chars         256
3516                   dimension     3
3517                   columns       2
3518                   graphic       2
3519                   direction     l2r
3520                   =>iso-ir      177
3521                   mother        ==ucs@iso))
3522   (make-charset '===ucs@unicode
3523                 "Unicode for its representative glyph-images."
3524                 '(long-name     "UCS for Unicode"
3525                   chars         256
3526                   dimension     3
3527                   columns       2
3528                   graphic       2
3529                   direction     l2r
3530                   =>iso-ir      177
3531                   mother        ===ucs@iso))
3532   (make-charset '===ucs@gb
3533                 "UCS representative glyph-images of GB."
3534                 '(long-name     "UCS rep-images for GB"
3535                   chars         256
3536                   dimension     3
3537                   columns       2
3538                   graphic       2
3539                   direction     l2r
3540                   =>iso-ir      177
3541                   mother        ===ucs@unicode))
3542   (make-charset '===ucs@ks
3543                 "UCS representative glyph-images of Korean Standards."
3544                 '(long-name     "UCS rep-images for KS"
3545                   chars         256
3546                   dimension     3
3547                   columns       2
3548                   graphic       2
3549                   direction     l2r
3550                   =>iso-ir      177
3551                   mother        ===ucs@unicode))
3552
3553   (make-charset '=ucs-itaiji-084
3554                 "uXXXX-itaiji-084 glyph-images of GlyphWiki"
3555                 '(long-name     "UCS-itaiji-084"
3556                   chars         256
3557                   dimension     3
3558                   columns       2
3559                   graphic       2
3560                   direction     l2r
3561                   ;; =>iso-ir   177
3562                   mother        =ucs))
3563   (make-charset '=ucs-bmp-itaiji-084
3564                 "uXXXX-itaiji-084 glyph-images in BMP"
3565                 '(long-name     "UCS-BMP-itaiji-084"
3566                   chars         256
3567                   dimension     2
3568                   columns       2
3569                   graphic       2
3570                   direction     l2r
3571                   ;; =>iso-ir   177
3572                   mother        =ucs-itaiji-084
3573                   min-code #x2E00
3574                   max-code #x9FA5
3575                   registry "ucs\\.itaiji084-0"))
3576
3577   (make-charset
3578    '=ucs-radicals
3579    "CJK Radicals of UCS"
3580    '(long-name "UCS-Radicals"
3581                chars 256
3582                dimension 2
3583                columns 2
3584                graphic 2
3585                direction l2r
3586                registry "-zhRadicals-.*-ucs-0"
3587                mother ucs-bmp
3588                min-code #x2E00 max-code #x2FFF))
3589   (make-charset
3590    '=ucs-radicals@unicode
3591    "CJK Radicals of UCS"
3592    '(long-name "UCS-Radicals"
3593                chars 256
3594                dimension 2
3595                columns 2
3596                graphic 2
3597                direction l2r
3598                registry "-zhRadicals-.*-ucs-0"
3599                mother =ucs@unicode
3600                min-code #x2E00 max-code #x2FFF))
3601   (make-charset
3602    '=ucs-hangul
3603    "Hangul Syllables of UCS"
3604    '(long-name "UCS-Hangul-Syllables"
3605                chars 256
3606                dimension 2
3607                columns 2
3608                graphic 2
3609                direction l2r
3610                registry "-Hangul-.*-ucs-0"
3611                mother =ucs
3612                min-code #xAC00 max-code #xD7AF))
3613   (make-charset
3614    '=ucs-bmp-cjk
3615    "CJK Characters in BMP of UCS"
3616    '(long-name "UCS-BMP-CJK"
3617                chars 256
3618                dimension 2
3619                columns 2
3620                graphic 2
3621                direction l2r
3622                registry "-zh-.*-ucs-0"
3623                mother ucs-bmp
3624                min-code #x2E00
3625                max-code #x9FA5
3626                ;; max-code #xA4CF
3627                ))
3628   (make-charset
3629    '=ucs-bmp-cjk@gb
3630    "CJK Characters in BMP with GB representative glyph-images."
3631    '(long-name "CJK in BMP@GB"
3632                chars 256
3633                dimension 2
3634                columns 2
3635                graphic 2
3636                direction l2r
3637                registry "-zh-.*-ucs-0"
3638                mother =ucs@gb
3639                min-code #x2E00
3640                max-code #x9FA5
3641                ;; max-code #xA4CF
3642                ))
3643   (make-charset
3644    '==ucs-bmp-cjk@gb
3645    "CJK Characters in BMP with GB representative glyph-images."
3646    '(long-name "CJK in BMP@GB"
3647                chars 256
3648                dimension 2
3649                columns 2
3650                graphic 2
3651                direction l2r
3652                registry "-zh-.*-ucs-0"
3653                mother ==ucs@gb
3654                min-code #x2E00
3655                max-code #x9FA5
3656                ;; max-code #xA4CF
3657                ))
3658   (make-charset
3659    '===ucs-bmp-cjk@gb
3660    "CJK Characters in BMP with GB representative glyph-images."
3661    '(long-name "CJK in BMP@GB"
3662                chars 256
3663                dimension 2
3664                columns 2
3665                graphic 2
3666                direction l2r
3667                registry "-zh-.*-ucs-0"
3668                mother ===ucs@gb
3669                min-code #x2E00
3670                max-code #x9FA5
3671                ;; max-code #xA4CF
3672                ))
3673   (make-charset
3674    '=ucs-bmp-cjk@JP
3675    "CJK Characters in BMP with JIS representative glyphs"
3676    '(long-name "CJK in BMP@JP"
3677                chars 256
3678                dimension 2
3679                columns 2
3680                graphic 2
3681                direction l2r
3682                registry "-ja-.*-ucs-0"
3683                mother =ucs@JP
3684                min-code #x2E00
3685                max-code #x9FA5
3686                ;; max-code #xA4CF
3687                ))
3688   (make-charset
3689    '=ucs-bmp-cjk@JP/hanazono
3690    "CJK Characters in BMP with Hanazono font"
3691    '(long-name "CJK in BMP@JP/Hanazono"
3692                chars 256
3693                dimension 2
3694                columns 2
3695                graphic 2
3696                direction l2r
3697                registry "-ja-.*-ucs-0"
3698                mother =ucs@JP/hanazono
3699                min-code #x2E00
3700                max-code #x9FA5
3701                ;; max-code #xA4CF
3702                ))
3703   (make-charset
3704    '==ucs-bmp-cjk@JP/hanazono
3705    "CJK Characters in BMP with Hanazono font"
3706    '(long-name "CJK in BMP@JP/Hanazono"
3707                chars 256
3708                dimension 2
3709                columns 2
3710                graphic 2
3711                direction l2r
3712                registry "-ja-.*-ucs-0"
3713                mother ==ucs@JP/hanazono
3714                min-code #x2E00
3715                max-code #x9FA5
3716                ;; max-code #xA4CF
3717                ))
3718   (make-charset
3719    '=+>ucs-bmp-cjk@unicode
3720    "Unicode representative characters of CJK Unified Ideographs in BMP"
3721    '(long-name "Unicode-BMP-CJK unified abstract glyphs"
3722                chars 256
3723                dimension 2
3724                columns 2
3725                graphic 2
3726                direction l2r
3727                registry "-zh-.*-ucs-0"
3728                mother =+>ucs@unicode
3729                min-code #x2E00
3730                max-code #x9FA5
3731                ;; max-code #xA4CF
3732                ))
3733   (make-charset
3734    '=>ucs-bmp-cjk@unicode
3735    "Unicode representative characters of CJK Unified Ideographs in BMP"
3736    '(long-name "Unicode-BMP-CJK"
3737                chars 256
3738                dimension 2
3739                columns 2
3740                graphic 2
3741                direction l2r
3742                registry "-zh-.*-ucs-0"
3743                mother =>ucs@unicode
3744                min-code #x2E00
3745                max-code #x9FA5
3746                ;; max-code #xA4CF
3747                ))
3748   (make-charset
3749    '==>ucs-bmp-cjk@bucs
3750    "CJK Characters in BMP of BUCS"
3751    '(long-name "BUCS-BMP-CJK"
3752                chars 256
3753                dimension 2
3754                columns 2
3755                graphic 2
3756                direction l2r
3757                registry "-zh-.*-ucs-0"
3758                mother ==>ucs@bucs
3759                min-code #x2E00
3760                max-code #x9FA5
3761                ;; max-code #xA4CF
3762                ))
3763   (make-charset
3764    '=ucs-bmp-cjk-compat
3765    "CJK Compatibility Ideographs in BMP of UCS"
3766    '(long-name "CJK Compatibility Ideographs"
3767                chars 256
3768                dimension 2
3769                columns 2
3770                graphic 2
3771                direction l2r
3772                registry "-ja-.*-ucs-0"
3773                mother ucs-bmp
3774                min-code #xF900
3775                max-code #xFAFF
3776                ))
3777   (make-charset
3778    '=ucs-bmp-cjk-compat@unicode
3779    "CJK Compatibility Ideographs of Unicode representatives"
3780    '(long-name "CJK Compatibility Ideographs of Unicode"
3781                chars 256
3782                dimension 2
3783                columns 2
3784                graphic 2
3785                direction l2r
3786                registry "-ja-.*-ucs-0"
3787                mother =ucs@unicode
3788                min-code #xF900
3789                max-code #xFAFF
3790                ))
3791   (make-charset
3792    '=+>ucs-bmp-cjk-compat@jis
3793    "CJK Compatibility Ideographs of JIS representatives unified glyphs"
3794    '(long-name "JIS unified glyphs for CJK Compat chars"
3795                chars 256
3796                dimension 2
3797                columns 2
3798                graphic 2
3799                direction l2r
3800                registry "-ja-.*-ucs-0"
3801                mother =+>ucs@jis
3802                min-code #xF900
3803                max-code #xFAFF
3804                ))
3805   (make-charset
3806    '=ucs-sip-ext-b
3807    "CJK Ideographs Extension B"
3808    '(long-name "UCS CJK Ext-B"
3809                chars 256
3810                dimension 2
3811                columns 2
3812                graphic 2
3813                direction l2r
3814                registry "\\(iso10646\\|ucs00\\)-2$"
3815                mother ucs
3816                min-code #x20000 max-code #x2A6D6
3817                code-offset #x20000))
3818   (make-charset
3819    '=ucs-sip@iso
3820    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
3821    '(long-name "UCS CJK Ext-B"
3822                chars 256
3823                dimension 2
3824                columns 2
3825                graphic 2
3826                direction l2r
3827                registry "ucs00-2$"
3828                mother =ucs@iso
3829                min-code #x20000 max-code #x2FFFF
3830                code-offset #x20000))
3831   (make-charset
3832    '=ucs-sip-ext-b@iso
3833    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
3834    '(long-name "UCS CJK Ext-B"
3835                chars 256
3836                dimension 2
3837                columns 2
3838                graphic 2
3839                direction l2r
3840                registry "\\(iso10646\\|ucs00\\)-2$"
3841                mother =ucs@iso
3842                min-code #x20000 max-code #x2A6D6
3843                code-offset #x20000))
3844   (make-charset
3845    '==ucs-sip@iso
3846    "ISO representative abstract-glyph-images of ISO/IEC 10646 Plane 2"
3847    '(long-name "SIP abstract glyph-images"
3848                chars 256
3849                dimension 2
3850                columns 2
3851                graphic 2
3852                direction l2r
3853                registry "\\(ucs00\\)-2$"
3854                mother ==ucs@iso
3855                code-offset #x20000))
3856   (make-charset
3857    '==ucs-sip-ext-b@iso
3858    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
3859    '(long-name "UCS CJK Ext-B"
3860                chars 256
3861                dimension 2
3862                columns 2
3863                graphic 2
3864                direction l2r
3865                registry "\\(iso10646\\|ucs00\\)-2$"
3866                mother ==ucs@iso
3867                min-code #x20000 max-code #x2A6D6
3868                code-offset #x20000))
3869   (make-charset
3870    '===ucs-sip-ext-b@iso
3871    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
3872    '(long-name "UCS CJK Ext-B"
3873                chars 256
3874                dimension 2
3875                columns 2
3876                graphic 2
3877                direction l2r
3878                registry "\\(iso10646\\|ucs00\\)-2$"
3879                mother ===ucs@iso
3880                min-code #x20000 max-code #x2A6D6
3881                code-offset #x20000))
3882   )
3883
3884 ;;; mule-conf.el ends here