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