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

   1 ;;; mule-conf.el --- configure multilingual environment
   2
   3 ;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5 ;; Copyright (C) 1997, 1999, 2000, 2002, 2003, 2004, 2005, 2006, 2008,
   6 ;;   2009, 2010, 2011, 2012, 2013, 2014, 2015 MORIOKA Tomohiko
   7
   8 ;; Keywords: mule, multilingual, character set, coding system
   9
  10 ;; This file is part of XEmacs.
  11
  12 ;; XEmacs is free software; you can redistribute it and/or modify
  13 ;; it under the terms of the GNU General Public License as published by
  14 ;; the Free Software Foundation; either version 2, or (at your option)
  15 ;; any later version.
  16
  17 ;; XEmacs is distributed in the hope that it will be useful,
  18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;; GNU General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with XEmacs; see the file COPYING.  If not, write to the
  24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  25 ;; Boston, MA 02111-1307, USA.
  26
  27 ;;; Code:
  28
  29 (cond
  30  ((featurep 'utf-2000)
  31   (make-charset
  32    '=adobe-japan1-base
  33    "Adobe-Japan1 Character Collection for CID-Keyed Fonts"
  34    `(long-name "Adobe-Japan1"
  35                chars 256
  36                dimension 2
  37                columns 2
  38                graphic 2
  39                direction l2r
  40                registry "AdobeJapan1-[0-6]$"
  41                min-code     #xE10000
  42                max-code ,(+ #xE10000 23057)
  43                code-offset  #xE10000
  44                ;; min-code      ,(lsh #x6300 16)
  45                ;; max-code      ,(+ (lsh #x6300 16) 23057)
  46                ;; code-offset   ,(lsh #x6300 16)
  47                ))
  48   (make-charset
  49    '=adobe-japan1-0
  50    "Adobe-Japan1-0 Character Collection for CID-Keyed Fonts"
  51    '(long-name "Adobe-Japan1-0"
  52                chars 256
  53                dimension 2
  54                columns 2
  55                graphic 2
  56                direction l2r
  57                mother =adobe-japan1-base
  58                min-code 0
  59                max-code 8283
  60                registry "AdobeJapan1-[0-6]$"))
  61   (make-charset
  62    '=adobe-japan1-1
  63    "Adobe-Japan1-1 Character Collection for CID-Keyed Fonts"
  64    '(long-name "Adobe-Japan1-1"
  65                chars 256
  66                dimension 2
  67                columns 2
  68                graphic 2
  69                direction l2r
  70                mother =adobe-japan1-0
  71                min-code 0
  72                max-code 8358
  73                registry "AdobeJapan1-[1-6]$"))
  74   (make-charset
  75    '=adobe-japan1-2
  76    "Adobe-Japan1-2 Character Collection for CID-Keyed Fonts"
  77    '(long-name "Adobe-Japan1-2"
  78                chars 256
  79                dimension 2
  80                columns 2
  81                graphic 2
  82                direction l2r
  83                mother =adobe-japan1-1
  84                min-code 0
  85                max-code 8719
  86                registry "AdobeJapan1-[2-6]$"))
  87   (make-charset
  88    '=adobe-japan1-3
  89    "Adobe-Japan1-3 Character Collection for CID-Keyed Fonts"
  90    '(long-name "Adobe-Japan1-3"
  91                chars 256
  92                dimension 2
  93                columns 2
  94                graphic 2
  95                direction l2r
  96                mother =adobe-japan1-2
  97                min-code 0
  98                max-code 9353
  99                registry "AdobeJapan1-[3-6]$"))
 100   (make-charset
 101    '=adobe-japan1-4
 102    "Adobe-Japan1-4 Character Collection for CID-Keyed Fonts"
 103    '(long-name "Adobe-Japan1-4"
 104                chars 256
 105                dimension 2
 106                columns 2
 107                graphic 2
 108                direction l2r
 109                mother =adobe-japan1-3
 110                min-code 0
 111                max-code 15443
 112                registry "AdobeJapan1-[4-6]$"))
 113   (make-charset
 114    '=adobe-japan1-5
 115    "Adobe-Japan1-5 Character Collection for CID-Keyed Fonts"
 116    '(long-name "Adobe-Japan1-5"
 117                chars 256
 118                dimension 2
 119                columns 2
 120                graphic 2
 121                direction l2r
 122                mother =adobe-japan1-4
 123                min-code 0
 124                max-code 20316
 125                registry "AdobeJapan1-[5-6]$"))
 126   (make-charset
 127    '=adobe-japan1-6
 128    "Adobe-Japan1-6 Character Collection for CID-Keyed Fonts"
 129    '(long-name "Adobe-Japan1-6"
 130                chars 256
 131                dimension 2
 132                columns 2
 133                graphic 2
 134                direction l2r
 135                mother =adobe-japan1-5
 136                min-code 0
 137                max-code 23057
 138                registry "AdobeJapan1-6$"))
 139   (define-charset-alias '=adobe-japan1 '=adobe-japan1-6)
 140
 141   (make-charset
 142    '==adobe-japan1-0
 143    "Adobe-Japan1-0 abstract glyph-forms."
 144    '(long-name "Adobe-Japan1-0 abstract glyph-forms"
 145                chars 256
 146                dimension 2
 147                columns 2
 148                graphic 2
 149                direction l2r
 150                mother =adobe-japan1-0
 151                registry "AdobeJapan1-0$"))
 152   (make-charset
 153    '==adobe-japan1-1
 154    "Adobe-Japan1-1 abstract glyph-forms."
 155    '(long-name "Adobe-Japan1-1 abstract glyph-forms"
 156                chars 256
 157                dimension 2
 158                columns 2
 159                graphic 2
 160                direction l2r
 161                mother ==adobe-japan1-0
 162                registry "AdobeJapan1-1$"))
 163   (make-charset
 164    '==adobe-japan1-2
 165    "Adobe-Japan1-2 abstract glyph-forms."
 166    '(long-name "Adobe-Japan1-2 abstract glyph-forms"
 167                chars 256
 168                dimension 2
 169                columns 2
 170                graphic 2
 171                direction l2r
 172                mother ==adobe-japan1-1
 173                registry "AdobeJapan1-2$"))
 174   (make-charset
 175    '==adobe-japan1-3
 176    "Adobe-Japan1-3 abstract glyph-forms."
 177    '(long-name "Adobe-Japan1-3 abstract glyph-forms"
 178                chars 256
 179                dimension 2
 180                columns 2
 181                graphic 2
 182                direction l2r
 183                mother ==adobe-japan1-2
 184                registry "AdobeJapan1-3$"))
 185   (make-charset
 186    '==adobe-japan1-4
 187    "Adobe-Japan1-4 abstract glyph-forms."
 188    '(long-name "Adobe-Japan1-4 abstract glyph-forms"
 189                chars 256
 190                dimension 2
 191                columns 2
 192                graphic 2
 193                direction l2r
 194                mother ==adobe-japan1-3
 195                registry "AdobeJapan1-4$"))
 196   (make-charset
 197    '==adobe-japan1-5
 198    "Adobe-Japan1-5 abstract glyph-forms."
 199    '(long-name "Adobe-Japan1-5 abstract glyph-forms"
 200                chars 256
 201                dimension 2
 202                columns 2
 203                graphic 2
 204                direction l2r
 205                mother ==adobe-japan1-4
 206                registry "AdobeJapan1-5$"))
 207   (make-charset
 208    '==adobe-japan1-6
 209    "Adobe-Japan1-6 abstract glyph-forms."
 210    '(long-name "Adobe-Japan1-6 abstract glyph-forms"
 211                chars 256
 212                dimension 2
 213                columns 2
 214                graphic 2
 215                direction l2r
 216                mother ==adobe-japan1-5
 217                registry "AdobeJapan1-6$"))
 218   (define-charset-alias '==adobe-japan1 '==adobe-japan1-6)
 219
 220   (define-charset-alias '=>>>adobe-japan1-0 '==adobe-japan1-0)
 221   (define-charset-alias '=>>>adobe-japan1-1 '==adobe-japan1-1)
 222   (define-charset-alias '=>>>adobe-japan1-2 '==adobe-japan1-2)
 223   (define-charset-alias '=>>>adobe-japan1-3 '==adobe-japan1-3)
 224   (define-charset-alias '=>>>adobe-japan1-4 '==adobe-japan1-4)
 225   (define-charset-alias '=>>>adobe-japan1-5 '==adobe-japan1-5)
 226   (define-charset-alias '=>>>adobe-japan1-6 '==adobe-japan1-6)
 227   (define-charset-alias '=>>>adobe-japan1 '=>>>adobe-japan1-6)
 228
 229   (make-charset
 230    '===adobe-japan1-0
 231    "Adobe-Japan1-0 detailed glyph-images."
 232    '(long-name "Adobe-Japan1-0 glyph-images"
 233                chars 256
 234                dimension 2
 235                columns 2
 236                graphic 2
 237                direction l2r
 238                mother ==adobe-japan1-0
 239                registry "AdobeJapan1-0$"))
 240   (make-charset
 241    '===adobe-japan1-1
 242    "Adobe-Japan1-1 detailed glyph-images."
 243    '(long-name "Adobe-Japan1-1 glyph-images"
 244                chars 256
 245                dimension 2
 246                columns 2
 247                graphic 2
 248                direction l2r
 249                mother ===adobe-japan1-0
 250                registry "AdobeJapan1-1$"))
 251   (make-charset
 252    '===adobe-japan1-2
 253    "Adobe-Japan1-2 detailed glyph-images."
 254    '(long-name "Adobe-Japan1-2 glyph-images"
 255                chars 256
 256                dimension 2
 257                columns 2
 258                graphic 2
 259                direction l2r
 260                mother ===adobe-japan1-1
 261                registry "AdobeJapan1-2$"))
 262   (make-charset
 263    '===adobe-japan1-3
 264    "Adobe-Japan1-3 detailed glyph-images."
 265    '(long-name "Adobe-Japan1-3 glyph-images"
 266                chars 256
 267                dimension 2
 268                columns 2
 269                graphic 2
 270                direction l2r
 271                mother ===adobe-japan1-2
 272                registry "AdobeJapan1-3$"))
 273   (make-charset
 274    '===adobe-japan1-4
 275    "Adobe-Japan1-4 detailed glyph-images."
 276    '(long-name "Adobe-Japan1-4 glyph-images"
 277                chars 256
 278                dimension 2
 279                columns 2
 280                graphic 2
 281                direction l2r
 282                mother ===adobe-japan1-3
 283                registry "AdobeJapan1-4$"))
 284   (make-charset
 285    '===adobe-japan1-5
 286    "Adobe-Japan1-5 detailed glyph-images."
 287    '(long-name "Adobe-Japan1-5 glyph-images"
 288                chars 256
 289                dimension 2
 290                columns 2
 291                graphic 2
 292                direction l2r
 293                mother ===adobe-japan1-4
 294                registry "AdobeJapan1-5$"))
 295   (make-charset
 296    '===adobe-japan1-6
 297    "Adobe-Japan1-6 detailed glyph-images."
 298    '(long-name "Adobe-Japan1-6 glyph-images"
 299                chars 256
 300                dimension 2
 301                columns 2
 302                graphic 2
 303                direction l2r
 304                mother ===adobe-japan1-5
 305                registry "AdobeJapan1-6$"))
 306   (define-charset-alias '===adobe-japan1 '===adobe-japan1-6)
 307
 308   (make-charset
 309    '=>>adobe-japan1-0
 310    "Adobe-Japan1-0 abstract glyphs"
 311    '(long-name "Adobe-Japan1-0 abstract glyphs"
 312                chars 256
 313                dimension 2
 314                columns 2
 315                graphic 2
 316                direction l2r
 317                mother =adobe-japan1
 318                registry "AdobeJapan1-0$"))
 319   (make-charset
 320    '=>>adobe-japan1-1
 321    "Adobe-Japan1-1 abstract glyphs"
 322    '(long-name "Adobe-Japan1-1 abstract glyphs"
 323                chars 256
 324                dimension 2
 325                columns 2
 326                graphic 2
 327                direction l2r
 328                mother =>>adobe-japan1-0
 329                registry "AdobeJapan1-1"))
 330   (make-charset
 331    '=>>adobe-japan1-2
 332    "Adobe-Japan1-2 abstract glyphs"
 333    '(long-name "Adobe-Japan1-2 abstract glyphs"
 334                chars 256
 335                dimension 2
 336                columns 2
 337                graphic 2
 338                direction l2r
 339                mother =>>adobe-japan1-1
 340                registry "AdobeJapan1-2"))
 341   (make-charset
 342    '=>>adobe-japan1-3
 343    "Adobe-Japan1-3 abstract glyphs"
 344    '(long-name "Adobe-Japan1-3 abstract glyphs"
 345                chars 256
 346                dimension 2
 347                columns 2
 348                graphic 2
 349                direction l2r
 350                mother =>>adobe-japan1-2
 351                registry "AdobeJapan1-3"))
 352   (make-charset
 353    '=>>adobe-japan1-4
 354    "Adobe-Japan1-4 abstract glyphs"
 355    '(long-name "Adobe-Japan1-4 abstract glyphs"
 356                chars 256
 357                dimension 2
 358                columns 2
 359                graphic 2
 360                direction l2r
 361                mother =>>adobe-japan1-3
 362                registry "AdobeJapan1-4"))
 363   (make-charset
 364    '=>>adobe-japan1-5
 365    "Adobe-Japan1-5 abstract glyphs"
 366    '(long-name "Adobe-Japan1-5 abstract glyphs"
 367                chars 256
 368                dimension 2
 369                columns 2
 370                graphic 2
 371                direction l2r
 372                mother =>>adobe-japan1-4
 373                registry "AdobeJapan1-5"))
 374   (make-charset
 375    '=>>adobe-japan1-6
 376    "Adobe-Japan1-6 abstract glyphs"
 377    '(long-name "Adobe-Japan1-6 abstract glyphs"
 378                chars 256
 379                dimension 2
 380                columns 2
 381                graphic 2
 382                direction l2r
 383                mother =>>adobe-japan1-5
 384                registry "AdobeJapan1-6"))
 385   (define-charset-alias '=>>adobe-japan1 '=>>adobe-japan1-6)
 386
 387   (make-charset
 388    '=+>adobe-japan1-0
 389    "Adobe-Japan1-0 unified abstract glyphs"
 390    '(long-name "Adobe-Japan1-0 unified abstract glyphs"
 391                chars 256
 392                dimension 2
 393                columns 2
 394                graphic 2
 395                direction l2r
 396                mother =adobe-japan1
 397                registry "AdobeJapan1-0$"))
 398   (make-charset
 399    '=+>adobe-japan1-1
 400    "Adobe-Japan1-1 unified abstract glyphs"
 401    '(long-name "Adobe-Japan1-1 unified abstract glyphs"
 402                chars 256
 403                dimension 2
 404                columns 2
 405                graphic 2
 406                direction l2r
 407                mother =+>adobe-japan1-0
 408                registry "AdobeJapan1-1"))
 409   (make-charset
 410    '=+>adobe-japan1-2
 411    "Adobe-Japan1-2 unified abstract glyphs"
 412    '(long-name "Adobe-Japan1-2 unified abstract glyphs"
 413                chars 256
 414                dimension 2
 415                columns 2
 416                graphic 2
 417                direction l2r
 418                mother =+>adobe-japan1-1
 419                registry "AdobeJapan1-2"))
 420   (make-charset
 421    '=+>adobe-japan1-3
 422    "Adobe-Japan1-3 unified abstract glyphs"
 423    '(long-name "Adobe-Japan1-3 unified abstract glyphs"
 424                chars 256
 425                dimension 2
 426                columns 2
 427                graphic 2
 428                direction l2r
 429                mother =+>adobe-japan1-2
 430                registry "AdobeJapan1-3"))
 431   (make-charset
 432    '=+>adobe-japan1-4
 433    "Adobe-Japan1-4 unified abstract glyphs"
 434    '(long-name "Adobe-Japan1-4 unified abstract glyphs"
 435                chars 256
 436                dimension 2
 437                columns 2
 438                graphic 2
 439                direction l2r
 440                mother =+>adobe-japan1-3
 441                registry "AdobeJapan1-4"))
 442   (make-charset
 443    '=+>adobe-japan1-5
 444    "Adobe-Japan1-5 unified abstract glyphs"
 445    '(long-name "Adobe-Japan1-5 unified abstract glyphs"
 446                chars 256
 447                dimension 2
 448                columns 2
 449                graphic 2
 450                direction l2r
 451                mother =+>adobe-japan1-4
 452                registry "AdobeJapan1-5"))
 453   (make-charset
 454    '=+>adobe-japan1-6
 455    "Adobe-Japan1-6 unified abstract glyphs"
 456    '(long-name "Adobe-Japan1-6 unified abstract glyphs"
 457                chars 256
 458                dimension 2
 459                columns 2
 460                graphic 2
 461                direction l2r
 462                mother =+>adobe-japan1-5
 463                registry "AdobeJapan1-6"))
 464   (define-charset-alias '=+>adobe-japan1 '=+>adobe-japan1-6)
 465
 466   (make-charset
 467    '=jis-x0208@1978
 468    "JIS X 0208:1978, unchanged part."
 469    '(registry "jisx0208\\.1978"
 470               dimension 2
 471               chars 94
 472               mother =jis-x0208
 473               =>iso-ir 42
 474               final ?@
 475               graphic 0
 476               partial t))
 477   (make-charset
 478    '=jis-x0208@1978/-4pr
 479    "JIS X 0208:1978, 1st - 3rd impressions."
 480    '(registry "jisx0208\\.1978"
 481               dimension 2
 482               chars 94
 483               mother =jis-x0208@1978
 484               =>iso-ir 42
 485               final ?@
 486               graphic 0
 487               partial t))
 488   (make-charset
 489    '=jis-x0208@1978/1pr
 490    "JIS X 0208:1978, 1st impression."
 491    '(iso-ir 42
 492             registry "jisx0208\\.1978"
 493             dimension 2
 494             chars 94
 495             mother =jis-x0208@1978/-4pr
 496             final ?@
 497             graphic 0))
 498   (make-charset
 499    '=jis-x0208@1978/1pr/fixed
 500    "JIS X 0208:1978, correct glyph in the errata of 1st impression."
 501    '(registry "jisx0208\\.1978"
 502               dimension 2
 503               chars 94
 504               mother =jis-x0208@1978/1pr
 505               =>iso-ir 42
 506               ;; final ?@
 507               graphic 0
 508               partial t))
 509   (make-charset
 510    '=jis-x0208@1978/-4X
 511    "JIS X 0208:1978, index before the 4th impression."
 512    '(registry "jisx0208\\.1978"
 513               dimension 2
 514               chars 94
 515               mother =jis-x0208@1978
 516               =>iso-ir 42
 517               ;; final ?@
 518               graphic 0
 519               partial t))
 520   ;; (make-charset
 521   ;;  '=jis-x0208@1978/1er-pr
 522   ;;  "JIS X 0208:1978, fixed by errata [Nov 1978]."
 523   ;;  '(registry "jisx0208\\.1978"
 524   ;;             dimension 2
 525   ;;             chars 94
 526   ;;             mother =jis-x0208@1978
 527   ;;             =>iso-ir 42
 528   ;;             ;; final ?@
 529   ;;             graphic 0
 530   ;;             partial t))
 531   (make-charset
 532    '=jis-x0208@1978/2-pr
 533    "JIS X 0208:1978, 2nd impression or later."
 534    '(registry "jisx0208\\.1978"
 535               dimension 2
 536               chars 94
 537               ;; mother =jis-x0208@1978/1er-pr
 538               mother =jis-x0208@1978
 539               =>iso-ir 42
 540               ;; final ?@
 541               graphic 0
 542               partial t))
 543   (make-charset
 544    '=jis-x0208@1978/4er
 545    "JIS X 0208:1978, replaced by errata of 4th impression."
 546    '(registry "jisx0208\\.1978"
 547               dimension 2
 548               chars 94
 549               mother =jis-x0208@1978/2-pr
 550               =>iso-ir 42
 551               ;; final ?@
 552               graphic 0
 553               partial t))
 554   (make-charset
 555    '=jis-x0208@1978/4-pr
 556    "JIS X 0208:1978, 4th impression or later."
 557    '(registry "jisx0208\\.1978"
 558               dimension 2
 559               chars 94
 560               mother =jis-x0208@1978/2-pr
 561               =>iso-ir 42
 562               ;; final ?@
 563               graphic 0
 564               partial t))
 565   (make-charset
 566    '=jis-x0208@1978/5pr
 567    "JIS X 0208:1978, 5th impression."
 568    '(registry "jisx0208\\.1978"
 569               dimension 2
 570               chars 94
 571               mother =jis-x0208@1978/4-pr
 572               =>iso-ir 42
 573               ;; final ?@
 574               graphic 0
 575               partial t))
 576   (define-charset-alias '=jis-x0208@1978/i1 '=jis-x0208@1978/1pr)
 577   (define-charset-alias '=jis-x0208@1978/i-4 '=jis-x0208@1978/-4pr)
 578   (define-charset-alias '=jis-x0208@1978/i4- '=jis-x0208@1978/4-pr)
 579   )
 580  (t
 581   (make-charset
 582    '=jis-x0208@1978
 583    "JIS X0208:1978 Japanese Kanji (so called \"old JIS\")."
 584    '(iso-ir 42
 585             registry "jisx0208\\.1978"
 586             dimension 2
 587             chars 94
 588             mother =jis-x0208
 589             final ?@
 590             graphic 0))
 591   ))
 592
 593 (define-charset-alias '=jis-x0208-1978          '=jis-x0208@1978)
 594 (define-charset-alias 'japanese-jisx0208-1978   '=jis-x0208@1978)
 595 (define-charset-alias 'chinese-gb2312           '=gb2312)
 596 (define-charset-alias '=jis-x0208-1983          '=jis-x0208@1983)
 597 (define-charset-alias 'japanese-jisx0208        '=jis-x0208@1983)
 598 (define-charset-alias 'korean-ksc5601           '=ks-x1001)
 599 (define-charset-alias 'japanese-jisx0212        '=jis-x0212)
 600 (define-charset-alias 'chinese-cns11643-1       '=cns11643-1)
 601 (define-charset-alias 'chinese-cns11643-2       '=cns11643-2)
 602 (define-charset-alias 'chinese-gb12345          '=gb12345)
 603 (define-charset-alias 'chinese-big5             '=big5)
 604
 605 ;; PinYin-ZhuYin
 606 (make-charset 'sisheng "PinYin-ZhuYin"
 607               '(registry "sisheng_cwnn\\|OMRON_UDC_ZH"
 608                 dimension 1
 609                 chars 94
 610                 final ?0
 611                 graphic 0
 612                 ))
 613
 614 ;; Lao script.
 615 ;; ISO10646's 0x0E80..0x0EDF are mapped to 0x20..0x7F.
 616 (make-charset 'lao "Lao script"
 617               '(registry "MuleLao-1"
 618                 dimension 1
 619                 chars 94
 620                 final ?1
 621                 graphic 1))
 622
 623 ;; IPA (International Phonetic Alphabet)
 624 (make-charset 'ipa "International Phonetic Alphabet"
 625               '(registry "MuleIPA"
 626                 dimension 1
 627                 chars 96
 628                 final ?0
 629                 graphic 1))
 630
 631 ;; Ethiopic
 632 (make-charset 'ethiopic "Ethiopic"
 633               '(registry "Ethio"
 634                 dimension 2
 635                 chars 94
 636                 final ?3
 637                 graphic 0
 638                 ))
 639
 640 ;; ISO-IR-165 (CCITT Extended GB)
 641 ;;    It is based on CCITT Recommendation T.101, includes GB 2312-80 +
 642 ;;    GB 8565-88 table A4 + 293 characters.
 643 (if (featurep 'utf-2000)
 644     (progn
 645       (make-charset '=iso-ir165
 646                     "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
 647                     '(iso-ir 165
 648                              dimension 2
 649                              chars 94
 650                              mother =gb2312
 651                              final ?E
 652                              registry "isoir165"
 653                              graphic 0))
 654       (define-charset-alias 'chinese-isoir165 '=iso-ir165))
 655   (make-charset 'chinese-isoir165
 656                 "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
 657                 '(iso-ir 165
 658                          dimension 2
 659                          chars 94
 660                          final ?E
 661                          registry "isoir165"
 662                          graphic 0)))
 663
 664 ;; CNS11643 Plane3 thru Plane7
 665 ;; These represent more and more obscure Chinese characters.
 666 ;; By the time you get to Plane 7, we're talking about characters
 667 ;; that appear once in some ancient manuscript and whose meaning
 668 ;; is unknown.
 669
 670 (flet
 671     ((make-chinese-cns11643-charset
 672       (name iso-ir plane final)
 673       (make-charset
 674        name (concat "CNS 11643 Plane " plane " (Chinese traditional)")
 675        `(iso-ir ,iso-ir
 676          registry
 677          ,(concat "CNS11643[.-]\\(.*[.-]\\)?" plane "$")
 678          dimension 2
 679          chars 94
 680          final ,final
 681          graphic 0))
 682       ))
 683   (make-chinese-cns11643-charset '=cns11643-3 183 "3" ?I)
 684   (make-chinese-cns11643-charset '=cns11643-4 184 "4" ?J)
 685   (make-chinese-cns11643-charset '=cns11643-5 185 "5" ?K)
 686   (make-chinese-cns11643-charset '=cns11643-6 186 "6" ?L)
 687   (make-chinese-cns11643-charset '=cns11643-7 187 "7" ?M)
 688   (define-charset-alias 'chinese-cns11643-3     '=cns11643-3)
 689   (define-charset-alias 'chinese-cns11643-4     '=cns11643-4)
 690   (define-charset-alias 'chinese-cns11643-5     '=cns11643-5)
 691   (define-charset-alias 'chinese-cns11643-6     '=cns11643-6)
 692   (define-charset-alias 'chinese-cns11643-7     '=cns11643-7)
 693   )
 694
 695 ;; JIS X 0213:2000
 696 (cond
 697  ((featurep 'utf-2000)
 698   (make-charset
 699    '=jis-x0213-1
 700    "JIS X 0213 Plain 1 (unchanged part)"
 701    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
 702               dimension 2
 703               chars 94
 704               =>iso-ir 228
 705               final ?O
 706               graphic 0
 707               partial t))
 708
 709   (make-charset
 710    '=jis-x0213-1@2000
 711    "JIS X 0213:2000 Plain 1"
 712    '(iso-ir 228
 713             registry "jisx0213\\(\\.2000\\)-1"
 714             dimension 2
 715             chars 94
 716             mother =jis-x0213-1
 717             final ?O
 718             graphic 0))
 719   (make-charset
 720    '=jis-x0213-2
 721    "JIS X 0213 Plain 2"
 722    '(iso-ir 229
 723             registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
 724             dimension 2
 725             chars 94
 726             final ?P
 727             graphic 0))
 728
 729   (make-charset
 730    '=jis-x0213-1@2004
 731    "JIS X 0213:2004 Plain 1"
 732    '(iso-ir 233
 733             registry "jisx0213\\(\\.2004\\)-1"
 734             dimension 2
 735             chars 94
 736             mother =jis-x0213-1
 737             final ?Q
 738             graphic 0))
 739
 740   (define-charset-alias 'japanese-jisx0213-1 '=jis-x0213-1@2000)
 741   (define-charset-alias 'japanese-jisx0213-2 '=jis-x0213-2)
 742   (define-charset-alias '=jis-x0213-1-2000 '=jis-x0213-1@2000)
 743   (define-charset-alias '=jis-x0213-2-2000 '=jis-x0213-2)
 744   )
 745  (t
 746   (make-charset
 747    'japanese-jisx0213-1
 748    "JIS X 0213:2000 Plain 1"
 749    '(registry "jisx0213\\(\\.2000\\)-1"
 750               dimension 2
 751               chars 94
 752               final ?O
 753               graphic 0))
 754   (make-charset
 755    'japanese-jisx0213-2
 756    "JIS X 0213:2000 Plain 2"
 757    '(registry "jisx0213\\(\\.2000\\)-2"
 758               dimension 2
 759               chars 94
 760               final ?P
 761               graphic 0))
 762   ))
 763
 764 (when (featurep 'utf-2000)
 765   (define-charset-alias 'ucs '=ucs)
 766   (define-charset-alias '=jis-x0208-1990 '=jis-x0208@1990)
 767   (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208@1990)
 768
 769   (make-charset
 770    '==jis-x0208
 771    "JIS X 0208 abstract glyph-forms (unchanged part)."
 772    '(registry "jisx0208\\.1990"
 773               dimension 2
 774               chars 94
 775               mother =jis-x0208
 776               =>iso-ir 168
 777               ;; final ?B
 778               graphic 0))
 779   (make-charset
 780    '==jis-x0208@1978
 781    "JIS X 0208:1978 abstract glyph-forms."
 782    '(registry "jisx0208\\.1978"
 783               dimension 2
 784               chars 94
 785               mother ==jis-x0208
 786               =>iso-ir 42
 787               ;; final ?@
 788               graphic 0))
 789   (make-charset
 790    '==jis-x0208@1978/-4pr
 791    "JIS X 0208:1978, 1st - 3rd impressions."
 792    '(registry "jisx0208\\.1978"
 793               dimension 2
 794               chars 94
 795               mother ==jis-x0208@1978
 796               =>iso-ir 42
 797               ;; final ?@
 798               graphic 0
 799               ;; partial t
 800               ))
 801   (make-charset
 802    '==jis-x0208@1978/1pr
 803    "JIS X 0208:1978, 1st impression."
 804    '(registry "jisx0208\\.1978"
 805               =>iso-ir 42
 806               dimension 2
 807               chars 94
 808               mother ==jis-x0208@1978/-4pr
 809               ;; final ?@
 810               graphic 0))
 811   (make-charset
 812    '==jis-x0208@1978/1pr/fixed
 813    "JIS X 0208:1978, correct glyph in the errata of 1st impression."
 814    '(registry "jisx0208\\.1978"
 815               dimension 2
 816               chars 94
 817               mother ==jis-x0208@1978/1pr
 818               =>iso-ir 42
 819               ;; final ?@
 820               graphic 0
 821               partial t))
 822   (make-charset
 823    '==jis-x0208@1978/2-pr
 824    "JIS X 0208:1978, 2nd impression or later."
 825    '(registry "jisx0208\\.1978"
 826               dimension 2
 827               chars 94
 828               ;; mother =jis-x0208@1978/1er-pr
 829               mother ==jis-x0208@1978
 830               =>iso-ir 42
 831               ;; final ?@
 832               graphic 0
 833               ;; partial t
 834               ))
 835   (make-charset
 836    '==jis-x0208@1978/4er
 837    "JIS X 0208:1978, replaced by errata of 4th impression."
 838    '(registry "jisx0208\\.1978"
 839               dimension 2
 840               chars 94
 841               mother ==jis-x0208@1978/2-pr
 842               =>iso-ir 42
 843               ;; final ?@
 844               graphic 0
 845               partial t))
 846   (make-charset
 847    '==jis-x0208@1978/5pr
 848    "JIS X 0208:1978, 5th impression."
 849    '(registry "jisx0208\\.1978"
 850               dimension 2
 851               chars 94
 852               ;; mother ==jis-x0208@1978/4-pr
 853               mother ==jis-x0208@1978/2-pr
 854               =>iso-ir 42
 855               ;; final ?@
 856               graphic 0
 857               partial t))
 858   (make-charset
 859    '==jis-x0208@1983
 860    "JIS X 0208:1983 abstract glyph-forms."
 861    '(registry "jisx0208\\.1983"
 862               dimension 2
 863               chars 94
 864               mother ==jis-x0208
 865               =>iso-ir 87
 866               graphic 0))
 867   (make-charset
 868    '==jis-x0208@1990
 869    "JIS X 0208:1990 abstract glyph-forms."
 870    '(registry "jisx0208\\.1990"
 871               dimension 2
 872               chars 94
 873               mother ==jis-x0208
 874               =>iso-ir 168
 875               ;; final ?B
 876               graphic 0))
 877
 878   (make-charset
 879    '==jis-x0213-1
 880    "JIS X 0213 Plain 1 abstract glyph-forms (unchanged part)"
 881    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
 882               dimension 2
 883               chars 94
 884               mother =jis-x0213-1
 885               =>iso-ir 228
 886               ;; final ?O
 887               graphic 0
 888               ;; partial t
 889               ))
 890   (make-charset
 891    '==jis-x0213-1@2000
 892    "JIS X 0213:2000 Plain 1 abstract glyph-forms"
 893    '(registry "jisx0213\\(\\.2000\\)-1"
 894               dimension 2
 895               chars 94
 896               mother ==jis-x0213-1
 897               =>iso-ir 228
 898               ;; final ?O
 899               graphic 0
 900               ;; partial t
 901               ))
 902   (make-charset
 903    '==jis-x0213-1@2004
 904    "JIS X 0213:2004 Plain 1 abstract glyph-forms"
 905    '(mother ==jis-x0213-1
 906             =>iso-ir 233
 907             ;; registry "jisx0213\\(\\.2004\\)-1"
 908             dimension 2
 909             chars 94
 910             graphic 0))
 911
 912   (make-charset
 913    '==jis-x0213-2
 914    "JIS X 0213 Plain 2 abstract glyph-forms"
 915    '(mother =jis-x0213-2
 916             =>iso-ir 229
 917             registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
 918             dimension 2
 919             chars 94
 920             graphic 0))
 921
 922   (make-charset
 923    '==jis-x0212
 924    "JIS X 0212 representative glyph-images."
 925    '(registry "jisx0212"
 926               dimension 2
 927               chars 94
 928               mother =jis-x0212
 929               =>iso-ir 159
 930               ;; final ?D
 931               graphic 0))
 932
 933   (make-charset
 934    '==gb2312
 935    "GB 2312 representative glyph-images."
 936    '(registry "gb2312"
 937               dimension 2
 938               chars 94
 939               mother =gb2312
 940               =>iso-ir 58
 941               ;; final ?A
 942               graphic 0))
 943   (make-charset
 944    '==iso-ir165
 945    "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
 946    '(registry "isoir165"
 947               =>iso-ir 165
 948               dimension 2
 949               chars 94
 950               mother =iso-ir165
 951               ;; final ?E
 952               graphic 0))
 953   (make-charset
 954    '==gb12345
 955    "GB 12345 representative glyph-images."
 956    '(registry "gb12345"
 957               dimension 2
 958               chars 94
 959               mother =gb12345
 960               graphic 0))
 961
 962   (make-charset
 963    '==ks-x1001
 964    "KS X 1001 representative glyph-images."
 965    '(registry "ksc5601"
 966               dimension 2
 967               chars 94
 968               mother =ks-x1001
 969               =>iso-ir 149
 970               ;; final ?C
 971               graphic 0))
 972
 973   (define-charset-alias '=>>>jis-x0208      '==jis-x0208)
 974   (define-charset-alias '=>>>jis-x0208@1978 '==jis-x0208@1978)
 975   (define-charset-alias '=>>>jis-x0208@1983 '==jis-x0208@1983)
 976   (define-charset-alias '=>>>jis-x0208@1990 '==jis-x0208@1990)
 977
 978   (define-charset-alias '=>>>jis-x0213-1      '==jis-x0213-1)
 979   (define-charset-alias '=>>>jis-x0213-1@2000 '==jis-x0213-1@2000)
 980   (define-charset-alias '=>>>jis-x0213-1@2004 '==jis-x0213-1@2004)
 981   (define-charset-alias '=>>>jis-x0213-2      '==jis-x0213-2)
 982
 983   (make-charset
 984    '===jis-x0208
 985    "JIS X 0208 detailed representative glyph-images (unchanged part)."
 986    '(registry "jisx0208\\.1990"
 987               dimension 2
 988               chars 94
 989               mother ==jis-x0208
 990               =>iso-ir 168
 991               ;; final ?B
 992               graphic 0))
 993   (make-charset
 994    '===jis-x0208@1978
 995    "JIS X 0208:1978 detailed representative glyph-images."
 996    '(registry "jisx0208\\.1978"
 997               dimension 2
 998               chars 94
 999               mother ==jis-x0208@1978
1000               =>iso-ir 42
1001               ;; final ?@
1002               graphic 0))
1003   (make-charset
1004    '===jis-x0208@1983
1005    "JIS X 0208:1983 detailed representative glyph-images."
1006    '(registry "jisx0208\\.1983"
1007               dimension 2
1008               chars 94
1009               mother ==jis-x0208@1983
1010               =>iso-ir 87
1011               graphic 0))
1012   (make-charset
1013    '===jis-x0208@1990
1014    "JIS X 0208:1990 detailed representative glyph-images."
1015    '(registry "jisx0208\\.1990"
1016               dimension 2
1017               chars 94
1018               mother ==jis-x0208@1990
1019               =>iso-ir 168
1020               ;; final ?B
1021               graphic 0))
1022
1023   (make-charset
1024    '===jis-x0213-1
1025    "JIS X 0213 Plain 1 detailed representative glyph-images (unchanged part)."
1026    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1027               dimension 2
1028               chars 94
1029               mother ==jis-x0213-1
1030               =>iso-ir 228
1031               ;; final ?O
1032               graphic 0
1033               ;; partial t
1034               ))
1035   (make-charset
1036    '===jis-x0213-1@2000
1037    "JIS X 0213:2000 Plain 1 detailed representative glyph-images."
1038    '(registry "jisx0213\\(\\.2000\\)-1"
1039               dimension 2
1040               chars 94
1041               mother ==jis-x0213-1@2000
1042               =>iso-ir 228
1043               ;; final ?O
1044               graphic 0
1045               ;; partial t
1046               ))
1047   (make-charset
1048    '===jis-x0213-1@2004
1049    "JIS X 0213:2004 Plain 1 detailed representative glyph-images."
1050    '(mother ==jis-x0213-1@2004
1051             =>iso-ir 233
1052             ;; registry "jisx0213\\(\\.2004\\)-1"
1053             dimension 2
1054             chars 94
1055             graphic 0))
1056   (make-charset
1057    '===jis-x0213-2
1058    "JIS X 0213 Plain 2 detailed representative glyph-images."
1059    '(mother ==jis-x0213-2
1060             =>iso-ir 229
1061             registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1062             dimension 2
1063             chars 94
1064             graphic 0))
1065
1066   (make-charset
1067    '===jis-x0212
1068    "JIS X 0212 representative glyph-images."
1069    '(registry "jisx0212"
1070               dimension 2
1071               chars 94
1072               mother ==jis-x0212
1073               =>iso-ir 159
1074               ;; final ?D
1075               graphic 0))
1076
1077   (make-charset
1078    '===ks-x1001
1079    "KS X 1001 representative glyph-images."
1080    '(registry "ksc5601"
1081               dimension 2
1082               chars 94
1083               mother ==ks-x1001
1084               =>iso-ir 149
1085               ;; final ?C
1086               graphic 0))
1087
1088   (make-charset
1089    '=>>jis-x0208
1090    "JIS X 0208 abstract glyphs (unchanged part)."
1091    '(registry "jisx0208\\.1990"
1092               dimension 2
1093               chars 94
1094               mother =jis-x0208
1095               =>iso-ir 168
1096               ;; final ?B
1097               graphic 0))
1098   (make-charset
1099    '=>>jis-x0208@1978
1100    "JIS X 0208:1978 abstract glyphs."
1101    '(registry "jisx0208\\.1978"
1102               dimension 2
1103               chars 94
1104               mother =>>jis-x0208
1105               =>iso-ir 42
1106               ;; final ?@
1107               graphic 0))
1108   (make-charset
1109    '=>>jis-x0208@1983
1110    "JIS X 0208:1983 abstract glyphs."
1111    '(registry "jisx0208\\.1983"
1112               dimension 2
1113               chars 94
1114               mother =>>jis-x0208
1115               =>iso-ir 87
1116               graphic 0))
1117   (make-charset
1118    '=>>jis-x0208@1990
1119    "JIS X 0208:1990 abstract glyphs."
1120    '(registry "jisx0208\\.1990"
1121               dimension 2
1122               chars 94
1123               mother =>>jis-x0208
1124               =>iso-ir 168
1125               graphic 0))
1126
1127   (make-charset
1128    '=>>jis-x0213-1
1129    "JIS X 0213 Plain 1 abstract glyphs (unchanged part)"
1130    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1131               dimension 2
1132               chars 94
1133               mother =jis-x0213-1
1134               =>iso-ir 228
1135               ;; final ?O
1136               graphic 0
1137               ;; partial t
1138               ))
1139   (make-charset
1140    '=>>jis-x0213-1@2000
1141    "JIS X 0213:2000 Plain 1 abstract glyphs"
1142    '(registry "jisx0213\\(\\.2000\\)-1"
1143               dimension 2
1144               chars 94
1145               mother =>>jis-x0213-1
1146               =>iso-ir 228
1147               ;; final ?O
1148               graphic 0
1149               ;; partial t
1150               ))
1151   (make-charset
1152    '=>>jis-x0213-2
1153    "JIS X 0213 Plain 2 abstract glyphs"
1154    '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1155               dimension 2
1156               chars 94
1157               mother =jis-x0213-2
1158               =>iso-ir 229
1159               ;; final ?P
1160               graphic 0))
1161   (make-charset
1162    '=>>jis-x0213-1@2004
1163    "JIS X 0213:2004 Plain 1 abstract glyphs"
1164    '(registry "jisx0213\\(\\.2004\\)-1"
1165               dimension 2
1166               chars 94
1167               mother =>>jis-x0213-1
1168               =>iso-ir 233
1169               ;; final ?Q
1170               graphic 0
1171               ;; partial t
1172               ))
1173
1174   (make-charset
1175    '=+>jis-x0208
1176    "JIS X 0208 based on usual unification."
1177    '(registry "jisx0208\\.1990"
1178               dimension 2
1179               chars 94
1180               mother =>>jis-x0208
1181               =>iso-ir 168
1182               ;; final ?B
1183               graphic 0))
1184   (define-charset-alias '=>jis-x0208@usual '=+>jis-x0208)
1185   (make-charset
1186    '=+>jis-x0208@1978
1187    "JIS X 0208:1978 unified abstract glyphs."
1188    '(registry "jisx0208\\.1978"
1189               dimension 2
1190               chars 94
1191               mother =+>jis-x0208
1192               =>iso-ir 42
1193               ;; final ?@
1194               graphic 0))
1195   (make-charset
1196    '=+>jis-x0208@1983
1197    "JIS X 0208:1983 unified abstract glyphs."
1198    '(registry "jisx0208\\.1983"
1199               dimension 2
1200               chars 94
1201               mother =+>jis-x0208
1202               =>iso-ir 87
1203               graphic 0))
1204   (make-charset
1205    '=+>jis-x0208@1990
1206    "JIS X 0208:1990 unified abstract glyphs."
1207    '(registry "jisx0208\\.1990"
1208               dimension 2
1209               chars 94
1210               mother =+>jis-x0208
1211               =>iso-ir 168
1212               graphic 0))
1213   (make-charset
1214    '=+>jis-x0213-1
1215    "JIS X 0213 Plain 1 unified abstract glyphs (unchanged part)"
1216    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1217               dimension 2
1218               chars 94
1219               mother =>>jis-x0213-1
1220               =>iso-ir 228
1221               ;; final ?O
1222               graphic 0
1223               ;; partial t
1224               ))
1225   (make-charset
1226    '=+>jis-x0213-1@2000
1227    "JIS X 0213:2000 Plain 1 unified abstract glyphs"
1228    '(registry "jisx0213\\(\\.2000\\)-1"
1229               dimension 2
1230               chars 94
1231               mother =+>jis-x0213-1
1232               =>iso-ir 228
1233               ;; final ?O
1234               graphic 0
1235               ;; partial t
1236               ))
1237   (make-charset
1238    '=+>jis-x0213-1@2004
1239    "JIS X 0213:2004 Plain 1 unified abstract glyphs"
1240    '(registry "jisx0213\\(\\.2004\\)-1"
1241               dimension 2
1242               chars 94
1243               mother =+>jis-x0213-1
1244               =>iso-ir 233
1245               ;; final ?Q
1246               graphic 0
1247               ;; partial t
1248               ))
1249
1250   (make-charset
1251    '=>jis-x0208
1252    "JIS X 0208 based on the unchanged unification rules."
1253    '(registry "jisx0208\\.1990"
1254               dimension 2
1255               chars 94
1256               mother =+>jis-x0208
1257               =>iso-ir 168
1258               ;; final ?B
1259               graphic 0))
1260   (define-charset-alias '<=>jis-x0208 '=>jis-x0208)
1261   (make-charset
1262    '=>jis-x0208@1997
1263    "JIS X 0208 based on the unification rule of 1997 edition."
1264    '(registry "jisx0208\\.1990"
1265               dimension 2
1266               chars 94
1267               mother =>jis-x0208
1268               =>iso-ir 168
1269               ;; final ?B
1270               graphic 0))
1271   (define-charset-alias '<=>jis-x0208@1997 '=>jis-x0208@1997)
1272   (define-charset-alias '  =jis-x0208@1997 '=>jis-x0208@1997)
1273
1274   (make-charset
1275    '=>jis-x0213-1
1276    "JIS X 0213 Plain 1 abstract characters (unchanged part)"
1277    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
1278               dimension 2
1279               chars 94
1280               mother =+>jis-x0213-1
1281               =>iso-ir 228
1282               ;; final ?O
1283               graphic 0
1284               ;; partial t
1285               ))
1286   (define-charset-alias '<=>jis-x0213-1 '=>jis-x0213-1)
1287   (make-charset
1288    '=>jis-x0213-1@2000
1289    "JIS X 0213:2000 Plain 1 abstract characters"
1290    '(registry "jisx0213\\(\\.2000\\)-1"
1291               dimension 2
1292               chars 94
1293               mother =>jis-x0213-1
1294               =>iso-ir 228
1295               ;; final ?O
1296               graphic 0
1297               ;; partial t
1298               ))
1299   (define-charset-alias '<=>jis-x0213-1@2000 '=>jis-x0213-1@2000)
1300   (make-charset
1301    '=>jis-x0213-1@2004
1302    "JIS X 0213:2004 Plain 1 abstract characters"
1303    '(registry "jisx0213\\(\\.2004\\)-1"
1304               dimension 2
1305               chars 94
1306               mother =>jis-x0213-1
1307               =>iso-ir 233
1308               ;; final ?Q
1309               graphic 0
1310               ;; partial t
1311               ))
1312   (define-charset-alias '<=>jis-x0213-1@2004 '=>jis-x0213-1@2004)
1313   (make-charset
1314    '=+>jis-x0213-2
1315    "JIS X 0213 Plain 2 based on usual unification."
1316    '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1317               dimension 2
1318               chars 94
1319               mother =>>jis-x0213-2
1320               =>iso-ir 229
1321               ;; final ?P
1322               graphic 0))
1323   (define-charset-alias '=>jis-x0213-2@usual '=+>jis-x0213-2)
1324   (make-charset
1325    '=>jis-x0213-2
1326    "JIS X 0213 Plain 2 abstract characters"
1327    '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
1328               dimension 2
1329               chars 94
1330               mother =+>jis-x0213-2
1331               =>iso-ir 229
1332               ;; final ?P
1333               graphic 0))
1334
1335   (make-charset
1336    '==cns11643-1
1337    "CNS 11643 Plane 1 representative glyph-images."
1338    '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
1339               dimension 2
1340               chars 94
1341               mother =cns11643-1
1342               =>iso-ir 171
1343               graphic 0))
1344   (make-charset
1345    '==cns11643-2
1346    "CNS 11643 Plane 2 representative glyph-images."
1347    '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1348               dimension 2
1349               chars 94
1350               mother =cns11643-2
1351               =>iso-ir 172
1352               graphic 0))
1353   (make-charset
1354    '==cns11643-3
1355    "CNS 11643 Plane 3 representative glyph-images."
1356    '(registry "CNS11643[.-]\\(.*[.-]\\)?3$"
1357               dimension 2
1358               chars 94
1359               mother =cns11643-3
1360               =>iso-ir 183
1361               graphic 0))
1362   (make-charset
1363    '==cns11643-4
1364    "CNS 11643 Plane 4 representative glyph-images."
1365    '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
1366               dimension 2
1367               chars 94
1368               mother =cns11643-4
1369               =>iso-ir 184
1370               graphic 0))
1371   (make-charset
1372    '==cns11643-5
1373    "CNS 11643 Plane 5 representative glyph-images."
1374    '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
1375               dimension 2
1376               chars 94
1377               mother =cns11643-5
1378               =>iso-ir 185
1379               graphic 0))
1380   (make-charset
1381    '==cns11643-6
1382    "CNS 11643 Plane 6 representative glyph-images."
1383    '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
1384               dimension 2
1385               chars 94
1386               mother =cns11643-6
1387               =>iso-ir 186
1388               graphic 0))
1389   (make-charset
1390    '==cns11643-7
1391    "CNS 11643 Plane 7 representative glyph-images."
1392    '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
1393               dimension 2
1394               chars 94
1395               mother =cns11643-7
1396               =>iso-ir 187
1397               graphic 0))
1398
1399   (make-charset
1400    '===cns11643-1
1401    "CNS 11643 Plane 1 representative glyph-images."
1402    '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
1403               dimension 2
1404               chars 94
1405               mother ==cns11643-1
1406               =>iso-ir 171
1407               graphic 0))
1408   (make-charset
1409    '===cns11643-2
1410    "CNS 11643 Plane 2 representative glyph-images."
1411    '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1412               dimension 2
1413               chars 94
1414               mother ==cns11643-2
1415               =>iso-ir 172
1416               graphic 0))
1417   (make-charset
1418    '===cns11643-3
1419    "CNS 11643 Plane 3 representative glyph-images."
1420    '(registry "CNS11643[.-]\\(.*[.-]\\)?3$"
1421               dimension 2
1422               chars 94
1423               mother ==cns11643-3
1424               =>iso-ir 183
1425               graphic 0))
1426   (make-charset
1427    '===cns11643-4
1428    "CNS 11643 Plane 4 representative glyph-images."
1429    '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
1430               dimension 2
1431               chars 94
1432               mother ==cns11643-4
1433               =>iso-ir 184
1434               graphic 0))
1435   (make-charset
1436    '===cns11643-5
1437    "CNS 11643 Plane 5 representative glyph-images."
1438    '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
1439               dimension 2
1440               chars 94
1441               mother ==cns11643-5
1442               =>iso-ir 185
1443               graphic 0))
1444   (make-charset
1445    '===cns11643-6
1446    "CNS 11643 Plane 6 representative glyph-images."
1447    '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
1448               dimension 2
1449               chars 94
1450               mother ==cns11643-6
1451               =>iso-ir 186
1452               graphic 0))
1453   (make-charset
1454    '===cns11643-7
1455    "CNS 11643 Plane 7 representative glyph-images."
1456    '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
1457               dimension 2
1458               chars 94
1459               mother ==cns11643-7
1460               =>iso-ir 187
1461               graphic 0))
1462
1463   (make-charset
1464    '=>>cns11643-1
1465    "CNS 11643 Plane 1 abstract glyphs."
1466    '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
1467               dimension 2
1468               chars 94
1469               mother =cns11643-1
1470               =>iso-ir 184
1471               graphic 0))
1472   (make-charset
1473    '=>>cns11643-4
1474    "CNS 11643 Plane 4 abstract glyphs."
1475    '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
1476               dimension 2
1477               chars 94
1478               mother =cns11643-4
1479               =>iso-ir 184
1480               graphic 0))
1481
1482   (make-charset
1483    '=>cns11643-2
1484    "CNS 11643 Plane 2 abstract characters."
1485    '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1486               dimension 2
1487               chars 94
1488               mother =cns11643-2
1489               =>iso-ir 172
1490               graphic 0))
1491   (make-charset
1492    '=>cns11643-5
1493    "CNS 11643 Plane 5 abstract characters."
1494    '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
1495               dimension 2
1496               chars 94
1497               mother =cns11643-5
1498               =>iso-ir 185
1499               graphic 0))
1500   (make-charset
1501    '=>cns11643-6
1502    "CNS 11643 Plane 6 abstract characters."
1503    '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
1504               dimension 2
1505               chars 94
1506               mother =cns11643-6
1507               =>iso-ir 186
1508               graphic 0))
1509   (make-charset
1510    '=>cns11643-7
1511    "CNS 11643 Plane 7 abstract characters."
1512    '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
1513               dimension 2
1514               chars 94
1515               mother =cns11643-7
1516               =>iso-ir 187
1517               graphic 0))
1518
1519   (make-charset '=big5-eten
1520                 "Big5 ETEN"
1521                 '(long-name     "Big5-ETEN"
1522                   chars         256
1523                   dimension     2
1524                   columns       2
1525                   graphic       2
1526                   direction     l2r
1527                   mother        chinese-big5
1528                   min-code      #x8140
1529                   max-code      #xFEFE
1530                   registry      "Big5\\.ETEN"))
1531   (define-charset-alias 'chinese-big5-eten '=big5-eten)
1532   (make-charset 'chinese-big5-eten-a
1533                 "Big5 ETEN (#xF9D6 .. #xF9FE)"
1534                 '(long-name     "Big5-ETEN-a"
1535                   chars         256
1536                   dimension     2
1537                   columns       2
1538                   graphic       2
1539                   direction     l2r
1540                   mother        chinese-big5
1541                   min-code      #xF9D6
1542                   max-code      #xF9FE
1543                   registry      "Big5\\.ETEN"))
1544   (make-charset 'chinese-big5-eten-b
1545                 "Big5 ETEN (#xC6A1 .. #xC8FE)"
1546                 '(long-name     "Big5-ETEN-b"
1547                   chars         256
1548                   dimension     2
1549                   columns       2
1550                   graphic       2
1551                   direction     l2r
1552                   mother        chinese-big5
1553                   min-code      #xC6A1
1554                   max-code      #xC8FE
1555                   registry      "Big5\\.ETEN"))
1556
1557   (make-charset '=big5-cdp
1558                 "Big5 with CDP extension"
1559                 '(long-name     "Big5-CDP"
1560                   chars         256
1561                   dimension     2
1562                   columns       2
1563                   graphic       2
1564                   direction     l2r
1565                   registry      "big5\\.cdp-0"
1566                   mother        chinese-big5
1567                   min-code      #x8140
1568                   max-code      #x8DFE))
1569   (define-charset-alias 'chinese-big5-cdp '=big5-cdp)
1570
1571   (make-charset '==big5-cdp
1572                 "Abstract glyph-images of Big5-CDP"
1573                 '(long-name     "Big5-CDP glyph-forms"
1574                   chars         256
1575                   dimension     2
1576                   columns       2
1577                   graphic       2
1578                   direction     l2r
1579                   registry      "big5\\.cdp-0"
1580                   mother        =big5-cdp))
1581   (make-charset '===big5-cdp
1582                 "Representative glyph-images of Big5-CDP"
1583                 '(long-name     "Big5-CDP glyph-images"
1584                   chars         256
1585                   dimension     2
1586                   columns       2
1587                   graphic       2
1588                   direction     l2r
1589                   registry      "big5\\.cdp-0"
1590                   mother        ==big5-cdp))
1591
1592   (make-charset '=>>big5-cdp
1593                 "Abstract glyphs of Big5-CDP"
1594                 '(long-name     "Big5-CDP glyphs"
1595                   chars         256
1596                   dimension     2
1597                   columns       2
1598                   graphic       2
1599                   direction     l2r
1600                   registry      "big5\\.cdp-0"
1601                   mother        =big5-cdp))
1602
1603   (make-charset '=>big5-cdp
1604                 "Big5-CDP abstract characters"
1605                 '(long-name     "Big5-CDP abstract characters"
1606                   chars         256
1607                   dimension     2
1608                   columns       2
1609                   graphic       2
1610                   direction     l2r
1611                   registry      "big5\\.cdp-0"
1612                   mother        =>>big5-cdp))
1613
1614   (make-charset
1615    '=mj
1616    "Moji-Jouhou-Kiban characters"
1617    `(long-name "Moji-Jouhou-Kiban"
1618                chars 256
1619                dimension 2
1620                columns 2
1621                graphic 2
1622                direction l2r
1623                ;; registry "mj-0$"
1624                min-code     #xE30000
1625                max-code ,(+ #xE30000 68053)
1626                code-offset  #xE30000
1627                ;; min-code            ,(lsh #x6404 16)
1628                ;; max-code         ,(+ (lsh #x6404 16) 68053)
1629                ;; code-offset    ,(lsh #x6404 16)
1630                ))
1631   (make-charset
1632    '=mj-0
1633    "Moji-Jouhou-Kiban plane 0"
1634    '(long-name "Moji-Jouhou-Kiban-0"
1635                chars 256
1636                dimension 2
1637                columns 2
1638                graphic 2
1639                direction l2r
1640                registry "mj-0$"
1641                mother =mj
1642                min-code 0
1643                max-code #xFFFF))
1644   (make-charset
1645    '=mj-1
1646    "Moji-Jouhou-Kiban plane 1"
1647    '(long-name "Moji-Jouhou-Kiban-1"
1648                chars 256
1649                dimension 2
1650                columns 2
1651                graphic 2
1652                direction l2r
1653                registry "mj-1$"
1654                mother =mj
1655                min-code #x10000
1656                code-offset #x10000))
1657
1658   (make-charset
1659    '=hanyo-denshi/ja
1660    "JA (JIS X0208) part of Han'you-Denshi characters"
1661    `(long-name "Han'you-Denshi/JA"
1662                chars 94
1663                dimension 2
1664                columns 2
1665                graphic 2
1666                direction l2r
1667                registry "HanyoDenshi\\.JA-0$"
1668                min-code ,(lsh #x6400 16)
1669                max-code ,(+ (lsh #x6400 16) (1- (* 94 94)))
1670                code-offset ,(lsh #x6400 16)))
1671   (make-charset
1672    '=hanyo-denshi/jb
1673    "JB (JIS X0212) part of Han'you-Denshi characters"
1674    `(long-name "Han'you-Denshi/JB"
1675                chars 94
1676                dimension 2
1677                columns 2
1678                graphic 2
1679                direction l2r
1680                registry "HanyoDenshi\\.JB-0$"
1681                min-code    ,(+ (lsh #x6400 16) (* 94 94))
1682                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 2)))
1683                code-offset ,(+ (lsh #x6400 16) (* 94 94))))
1684   (make-charset
1685    '=hanyo-denshi/jc
1686    "JC (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
1687    `(long-name "Han'you-Denshi/JC"
1688                chars 94
1689                dimension 2
1690                columns 2
1691                graphic 2
1692                direction l2r
1693                registry "HanyoDenshi\\.JC-0$"
1694                min-code    ,(+ (lsh #x6400 16) (* 94 94 2))
1695                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 3)))
1696                code-offset ,(+ (lsh #x6400 16) (* 94 94 2))))
1697   (make-charset
1698    '=hanyo-denshi/jd
1699    "JD (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
1700    `(long-name "Han'you-Denshi/JD"
1701                chars 94
1702                dimension 2
1703                columns 2
1704                graphic 2
1705                direction l2r
1706                registry "HanyoDenshi\\.JD-0$"
1707                min-code    ,(+ (lsh #x6400 16) (* 94 94 3))
1708                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 4)))
1709                code-offset ,(+ (lsh #x6400 16) (* 94 94 3))))
1710   (make-charset
1711    '=hanyo-denshi/ft
1712    "FT (FDPC additional) part of Han'you-Denshi characters"
1713    `(long-name "Han'you-Denshi/FT"
1714                chars 94
1715                dimension 2
1716                columns 2
1717                graphic 2
1718                direction l2r
1719                registry "HanyoDenshi\\.FT-0$"
1720                min-code    ,(+ (lsh #x6400 16) (* 94 94 4))
1721                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 5)))
1722                code-offset ,(+ (lsh #x6400 16) (* 94 94 4))))
1723   (make-charset
1724    '=hanyo-denshi/ia
1725    "IA part of Han'you-Denshi characters"
1726    `(long-name "Han'you-Denshi/IA"
1727                chars 94
1728                dimension 2
1729                columns 2
1730                graphic 2
1731                direction l2r
1732                registry "HanyoDenshi\\.IA-0$"
1733                min-code    ,(+ (lsh #x6400 16) (* 94 94 5))
1734                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 6)))
1735                code-offset ,(+ (lsh #x6400 16) (* 94 94 5))))
1736   (make-charset
1737    '=hanyo-denshi/ib
1738    "IB part of Han'you-Denshi characters"
1739    `(long-name "Han'you-Denshi/IB"
1740                chars 94
1741                dimension 2
1742                columns 2
1743                graphic 2
1744                direction l2r
1745                registry "HanyoDenshi\\.IB-0$"
1746                min-code    ,(+ (lsh #x6400 16) (* 94 94 6))
1747                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 7)))
1748                code-offset ,(+ (lsh #x6400 16) (* 94 94 6))))
1749   (make-charset
1750    '=hanyo-denshi/hg
1751    "HG (HyouGai Kanji) part of Han'you-Denshi characters"
1752    `(long-name "Han'you-Denshi/HG"
1753                chars 94
1754                dimension 2
1755                columns 2
1756                graphic 2
1757                direction l2r
1758                registry "HanyoDenshi\\.HG-0$"
1759                min-code    ,(+ (lsh #x6400 16) (* 94 94 7))
1760                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 8)))
1761                code-offset ,(+ (lsh #x6400 16) (* 94 94 7))))
1762   (make-charset
1763    '=hanyo-denshi/ip
1764    "IP (for IPA) part of Han'you-Denshi characters"
1765    `(long-name "Han'you-Denshi/IP"
1766                chars 256
1767                dimension 2
1768                columns 2
1769                graphic 2
1770                direction l2r
1771                registry "HanyoDenshi\\.IP-0$"
1772                min-code    ,(+ (lsh #x6402 16) #x4E00)
1773                max-code    ,(+ (lsh #x6402 16) #x9FFF)
1774                code-offset ,(+ (lsh #x6402 16))))
1775   (make-charset
1776    '=hanyo-denshi/jt
1777    "JT (Juuki Touitsu Moji) part of Han'you-Denshi characters"
1778    `(long-name "Han'you-Denshi/JT"
1779                chars 256
1780                dimension 2
1781                columns 2
1782                graphic 2
1783                direction l2r
1784                registry "HanyoDenshi\\.JT-0$"
1785                min-code    ,(+ (lsh #x6402 16) #xAC00)
1786                max-code    ,(+ (lsh #x6402 16) #xD7AF)
1787                code-offset ,(+ (lsh #x6402 16))))
1788   (make-charset
1789    '=hanyo-denshi/ks
1790    "KS (KoSeki) part of Han'you-Denshi characters"
1791    `(long-name "Han'you-Denshi/KS font encoding"
1792                chars 256
1793                dimension 3
1794                columns 2
1795                graphic 2
1796                direction l2r))
1797
1798   (make-charset
1799    '==mj
1800    "Moji-Jouhou-Kiban detailed glyph-images."
1801    '(long-name "MJ glyph-images"
1802                chars 256
1803                dimension 2
1804                columns 2
1805                graphic 2
1806                direction l2r
1807                mother =mj))
1808   (make-charset
1809    '==mj-0
1810    "MJ detailed glyph-images plane 0"
1811    '(long-name "MJ glyph-images-0"
1812                chars 256
1813                dimension 2
1814                columns 2
1815                graphic 2
1816                direction l2r
1817                registry "mj-0$"
1818                mother ==mj
1819                min-code 0
1820                max-code #xFFFF))
1821   (make-charset
1822    '==mj-1
1823    "MJ detailed glyph-images plane 1"
1824    '(long-name "MJ glyph-images-1"
1825                chars 256
1826                dimension 2
1827                columns 2
1828                graphic 2
1829                direction l2r
1830                registry "mj-1$"
1831                mother ==mj
1832                min-code #x10000
1833                code-offset #x10000))
1834
1835   (make-charset
1836    '==hanyo-denshi/ja
1837    "Han'you-Denshi/JA abstract glyph-forms."
1838    '(long-name "Han'you-Denshi/JA glyph-forms"
1839                chars 94
1840                dimension 2
1841                columns 2
1842                graphic 2
1843                direction l2r
1844                registry "HanyoDenshi\\.JA-0$"
1845                mother =hanyo-denshi/ja))
1846   (make-charset
1847    '==hanyo-denshi/jb
1848    "Han'you-Denshi/JB abstract glyph-forms."
1849    '(long-name "Han'you-Denshi/JB glyph-forms"
1850                chars 94
1851                dimension 2
1852                columns 2
1853                graphic 2
1854                direction l2r
1855                registry "HanyoDenshi\\.JB-0$"
1856                mother =hanyo-denshi/jb))
1857   (make-charset
1858    '==hanyo-denshi/jc
1859    "Han'you-Denshi/JC abstract glyph-forms."
1860    '(long-name "Han'you-Denshi/JC glyph-forms"
1861                chars 94
1862                dimension 2
1863                columns 2
1864                graphic 2
1865                direction l2r
1866                registry "HanyoDenshi\\.JC-0$"
1867                mother =hanyo-denshi/jc))
1868   (make-charset
1869    '==hanyo-denshi/jd
1870    "Han'you-Denshi/JD abstract glyph-forms."
1871    '(long-name "Han'you-Denshi/JD glyph-forms"
1872                chars 94
1873                dimension 2
1874                columns 2
1875                graphic 2
1876                direction l2r
1877                registry "HanyoDenshi\\.JD-0$"
1878                mother =hanyo-denshi/jd))
1879   (make-charset
1880    '==hanyo-denshi/ft
1881    "Han'you-Denshi/FT abstract glyph-forms."
1882    '(long-name "Han'you-Denshi/FT glyph-forms"
1883                chars 94
1884                dimension 2
1885                columns 2
1886                graphic 2
1887                direction l2r
1888                registry "HanyoDenshi\\.FT-0$"
1889                mother =hanyo-denshi/ft))
1890   (make-charset
1891    '==hanyo-denshi/ia
1892    "Han'you-Denshi/IA abstract glyph-forms."
1893    '(long-name "Han'you-Denshi/IA glyph-images"
1894                chars 94
1895                dimension 2
1896                columns 2
1897                graphic 2
1898                direction l2r
1899                registry "HanyoDenshi\\.IA-0$"
1900                mother =hanyo-denshi/ia))
1901   (make-charset
1902    '==hanyo-denshi/ib
1903    "Han'you-Denshi/IB abstract glyph-forms."
1904    '(long-name "Han'you-Denshi/IB glyph-forms"
1905                chars 94
1906                dimension 2
1907                columns 2
1908                graphic 2
1909                direction l2r
1910                registry "HanyoDenshi\\.IB-0$"
1911                mother =hanyo-denshi/ib))
1912   (make-charset
1913    '==hanyo-denshi/hg
1914    "Han'you-Denshi/HG abstract glyph-forms."
1915    '(long-name "Han'you-Denshi/HG glyph-forms"
1916                chars 94
1917                dimension 2
1918                columns 2
1919                graphic 2
1920                direction l2r
1921                registry "HanyoDenshi\\.HG-0$"
1922                mother =hanyo-denshi/hg))
1923   (make-charset
1924    '==hanyo-denshi/ip
1925    "Han'you-Denshi/IP abstract glyph-forms."
1926    '(long-name "Han'you-Denshi/IP glyph-images"
1927                chars 256
1928                dimension 2
1929                columns 2
1930                graphic 2
1931                direction l2r
1932                registry "HanyoDenshi\\.IP-0$"
1933                mother =hanyo-denshi/ip))
1934   (make-charset
1935    '==hanyo-denshi/jt
1936    "JT (Juuki Touitsu Moji) abstract glyph-forms."
1937    '(long-name "Han'you-Denshi/JT glyph-forms"
1938                chars 256
1939                dimension 2
1940                columns 2
1941                graphic 2
1942                direction l2r
1943                registry "HanyoDenshi\\.JT-0$"
1944                mother =hanyo-denshi/jt))
1945   (make-charset
1946    '==hanyo-denshi/ks
1947    "KoSeki-touitsu-moji abstract glyph-forms."
1948    '(long-name "Han'you-Denshi/KS glyph-forms"
1949                chars 256
1950                dimension 3
1951                columns 2
1952                graphic 2
1953                direction l2r
1954                mother =hanyo-denshi/ks))
1955
1956   (make-charset
1957    '=koseki
1958    "Abstract glyph-forms of KoSeki-touitsu-moji."
1959    '(long-name "KoSeki-touitsu-moji glyph-forms"
1960                chars 256
1961                dimension 3
1962                columns 2
1963                graphic 2
1964                direction l2r
1965                mother =hanyo-denshi/ks))
1966   (make-charset
1967    '==koseki
1968    "Representative glyph-images of KoSeki-touitsu-moji."
1969    '(long-name "KoSeki-touitsu-moji glyph-images"
1970                chars 256
1971                dimension 3
1972                columns 2
1973                graphic 2
1974                direction l2r
1975                mother =koseki))
1976
1977   (define-charset-alias '=>>>hanyo-denshi/ja '==hanyo-denshi/ja)
1978   (define-charset-alias '=>>>hanyo-denshi/jb '==hanyo-denshi/jb)
1979   (define-charset-alias '=>>>hanyo-denshi/jc '==hanyo-denshi/jc)
1980   (define-charset-alias '=>>>hanyo-denshi/jd '==hanyo-denshi/jd)
1981   (define-charset-alias '=>>>hanyo-denshi/ft '==hanyo-denshi/ft)
1982   (define-charset-alias '=>>>hanyo-denshi/ib '==hanyo-denshi/ib)
1983   (define-charset-alias '=>>>hanyo-denshi/hg '==hanyo-denshi/hg)
1984   (define-charset-alias '=>>>hanyo-denshi/jt '==hanyo-denshi/jt)
1985   (define-charset-alias '=>>>hanyo-denshi/ks '==hanyo-denshi/ks)
1986
1987   ;; (make-charset
1988   ;;  '===hanyo-denshi/ja
1989   ;;  "Han'you-Denshi/JA detailed glyph-images."
1990   ;;  '(long-name "Han'you-Denshi/JA glyph-images"
1991   ;;              chars 94
1992   ;;              dimension 2
1993   ;;              columns 2
1994   ;;              graphic 2
1995   ;;              direction l2r
1996   ;;              registry "HanyoDenshi\\.JA-0$"
1997   ;;              mother ==hanyo-denshi/ja))
1998   (make-charset
1999    '===hanyo-denshi/jb
2000    "Han'you-Denshi/JB detailed glyph-images."
2001    '(long-name "Han'you-Denshi/JB glyph-images"
2002                chars 94
2003                dimension 2
2004                columns 2
2005                graphic 2
2006                direction l2r
2007                registry "HanyoDenshi\\.JB-0$"
2008                mother ==hanyo-denshi/jb))
2009   (make-charset
2010    '===hanyo-denshi/jc
2011    "Han'you-Denshi/JC representative glyph-images."
2012    '(long-name "Han'you-Denshi/JC glyph-images"
2013                chars 94
2014                dimension 2
2015                columns 2
2016                graphic 2
2017                direction l2r
2018                registry "HanyoDenshi\\.JC-0$"
2019                mother ==hanyo-denshi/jc))
2020   (make-charset
2021    '===hanyo-denshi/jd
2022    "Han'you-Denshi/JD representative glyph-images."
2023    '(long-name "Han'you-Denshi/JD glyph-images"
2024                chars 94
2025                dimension 2
2026                columns 2
2027                graphic 2
2028                direction l2r
2029                registry "HanyoDenshi\\.JD-0$"
2030                mother ==hanyo-denshi/jd))
2031   (make-charset
2032    '===hanyo-denshi/ft
2033    "Han'you-Denshi/FT detailed glyph-images."
2034    '(long-name "Han'you-Denshi/FT glyph-images"
2035                chars 94
2036                dimension 2
2037                columns 2
2038                graphic 2
2039                direction l2r
2040                registry "HanyoDenshi\\.FT-0$"
2041                mother ==hanyo-denshi/ft))
2042   (make-charset
2043    '===hanyo-denshi/ia
2044    "Han'you-Denshi/IA detailed glyph-images."
2045    '(long-name "Han'you-Denshi/IA glyph-images"
2046                chars 94
2047                dimension 2
2048                columns 2
2049                graphic 2
2050                direction l2r
2051                registry "HanyoDenshi\\.IA-0$"
2052                mother ==hanyo-denshi/ia))
2053   (make-charset
2054    '===hanyo-denshi/ib
2055    "Han'you-Denshi/IB detailed glyph-images."
2056    '(long-name "Han'you-Denshi/IB glyph-images"
2057                chars 94
2058                dimension 2
2059                columns 2
2060                graphic 2
2061                direction l2r
2062                registry "HanyoDenshi\\.IB-0$"
2063                mother ==hanyo-denshi/ib))
2064   (make-charset
2065    '===hanyo-denshi/hg
2066    "Han'you-Denshi/HG detailed glyph-images."
2067    '(long-name "Han'you-Denshi/HG glyph-images"
2068                chars 94
2069                dimension 2
2070                columns 2
2071                graphic 2
2072                direction l2r
2073                registry "HanyoDenshi\\.HG-0$"
2074                mother ==hanyo-denshi/hg))
2075   (make-charset
2076    '===hanyo-denshi/ip
2077    "Han'you-Denshi/IP representative glyph-images."
2078    '(long-name "Han'you-Denshi/IP glyph-images"
2079                chars 256
2080                dimension 2
2081                columns 2
2082                graphic 2
2083                direction l2r
2084                registry "HanyoDenshi\\.IP-0$"
2085                mother ==hanyo-denshi/ip))
2086   (make-charset
2087    '===hanyo-denshi/jt
2088    "JT (Juuki Touitsu Moji) detailed glyph-images."
2089    '(long-name "Han'you-Denshi/JT glyph-images"
2090                chars 256
2091                dimension 2
2092                columns 2
2093                graphic 2
2094                direction l2r
2095                registry "HanyoDenshi\\.JT-0$"
2096                mother ==hanyo-denshi/jt))
2097   (make-charset
2098    '===hanyo-denshi/ks
2099    "KoSeki-touitsu-moji detailed glyph-images."
2100    '(long-name "Han'you-Denshi/KS glyph-images"
2101                chars 256
2102                dimension 3
2103                columns 2
2104                graphic 2
2105                direction l2r
2106                mother ==hanyo-denshi/ks))
2107
2108   (make-charset
2109    '=hanyo-denshi/ks/mf
2110    "font encoding for KS (KoSeki) characters"
2111    `(long-name "Han'you-Denshi/KS font encoding"
2112                chars 256
2113                dimension 2
2114                columns 2
2115                graphic 2
2116                direction l2r
2117                registry "HanyoDenshi\\.KSMF-0$"
2118                min-code       ,(lsh #x6403 16)
2119                max-code    ,(+ (lsh #x6403 16) #xFFFF)
2120                code-offset    ,(lsh #x6403 16)))
2121
2122   (make-charset
2123    '===mj
2124    "Moji-Jouhou-Kiban detailed glyph-images."
2125    '(long-name "MJ glyph-images"
2126                chars 256
2127                dimension 2
2128                columns 2
2129                graphic 2
2130                direction l2r
2131                mother ==mj))
2132   (make-charset
2133    '===mj-0
2134    "MJ detailed glyph-images plane 0"
2135    '(long-name "MJ glyph-images-0"
2136                chars 256
2137                dimension 2
2138                columns 2
2139                graphic 2
2140                direction l2r
2141                registry "mj-0$"
2142                mother ===mj
2143                min-code 0
2144                max-code #xFFFF))
2145   (make-charset
2146    '===mj-1
2147    "MJ detailed glyph-images plane 1"
2148    '(long-name "MJ glyph-images-1"
2149                chars 256
2150                dimension 2
2151                columns 2
2152                graphic 2
2153                direction l2r
2154                registry "mj-1$"
2155                mother ===mj
2156                min-code #x10000
2157                code-offset #x10000))
2158
2159   (make-charset
2160    '=+>hanyo-denshi/ft
2161    "Han'you-Denshi/FT abstract glyphs"
2162    '(long-name "Han'you-Denshi/FT glyphs"
2163                chars 94
2164                dimension 2
2165                columns 2
2166                graphic 2
2167                direction l2r
2168                registry "HanyoDenshi\\.FT-0$"
2169                mother =hanyo-denshi/ft))
2170   (make-charset
2171    '=+>hanyo-denshi/jt
2172    "JT (Juuki Touitsu Moji) unified abstract glyphs."
2173    '(long-name "Han'you-Denshi/JT unified glyphs"
2174                chars 256
2175                dimension 2
2176                columns 2
2177                graphic 2
2178                direction l2r
2179                registry "HanyoDenshi\\.JT-0$"
2180                mother =hanyo-denshi/jt))
2181
2182   (make-charset
2183    '=>>mj
2184    "Moji-Jouhou-Kiban abstract glyphs."
2185    '(long-name "MJ glyphs"
2186                chars 256
2187                dimension 2
2188                columns 2
2189                graphic 2
2190                direction l2r
2191                mother =mj))
2192
2193   (make-charset
2194    '=>>hanyo-denshi/ja
2195    "Han'you-Denshi/JA abstract glyphs"
2196    '(long-name "Han'you-Denshi/JA glyphs"
2197                chars 94
2198                dimension 2
2199                columns 2
2200                graphic 2
2201                direction l2r
2202                registry "HanyoDenshi\\.JA-0$"
2203                mother =hanyo-denshi/ja))
2204   (make-charset
2205    '=>>hanyo-denshi/jb
2206    "Han'you-Denshi/JB abstract glyphs"
2207    '(long-name "Han'you-Denshi/JB glyphs"
2208                chars 94
2209                dimension 2
2210                columns 2
2211                graphic 2
2212                direction l2r
2213                registry "HanyoDenshi\\.JB-0$"
2214                mother =hanyo-denshi/jb))
2215   (make-charset
2216    '=>>hanyo-denshi/jc
2217    "Han'you-Denshi/JC abstract glyphs"
2218    '(long-name "Han'you-Denshi/JC glyphs"
2219                chars 94
2220                dimension 2
2221                columns 2
2222                graphic 2
2223                direction l2r
2224                registry "HanyoDenshi\\.JC-0$"
2225                mother =hanyo-denshi/jc))
2226   (make-charset
2227    '=>>hanyo-denshi/jd
2228    "Han'you-Denshi/JD abstract glyphs"
2229    '(long-name "Han'you-Denshi/JD glyphs"
2230                chars 94
2231                dimension 2
2232                columns 2
2233                graphic 2
2234                direction l2r
2235                registry "HanyoDenshi\\.JD-0$"
2236                mother =hanyo-denshi/jd))
2237   (make-charset
2238    '=>>hanyo-denshi/ft
2239    "Han'you-Denshi/FT abstract glyphs"
2240    '(long-name "Han'you-Denshi/FT glyphs"
2241                chars 94
2242                dimension 2
2243                columns 2
2244                graphic 2
2245                direction l2r
2246                registry "HanyoDenshi\\.FT-0$"
2247                mother =hanyo-denshi/ft))
2248   (make-charset
2249    '=>>hanyo-denshi/ia
2250    "Han'you-Denshi/IA abstract glyphs"
2251    '(long-name "Han'you-Denshi/IA glyphs"
2252                chars 94
2253                dimension 2
2254                columns 2
2255                graphic 2
2256                direction l2r
2257                registry "HanyoDenshi\\.IA-0$"
2258                mother =hanyo-denshi/ia))
2259   (make-charset
2260    '=>>hanyo-denshi/ib
2261    "Han'you-Denshi/IB abstract glyphs"
2262    '(long-name "Han'you-Denshi/IB abstract glyphs"
2263                chars 94
2264                dimension 2
2265                columns 2
2266                graphic 2
2267                direction l2r
2268                registry "HanyoDenshi\\.IB-0$"
2269                mother =hanyo-denshi/ib))
2270   (make-charset
2271    '=>>hanyo-denshi/hg
2272    "Han'you-Denshi/HG abstract glyphs"
2273    '(long-name "Han'you-Denshi/HG abstract glyphs"
2274                chars 94
2275                dimension 2
2276                columns 2
2277                graphic 2
2278                direction l2r
2279                registry "HanyoDenshi\\.HG-0$"
2280                mother =hanyo-denshi/hg))
2281   (make-charset
2282    '=>>hanyo-denshi/ip
2283    "Han'you-Denshi/IP abstract glyphs"
2284    '(long-name "Han'you-Denshi/IP abstract glyphs"
2285                chars 256
2286                dimension 2
2287                columns 2
2288                graphic 2
2289                direction l2r
2290                registry "HanyoDenshi\\.IP-0$"
2291                mother =hanyo-denshi/ip))
2292   (make-charset
2293    '=>>hanyo-denshi/jt
2294    "JT (Juuki Touitsu Moji) abstract glyphs"
2295    '(long-name "Han'you-Denshi/JT glyphs"
2296                chars 256
2297                dimension 2
2298                columns 2
2299                graphic 2
2300                direction l2r
2301                registry "HanyoDenshi\\.JT-0$"
2302                mother =hanyo-denshi/jt))
2303   (make-charset
2304    '=>>hanyo-denshi/ks
2305    "Han'you-Denshi/KS abstract glyphs"
2306    '(long-name "Han'you-Denshi/KS glyphs"
2307                chars 256
2308                dimension 3
2309                columns 2
2310                graphic 2
2311                direction l2r
2312                mother =hanyo-denshi/ks))
2313
2314   (make-charset '=gt
2315                 "GT 2000"
2316                 `(long-name     "GT"
2317                   chars         256
2318                   dimension     3
2319                   columns       2
2320                   graphic       2
2321                   direction     l2r
2322                   registry      ""
2323                   min-code      ,(lsh #x6100 16)
2324                   max-code      ,(+ (lsh #x6100 16) 67547)
2325                   code-offset   ,(lsh #x6100 16)))
2326   (make-charset '==gt
2327                 "GT 2000 abstract glyph-forms."
2328                 '(long-name     "GT abstract glyph-forms"
2329                   chars         256
2330                   dimension     3
2331                   columns       2
2332                   graphic       2
2333                   direction     l2r
2334                   mother        =gt))
2335   (make-charset '===gt
2336                 "GT 2000 detailed glyph-images."
2337                 '(long-name     "GT glyph-images"
2338                   chars         256
2339                   dimension     3
2340                   columns       2
2341                   graphic       2
2342                   direction     l2r
2343                   mother        ==gt
2344                   ;; min-code   1
2345                   ;; max-code   67392
2346                   ))
2347   (define-charset-alias 'ideograph-gt '=gt)
2348   (define-charset-alias '=>>>gt '==gt)
2349   (make-charset '=>>gt
2350                 "GT 2000 abstract glyphs"
2351                 '(long-name     "GT abstract glyphs"
2352                   chars         256
2353                   dimension     3
2354                   columns       2
2355                   graphic       2
2356                   direction     l2r
2357                   mother        =gt))
2358   (define-charset-alias '<=>gt '=>>gt)
2359   (define-charset-alias '<==>gt '=>>gt)
2360   (make-charset '=+>gt
2361                 "GT 2000 unified abstract glyphs"
2362                 '(long-name     "Unified abstract GT glyphs"
2363                   chars         256
2364                   dimension     3
2365                   columns       2
2366                   graphic       2
2367                   direction     l2r
2368                   mother        =>>gt))
2369   (make-charset '=>gt
2370                 "GT 2000 abstract characters"
2371                 '(long-name     "abstract GT characters"
2372                   chars         256
2373                   dimension     3
2374                   columns       2
2375                   graphic       2
2376                   direction     l2r
2377                   mother        =+>gt))
2378   (make-charset '=gt-k
2379                 "Ideographic components of GT"
2380                 `(long-name     "GT components"
2381                   chars         256
2382                   dimension     2
2383                   columns       2
2384                   graphic       2
2385                   direction     l2r
2386                   registry      ""
2387                   min-code      ,(lsh #x6110 16)
2388                   max-code      ,(+ (lsh #x6110 16) 17090)
2389                   code-offset   ,(lsh #x6110 16)))
2390   (define-charset-alias 'ideograph-gt-k '=gt-k)
2391   (make-charset '==gt-k
2392                 "Abstract glyph-images of GT-K"
2393                 '(long-name     "GT-K glyph-images"
2394                   chars         256
2395                   dimension     2
2396                   columns       2
2397                   graphic       2
2398                   direction     l2r
2399                   mother        =gt-k))
2400   (make-charset '===gt-k
2401                 "Representative glyph-images of GT-K"
2402                 '(long-name     "GT-K glyph-images"
2403                   chars         256
2404                   dimension     2
2405                   columns       2
2406                   graphic       2
2407                   direction     l2r
2408                   mother        ==gt-k))
2409   (make-charset '=>>gt-k
2410                 "abstract glyphs of GT-K"
2411                 '(long-name     "GT-K abstract glyphs"
2412                   chars         256
2413                   dimension     2
2414                   columns       2
2415                   graphic       2
2416                   direction     l2r
2417                   mother        =gt-k))
2418   (make-charset '=>gt-k
2419                 "GT-K abstract characters"
2420                 '(long-name     "GT-K abstract characters"
2421                   chars         256
2422                   dimension     2
2423                   columns       2
2424                   graphic       2
2425                   direction     l2r
2426                   mother        =>>gt-k))
2427   (let ((i 1))
2428     (while (<= i 11)
2429       (make-charset
2430        (intern (format "=gt-pj-%d" i))
2431        (format "GT 2000 (pseudo JIS encoding) part %d" i)
2432        `(long-name ,(format "GT PJ %d" i)
2433                    chars 94
2434                    dimension 2
2435                    columns 2
2436                    graphic 0
2437                    direction l2r
2438                    registry ,(format "\\(GTpj-%d\\|jisx0208\\.GT-%d\\)$" i i)))
2439       (define-charset-alias
2440         (intern (format "ideograph-gt-pj-%d" i))
2441         (intern (format "=gt-pj-%d" i)))
2442       (setq i (1+ i))))
2443   (make-charset
2444    '=gt-pj-k1
2445    "Ideographic parts of GT (pseudo JIS encoding) part 1"
2446    '(long-name "GT K1"
2447                chars 94
2448                dimension 2
2449                columns 2
2450                graphic 0
2451                direction l2r
2452                registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$"))
2453   (define-charset-alias 'ideograph-gt-pj-k1 '=gt-pj-k1)
2454   (make-charset
2455    '=gt-pj-k2
2456    "Ideographic parts of GT (pseudo JIS encoding) part 2"
2457    '(long-name "GT K2"
2458                chars 94
2459                dimension 2
2460                columns 2
2461                graphic 0
2462                direction l2r
2463                registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$"))
2464   (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2)
2465
2466   (make-charset '=daikanwa
2467                 "Daikanwa dictionary (unchanged part)"
2468                 `(long-name     "Daikanwa"
2469                   chars         256
2470                   dimension     2
2471                   columns       2
2472                   graphic       2
2473                   direction     l2r
2474                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2475                   min-code      #xE00000
2476                   max-code      ,(+ #xE00000 50100)
2477                   code-offset   #xE00000))
2478   (define-charset-alias 'ideograph-daikanwa '=daikanwa)
2479
2480   (make-charset '=daikanwa@rev1
2481                 "Daikanwa dictionary (revised version)"
2482                 '(long-name     "Daikanwa Rev."
2483                   chars         256
2484                   dimension     2
2485                   columns       2
2486                   graphic       2
2487                   direction     l2r
2488                   registry      "Daikanwa\\(\\.[0-9]+\\)?-2"
2489                   mother        =daikanwa))
2490   (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa@rev1)
2491   (define-charset-alias '=daikanwa-rev1 '=daikanwa@rev1)
2492
2493   (make-charset '=daikanwa@rev2
2494                 "Daikanwa dictionary (revised version 2)"
2495                 '(long-name     "Daikanwa"
2496                   chars         256
2497                   dimension     2
2498                   columns       2
2499                   graphic       2
2500                   direction     l2r
2501                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2502                   mother        =daikanwa
2503                   min-code      1
2504                   max-code      49964))
2505   (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2)
2506
2507   (make-charset '=daikanwa/+p
2508                 "Daikanwa dictionary (ddddd')"
2509                 '(long-name     "Daikanwa ddddd'"
2510                   chars         256
2511                   dimension     2
2512                   columns       2
2513                   graphic       2
2514                   direction     l2r))
2515   (make-charset '=daikanwa/+2p
2516                 "Daikanwa dictionary (ddddd'')"
2517                 '(long-name     "Daikanwa ddddd''"
2518                   chars         256
2519                   dimension     2
2520                   columns       2
2521                   graphic       2
2522                   direction     l2r))
2523   (make-charset '=daikanwa/ho
2524                 "Daikanwa dictionary (Hokan)"
2525                 '(long-name     "Daikanwa-ho"
2526                   chars         256
2527                   dimension     2
2528                   columns       2
2529                   graphic       2
2530                   direction     l2r))
2531
2532   (make-charset '==daikanwa
2533                 "Daikanwa glyph-images."
2534                 '(long-name     "Daikanwa glyph-images"
2535                   chars         256
2536                   dimension     2
2537                   columns       2
2538                   graphic       2
2539                   direction     l2r
2540                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2541                   mother        =daikanwa))
2542   (make-charset '==daikanwa/+p
2543                 "Daikanwa detailed glyph-images (ddddd')"
2544                 '(long-name     "Daikanwa detailed glyphs-images (ddddd')"
2545                   chars         256
2546                   dimension     2
2547                   columns       2
2548                   graphic       2
2549                   direction     l2r
2550                   mother        =daikanwa/+p))
2551   (make-charset '==daikanwa/ho
2552                 "Daikanwa detailed glyph-images (Hokan)"
2553                 '(long-name     "Daikanwa-ho detailed glyph-images"
2554                   chars         256
2555                   dimension     2
2556                   columns       2
2557                   graphic       2
2558                   direction     l2r
2559                   mother        =daikanwa/ho))
2560
2561   (make-charset '===daikanwa
2562                 "Daikanwa detailed glyph-images."
2563                 '(long-name     "Daikanwa detailed glyph-images"
2564                   chars         256
2565                   dimension     2
2566                   columns       2
2567                   graphic       2
2568                   direction     l2r
2569                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2570                   mother        ==daikanwa))
2571   (make-charset '===daikanwa/+p
2572                 "Daikanwa detailed glyph-images (ddddd')"
2573                 '(long-name     "Daikanwa detailed glyphs-images (ddddd')"
2574                   chars         256
2575                   dimension     2
2576                   columns       2
2577                   graphic       2
2578                   direction     l2r
2579                   mother        ==daikanwa/+p))
2580   (make-charset '===daikanwa/ho
2581                 "Daikanwa detailed glyph-images (Hokan)"
2582                 '(long-name     "Daikanwa-ho detailed glyph-images"
2583                   chars         256
2584                   dimension     2
2585                   columns       2
2586                   graphic       2
2587                   direction     l2r
2588                   mother        ==daikanwa/ho))
2589
2590   (make-charset '=>>daikanwa
2591                 "Daikanwa abstract glyphs"
2592                 '(long-name     "Daikanwa glyphs"
2593                   chars         256
2594                   dimension     2
2595                   columns       2
2596                   graphic       2
2597                   direction     l2r
2598                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2599                   mother        =daikanwa))
2600   (make-charset '=>>daikanwa/+p
2601                 "Daikanwa abstract glyphs (ddddd')"
2602                 '(long-name     "Daikanwa glyphs (ddddd')"
2603                   chars         256
2604                   dimension     2
2605                   columns       2
2606                   graphic       2
2607                   direction     l2r
2608                   mother        =daikanwa/+p))
2609   (make-charset '=>>daikanwa/+2p
2610                 "Daikanwa abstract glyphs (ddddd'')"
2611                 '(long-name     "Daikanwa glyphs (ddddd'')"
2612                   chars         256
2613                   dimension     2
2614                   columns       2
2615                   graphic       2
2616                   direction     l2r
2617                   mother        =daikanwa/+2p))
2618   (make-charset '=>>daikanwa/ho
2619                 "Daikanwa abstract glyphs (Hokan)"
2620                 '(long-name     "Daikanwa-ho glyph"
2621                   chars         256
2622                   dimension     2
2623                   columns       2
2624                   graphic       2
2625                   direction     l2r
2626                   mother        =daikanwa/ho))
2627
2628   (make-charset '=>daikanwa
2629                 "Daikanwa abstract characters"
2630                 '(long-name     "abstract Daikanwa"
2631                   chars         256
2632                   dimension     2
2633                   columns       2
2634                   graphic       2
2635                   direction     l2r
2636                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
2637                   mother        =>>daikanwa))
2638   (make-charset '=>daikanwa/ho
2639                 "Daikanwa abstract characters (Hokan)"
2640                 '(long-name     "abstract Daikanwa-ho"
2641                   chars         256
2642                   dimension     2
2643                   columns       2
2644                   graphic       2
2645                   direction     l2r
2646                   mother        =>>daikanwa/ho))
2647
2648   (make-charset '=shinjigen
2649                 "Kadokawa ShinJigen dictionary (common parts)"
2650                 `(long-name     "Shinjigen common parts"
2651                   chars         256
2652                   dimension     2
2653                   columns       2
2654                   graphic       2
2655                   direction     l2r
2656                   registry      "Shinjigen\\(\\.[0-9]+\\)?-*"))
2657
2658   (make-charset '=shinjigen@1ed
2659                 "Kadokawa ShinJigen dictionary (the first edition)"
2660                 `(long-name     "Shinjigen-1"
2661                   chars         256
2662                   dimension     2
2663                   columns       2
2664                   graphic       2
2665                   direction     l2r
2666                   mother        =shinjigen
2667                   registry      "Shinjigen\\(\\.[0-9]+\\)?-1"))
2668   (define-charset-alias 'shinjigen-1 '=shinjigen@1ed)
2669
2670   (make-charset '=shinjigen@1ed/24pr
2671                 "Kadokawa ShinJigen dictionary (the 24th impression)"
2672                 `(long-name     "Shinjigen-1 24pr"
2673                   chars         256
2674                   dimension     2
2675                   columns       2
2676                   graphic       2
2677                   direction     l2r
2678                   mother        =shinjigen@1ed))
2679
2680   (make-charset '=shinjigen@rev
2681                 "Kadokawa ShinJigen dictionary (the revised edition)"
2682                 `(long-name     "Shinjigen-2"
2683                   chars         256
2684                   dimension     2
2685                   columns       2
2686                   graphic       2
2687                   direction     l2r
2688                   mother        =shinjigen
2689                   registry      "Shinjigen\\(\\.[0-9]+\\)?-2"))
2690   (define-charset-alias 'shinjigen-2 '=shinjigen@rev)
2691   (make-charset '=shinjigen/+p@rev
2692                 "ShinJigen (the second edition) number with '"
2693                 `(long-name     "Shinjigen-2 with '"
2694                   chars         256
2695                   dimension     2
2696                   columns       2
2697                   graphic       2
2698                   direction     l2r))
2699   (define-charset-alias 'shinjigen-2-p '=shinjigen/+p@rev)
2700
2701   (make-charset '==shinjigen
2702                 "Detailed glyph-images of ShinJigen (common parts)"
2703                 '(long-name     "Shinjigen common parts"
2704                   chars         256
2705                   dimension     2
2706                   columns       2
2707                   graphic       2
2708                   direction     l2r
2709                   mother        =shinjigen
2710                   registry      "Shinjigen\\(\\.[0-9]+\\)?-*"))
2711   (make-charset '==shinjigen@1ed
2712                 "Detailed glyph-images of ShinJigen (the first edition)"
2713                 '(long-name     "Detailed glyph-images of Shinjigen-1"
2714                   chars         256
2715                   dimension     2
2716                   columns       2
2717                   graphic       2
2718                   direction     l2r
2719                   mother        ==shinjigen
2720                   registry      "Shinjigen\\(\\.[0-9]+\\)?-1"))
2721   (make-charset '==shinjigen@rev
2722                 "Detailed glyph-images of ShinJigen (the revised edition)"
2723                 '(long-name     "Detailed glyph-images of Shinjigen-2"
2724                   chars         256
2725                   dimension     2
2726                   columns       2
2727                   graphic       2
2728                   direction     l2r
2729                   mother        ==shinjigen
2730                   registry      "Shinjigen\\(\\.[0-9]+\\)?-2"))
2731   (make-charset
2732    '==shinjigen/+p@rev
2733    "Detailed glyph-images of ShinJigen (the second edition) number with '"
2734    '(long-name  "Detailed glyph-images of Shinjigen-2 with '"
2735                 mother  =shinjigen/+p@rev
2736                 chars           256
2737                 dimension       2
2738                 columns 2
2739                 graphic 2
2740                 direction       l2r))
2741
2742   (make-charset '=big5-pua
2743                 "Big5 with private used area"
2744                 '(long-name     "Big5-PUA"
2745                   chars         256
2746                   dimension     2
2747                   columns       2
2748                   graphic       2
2749                   direction     l2r
2750                   mother        chinese-big5
2751                   registry      "Big5\\.ETEN"))
2752   (define-charset-alias 'chinese-big5-pua '=big5-pua)
2753
2754   (let* ((i 1)
2755          (hzk-min (+ (lsh #x6200 16) 65536))
2756          (hzk-max (+ hzk-min 65535)))
2757     (while (<= i 12)
2758       (make-charset
2759        (intern (format "=hanziku-%d" i))
2760        (format "HANZIKU (pseudo BIG5 encoding) part %d" i)
2761        `(long-name ,(format "HANZIKU-%d" i)
2762                    chars 256
2763                    dimension 2
2764                    columns 2
2765                    graphic 2
2766                    direction l2r
2767                    registry ,(format "hanziku-%d$" i i)
2768                    min-code ,hzk-min
2769                    max-code ,hzk-max
2770                    code-offset ,hzk-min))
2771       (define-charset-alias
2772         (intern (format "ideograph-hanziku-%d" i))
2773         (intern (format "=hanziku-%d" i)))
2774       (setq hzk-min (1+ hzk-max)
2775             hzk-max (+ hzk-min 65535))
2776       (setq i (1+ i))))
2777
2778   (make-charset '=cbeta "CBETA private characters"
2779                 '(long-name     "CBETA PUA"
2780                   chars         256
2781                   dimension     2
2782                   registry      "cbeta-0"
2783                   graphic       2
2784                   min-code      #xE20000
2785                   max-code      #xE2FFFF
2786                   code-offset   #xE20000
2787                   columns       2
2788                   direction     l2r))
2789   (define-charset-alias 'ideograph-cbeta '=cbeta)
2790   (make-charset '==cbeta "CBETA private characters"
2791                 '(long-name     "CBETA PUA glyph-images"
2792                   chars         256
2793                   dimension     2
2794                   registry      "cbeta-0"
2795                   graphic       2
2796                   columns       2
2797                   direction     l2r
2798                   mother        =cbeta))
2799   (make-charset '===cbeta "CBETA private characters"
2800                 '(long-name     "CBETA PUA glyph-images"
2801                   chars         256
2802                   dimension     2
2803                   registry      "cbeta-0"
2804                   graphic       2
2805                   columns       2
2806                   direction     l2r
2807                   mother        ==cbeta))
2808   (make-charset '=>>cbeta "CBETA abstract glyphs"
2809                 '(long-name     "CBETA glyphs"
2810                   chars         256
2811                   dimension     2
2812                   registry      "cbeta-0"
2813                   graphic       2
2814                   columns       2
2815                   direction     l2r
2816                   mother        =cbeta))
2817   (make-charset '=>cbeta "CBETA abstract characters"
2818                 '(long-name     "CBETA characters"
2819                   chars         256
2820                   dimension     2
2821                   registry      "cbeta-0"
2822                   graphic       2
2823                   columns       2
2824                   direction     l2r
2825                   mother        =cbeta))
2826
2827   (make-charset '=zinbun-oracle
2828                 "Oracle Bones Script"
2829                 `(long-name     "Oracle Bones Script in Zinbun, Kyoto Univ."
2830                   chars         256
2831                   dimension     2
2832                   registry      "zob1968-0"
2833                   graphic       2
2834                   min-code      #xE70000
2835                   max-code      ,(+ #xE70000 8192)
2836                   code-offset   #xE70000
2837                   columns       2
2838                   direction     l2r))
2839
2840   (make-charset '=>zinbun-oracle
2841                 "Abstract Oracle Bones"
2842                 '(long-name     "Abstract characters of Zinbun Oracle Bones."
2843                   chars         256
2844                   dimension     2
2845                   mother        =zinbun-oracle
2846                   registry      "zob1968-0"
2847                   graphic       2
2848                   columns       2
2849                   direction     l2r))
2850
2851   (make-charset '=jef-china3
2852                 "JEF + CHINA3 private characters"
2853                 '(long-name     "JEF + CHINA3"
2854                   chars         256
2855                   dimension     2
2856                   columns       2
2857                   graphic       2
2858                   direction     l2r
2859                   registry      "china3jef-0"
2860                   min-code      #xE80000
2861                   max-code      #xE8FFFF
2862                   code-offset   #xE80000))
2863   (define-charset-alias 'china3-jef '=jef-china3)
2864   (make-charset '==jef-china3
2865                 "JEF + CHINA3 abstract glyph-images."
2866                 '(long-name     "JEF + CHINA3"
2867                   chars         256
2868                   dimension     2
2869                   columns       2
2870                   graphic       2
2871                   direction     l2r
2872                   registry      "china3jef-0"
2873                   mother        =jef-china3))
2874   (make-charset '===jef-china3
2875                 "JEF + CHINA3 glyph-images."
2876                 '(long-name     "JEF-CHINA3 glyph-images"
2877                   chars         256
2878                   dimension     2
2879                   columns       2
2880                   graphic       2
2881                   direction     l2r
2882                   registry      "china3jef-0"
2883                   mother        ==jef-china3))
2884
2885   (make-charset '=ruimoku-v6
2886                 "private characters used in RUIMOKU Version.6"
2887                 `(long-name     "RUI6"
2888                   chars         256
2889                   dimension     2
2890                   columns       2
2891                   graphic       2
2892                   direction     l2r
2893                   registry      "rui6-0"
2894                   ;; mother     ucs
2895                   min-code      #xE90000 ; #xE000
2896                   max-code      #xE908FF ; #xE8FF
2897                   code-offset   ,(- #xE90000 #xE000)))
2898   (make-charset '==ruimoku-v6
2899                 "RUIMOKU Version.6 glyph-images."
2900                 '(long-name     "RUI6 glyph-images."
2901                   chars         256
2902                   dimension     2
2903                   columns       2
2904                   graphic       2
2905                   direction     l2r
2906                   registry      "rui6-0"
2907                   mother        =ruimoku-v6))
2908   (make-charset '===ruimoku-v6
2909                 "RUIMOKU Version.6 representative glyph-images."
2910                 '(long-name     "RUI6 rep-glyph-images."
2911                   chars         256
2912                   dimension     2
2913                   columns       2
2914                   graphic       2
2915                   direction     l2r
2916                   registry      "rui6-0"
2917                   mother        ==ruimoku-v6))
2918   (make-charset '=>>ruimoku-v6
2919                 "RUIMOKU Version.6 glyphs"
2920                 '(long-name     "RUI6 glyphs"
2921                   chars         256
2922                   dimension     2
2923                   columns       2
2924                   graphic       2
2925                   direction     l2r
2926                   registry      "rui6-0"
2927                   mother        =ruimoku-v6))
2928
2929   ;; (make-charset
2930   ;;  '=zihai
2931   ;;  "ZhongHua-ZiHai glyph-images"
2932   ;;  '(long-name "ZhongHua-ZiHai (pppp-nn)"
2933   ;;              chars 256
2934   ;;              dimension 3
2935   ;;              columns 2
2936   ;;              graphic 2
2937   ;;              direction l2r))
2938
2939   ;; (make-charset
2940   ;;  '=zihai-17xx
2941   ;;  "ZhongHua-ZiHai (pp.1700\e$B!A\e(B1781) glyph-images"
2942   ;;  '(long-name "ZhongHua-ZiHai pp.17xx"
2943   ;;              chars 256
2944   ;;              dimension 2
2945   ;;              columns 2
2946   ;;              graphic 2
2947   ;;              direction l2r
2948   ;;              registry "zihai\\.cp-17$"))
2949
2950   (make-charset '=big5-cdp-var-3
2951                 "Big5-CDP-var-3 glyph-images of GlyphWiki"
2952                 '(long-name     "Big5-CDP-var-3"
2953                   chars         256
2954                   dimension     2
2955                   columns       2
2956                   graphic       2
2957                   direction     l2r
2958                   registry      "cdp\\.var-3$"
2959                   mother        =big5-cdp))
2960
2961   (make-charset '=big5-cdp-var-5
2962                 "Big5-CDP-var-5 glyph-images of GlyphWiki"
2963                 '(long-name     "Big5-CDP-var-5"
2964                   chars         256
2965                   dimension     2
2966                   columns       2
2967                   graphic       2
2968                   direction     l2r
2969                   registry      "cdp\\.var-5$"
2970                   mother        =big5-cdp))
2971
2972   (make-charset '==>ucs@bucs
2973                 "Basic Subset of Coded Character Sets (BUCS)"
2974                 '(long-name     "BUCS abstract characters"
2975                   chars         256
2976                   dimension     3
2977                   columns       2
2978                   graphic       2
2979                   direction     l2r
2980                   =>iso-ir      177
2981                   mother        =ucs))
2982
2983   (make-charset '=>iwds-1
2984                 "The IRG Working Document Series 1: List of UCV of Ideograhs."
2985                 '(long-name     "IWDS 1: List of UCV"
2986                   chars         256
2987                   dimension     2
2988                   columns       2
2989                   graphic       2
2990                   direction     l2r))
2991
2992   (make-charset '=>ucs@component
2993                 "UCS encoding for abstract components of IWDS-1."
2994                 '(long-name     "UCS for IWDS-1 abstract components"
2995                   chars         256
2996                   dimension     3
2997                   columns       2
2998                   graphic       2
2999                   direction     l2r
3000                   =>iso-ir      177
3001                   mother        =ucs))
3002
3003   (make-charset '=>ucs@hanyo-denshi
3004                 "UCS abstract characters based on Han'you-Denshi collection."
3005                 '(long-name     "UCS base characters of Han'you-Denshi"
3006                   chars         256
3007                   dimension     3
3008                   columns       2
3009                   graphic       2
3010                   direction     l2r
3011                   =>iso-ir      177
3012                   mother        =ucs))
3013
3014   (make-charset '=>ucs@iso
3015                 "Abstract characters of ISO/IEC 10646 representatives"
3016                 '(long-name     "UCS characters for ISO"
3017                   chars         256
3018                   dimension     3
3019                   columns       2
3020                   graphic       2
3021                   direction     l2r
3022                   =>iso-ir      177
3023                   mother        =ucs))
3024   (make-charset '=>ucs@unicode
3025                 "Abstract characters of Unicode representatives"
3026                 '(long-name     "UCS characters for Unicode"
3027                   chars         256
3028                   dimension     3
3029                   columns       2
3030                   graphic       2
3031                   direction     l2r
3032                   =>iso-ir      177
3033                   mother        =>ucs@iso))
3034   (make-charset '=>ucs@jis
3035                 "UCS representative characters for JIS X0208/0212/0213"
3036                 '(long-name     "UCS characters for JIS"
3037                   chars         256
3038                   dimension     3
3039                   columns       2
3040                   graphic       2
3041                   direction     l2r
3042                   =>iso-ir      177
3043                   mother        =>ucs@unicode))
3044   (make-charset '=>ucs@ks
3045                 "UCS representative characters for Korean Standards"
3046                 '(long-name     "UCS characters for KS"
3047                   chars         256
3048                   dimension     3
3049                   columns       2
3050                   graphic       2
3051                   direction     l2r
3052                   =>iso-ir      177
3053                   mother        =>ucs@unicode))
3054   (make-charset '=>ucs@cns
3055                 "UCS representatives characters for CNS 11643 sources"
3056                 '(long-name     "UCS characters for CNS 11643"
3057                   chars         256
3058                   dimension     3
3059                   columns       2
3060                   graphic       2
3061                   direction     l2r
3062                   =>iso-ir      177
3063                   mother        =>ucs@unicode))
3064
3065   (make-charset '=+>ucs@iso
3066                 "UCS based on ISO/IEC 10646 representative glyphs"
3067                 '(long-name     "Unified abstract glyphs of UCS"
3068                   chars         256
3069                   dimension     3
3070                   columns       2
3071                   graphic       2
3072                   direction     l2r
3073                   =>iso-ir      177
3074                   mother        =>ucs@iso))
3075   (make-charset '=+>ucs@unicode
3076                 "Unicode representative unified abstract glyphs"
3077                 '(long-name     "UCS unified abstract glyphs for Unicode"
3078                   chars         256
3079                   dimension     3
3080                   columns       2
3081                   graphic       2
3082                   direction     l2r
3083                   =>iso-ir      177
3084                   mother        =+>ucs@iso))
3085   (make-charset '=+>ucs@jis
3086                 "UCS based on Japanese usual unification"
3087                 '(long-name     "UCS unified abstract glyphs for JP"
3088                   chars         256
3089                   dimension     3
3090                   columns       2
3091                   graphic       2
3092                   direction     l2r
3093                   =>iso-ir      177
3094                   mother        =+>ucs@unicode))
3095   (define-charset-alias '=>ucs@JP '=+>ucs@jis)
3096   (make-charset '=+>ucs@jis/1990
3097                 "UCS representative characters for JIS X0208/0212:1990"
3098                 '(long-name     "UCS characters for JIS:1990"
3099                   chars         256
3100                   dimension     3
3101                   columns       2
3102                   graphic       2
3103                   direction     l2r
3104                   =>iso-ir      177
3105                   mother        =+>ucs@jis))
3106   (define-charset-alias '=>ucs@jis/1990 '=+>ucs@jis/1990)
3107   (make-charset '=+>ucs@jis/2004
3108                 "UCS representative characters for JIS X 0213:2004"
3109                 '(long-name     "UCS characters for JIS:2004"
3110                   chars         256
3111                   dimension     3
3112                   columns       2
3113                   graphic       2
3114                   direction     l2r
3115                   =>iso-ir      177
3116                   mother        =+>ucs@jis))
3117   (make-charset '=+>ucs@ks
3118                 "UCS representative unified abstract glyphs for Korean Standards"
3119                 '(long-name     "UCS unified abstract glyphs for KS"
3120                   chars         256
3121                   dimension     3
3122                   columns       2
3123                   graphic       2
3124                   direction     l2r
3125                   =>iso-ir      177
3126                   mother        =+>ucs@unicode))
3127   (make-charset '=+>ucs@cns
3128                 "UCS representatives unified abstract glyphs for CNS 11643 sources"
3129                 '(long-name     "UCS unified abstract glyphs for CNS"
3130                   chars         256
3131                   dimension     3
3132                   columns       2
3133                   graphic       2
3134                   direction     l2r
3135                   =>iso-ir      177
3136                   mother        =+>ucs@unicode))
3137
3138   (make-charset '=ucs@iso
3139                 "ISO/IEC 10646 for its representative glyphs"
3140                 '(long-name     "UCS for ISO"
3141                   chars         256
3142                   dimension     3
3143                   columns       2
3144                   graphic       2
3145                   direction     l2r
3146                   =>iso-ir      177
3147                   mother        =+>ucs@iso
3148                   ))
3149   (make-charset '=ucs@unicode
3150                 "Unicode for its representative glyphs"
3151                 '(long-name     "UCS for Unicode"
3152                   chars         256
3153                   dimension     3
3154                   columns       2
3155                   graphic       2
3156                   direction     l2r
3157                   =>iso-ir      177
3158                   mother        =ucs@iso))
3159   (make-charset '=ucs@gb
3160                 "ISO/IEC 10646 for GB"
3161                 '(long-name     "UCS for GB"
3162                   chars         256
3163                   dimension     3
3164                   columns       2
3165                   graphic       2
3166                   direction     l2r
3167                   =>iso-ir      177
3168                   mother        =ucs@unicode))
3169   (define-charset-alias 'ucs-gb '=ucs@gb)
3170   (make-charset '=ucs@gb/fw
3171                 "ISO/IEC 10646 for GB with fullwidth"
3172                 '(long-name     "UCS for GB-fullwidth"
3173                   chars         256
3174                   dimension     3
3175                   columns       2
3176                   graphic       2
3177                   direction     l2r
3178                   =>iso-ir      177
3179                   mother        =ucs@gb))
3180   (make-charset '=ucs-bmp@gb
3181                 "ISO/IEC 10646 BMP for GB"
3182                 '(long-name     "BMP for GB"
3183                   chars         256
3184                   dimension     3
3185                   columns       2
3186                   graphic       2
3187                   direction     l2r
3188                   mother        =ucs@gb
3189                   min-code      #x0000
3190                   max-code      #xFFFF))
3191   (make-charset '=ucs@cns
3192                 "ISO/IEC 10646 for CNS 11643"
3193                 '(long-name     "UCS for CNS"
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-cns '=ucs@cns)
3202   (make-charset '=ucs@cns/fw
3203                 "ISO/IEC 10646 for CNS 11643 with fullwidth"
3204                 '(long-name     "UCS for CNS-fullwidth"
3205                   chars         256
3206                   dimension     3
3207                   columns       2
3208                   graphic       2
3209                   direction     l2r
3210                   =>iso-ir      177
3211                   mother        =ucs@cns))
3212   (make-charset '=ucs-bmp@cns
3213                 "ISO/IEC 10646 BMP for CNS"
3214                 '(long-name     "BMP for CNS"
3215                   chars         256
3216                   dimension     3
3217                   columns       2
3218                   graphic       2
3219                   direction     l2r
3220                   mother        =ucs@cns
3221                   min-code      #x0000
3222                   max-code      #xFFFF))
3223   (make-charset '=ucs@jis
3224                 "ISO/IEC 10646 for JIS X0208/0212/0213"
3225                 '(long-name     "UCS for JIS"
3226                   chars         256
3227                   dimension     3
3228                   columns       2
3229                   graphic       2
3230                   direction     l2r
3231                   =>iso-ir      177
3232                   mother        =ucs@unicode))
3233   (define-charset-alias 'ucs-jis '=ucs@jis)
3234   (make-charset '=ucs@jis/fw
3235                 "ISO/IEC 10646 for JIS X0208/0212/0213 with fullwidth"
3236                 '(long-name     "UCS for JIS-fullwidth"
3237                   chars         256
3238                   dimension     3
3239                   columns       2
3240                   graphic       2
3241                   direction     l2r
3242                   =>iso-ir      177
3243                   mother        =ucs@jis))
3244   (make-charset '=ucs-bmp@jis
3245                 "ISO/IEC 10646 BMP for JIS"
3246                 '(long-name     "BMP for JIS"
3247                   chars         256
3248                   dimension     3
3249                   columns       2
3250                   graphic       2
3251                   direction     l2r
3252                   mother        =ucs@jis
3253                   min-code      #x0000
3254                   max-code      #xFFFF))
3255   ;; (make-charset '=ucs@jis/1983
3256   ;;               "ISO/IEC 10646 for JIS X 0208:1983"
3257   ;;               '(long-name     "UCS for JIS:1983"
3258   ;;                 chars         256
3259   ;;                 dimension     3
3260   ;;                 columns       2
3261   ;;                 graphic       2
3262   ;;                 direction     l2r
3263   ;;                 =>iso-ir      177
3264   ;;                 mother        =ucs@jis))
3265   (make-charset '=ucs@jis/1990
3266                 "ISO/IEC 10646 for JIS X 0208/0212:1990"
3267                 '(long-name     "UCS for JIS:1990"
3268                   chars         256
3269                   dimension     3
3270                   columns       2
3271                   graphic       2
3272                   direction     l2r
3273                   =>iso-ir      177
3274                   mother        =ucs@jis))
3275   (define-charset-alias '=ucs@jis-1990 '=ucs@jis/1990)
3276   (define-charset-alias '=ucs-jis-1990 '=ucs@jis/1990)
3277   (make-charset '=ucs@jis/2000
3278                 "ISO/IEC 10646 for JIS X 0213:2000"
3279                 '(long-name     "UCS for JIS:2000"
3280                   chars         256
3281                   dimension     3
3282                   columns       2
3283                   graphic       2
3284                   direction     l2r
3285                   =>iso-ir      177
3286                   mother        =ucs@jis))
3287   (define-charset-alias '=ucs@jis-2000 '=ucs@jis/2000)
3288   (define-charset-alias '=ucs-jis-2000 '=ucs@jis/2000)
3289   (make-charset '=ucs@jis/2004
3290                 "ISO/IEC 10646 for JIS X 0213:2004"
3291                 '(long-name     "UCS for JIS:2004"
3292                   chars         256
3293                   dimension     3
3294                   columns       2
3295                   graphic       2
3296                   direction     l2r
3297                   =>iso-ir      177
3298                   mother        =ucs@jis))
3299   (make-charset '=ucs@JP
3300                 "UCS for common glyphs used in Japan"
3301                 '(long-name     "UCS for Japan"
3302                   chars         256
3303                   dimension     3
3304                   columns       2
3305                   graphic       2
3306                   direction     l2r
3307                   =>iso-ir      177
3308                   mother        =ucs@jis/2004))
3309   (define-charset-alias '=ucs@jp '=ucs@JP)
3310   (make-charset '=ucs@JP/hanazono
3311                 "Japanese glyph-images of Hanazono Mincho"
3312                 '(long-name     "UCS for Hana-Min"
3313                   chars         256
3314                   dimension     3
3315                   columns       2
3316                   graphic       2
3317                   direction     l2r
3318                   =>iso-ir      177
3319                   mother        =ucs@JP))
3320   (make-charset '=ucs@ks
3321                 "ISO/IEC 10646 for Korean Standards"
3322                 '(long-name     "UCS for KS"
3323                   chars         256
3324                   dimension     3
3325                   columns       2
3326                   graphic       2
3327                   direction     l2r
3328                   =>iso-ir      177
3329                   mother        =ucs@unicode))
3330   (define-charset-alias 'ucs-ks '=ucs@ks)
3331   (make-charset '=ucs@ks/2012
3332                 "Mapping for Korean Standards in ISO/IEC 10646:2012"
3333                 '(long-name     "UCS:2012 for KS"
3334                   chars         256
3335                   dimension     3
3336                   columns       2
3337                   graphic       2
3338                   direction     l2r
3339                   =>iso-ir      177
3340                   mother        =ucs@ks))
3341   (make-charset '=ucs-bmp@ks
3342                 "ISO/IEC 10646 BMP for KS"
3343                 '(long-name     "BMP for KS"
3344                   chars         256
3345                   dimension     3
3346                   columns       2
3347                   graphic       2
3348                   direction     l2r
3349                   mother        =ucs@ks
3350                   min-code      #x0000
3351                   max-code      #xFFFF))
3352   (make-charset '=ucs@cns11643
3353                 "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw"
3354                 '(long-name     "UCS for CNS11643"
3355                   chars         256
3356                   dimension     3
3357                   columns       2
3358                   graphic       2
3359                   direction     l2r
3360                   =>iso-ir      177
3361                   mother        =ucs@cns))
3362   (make-charset '=ucs@big5
3363                 "ISO/IEC 10646 for Big5"
3364                 '(long-name     "UCS for Big5"
3365                   chars         256
3366                   dimension     3
3367                   columns       2
3368                   graphic       2
3369                   direction     l2r
3370                   =>iso-ir      177
3371                   mother        =ucs@cns
3372                   ;; mother     =>>ucs@cns
3373                   ))
3374   (define-charset-alias 'ucs-big5 '=ucs@big5)
3375   (make-charset '=ucs@big5/cns11643
3376                 "ISO/IEC 10646 for Big5 based on www.cns11643.gov.tw"
3377                 '(long-name     "UCS for Big5@CNS11643"
3378                   chars         256
3379                   dimension     3
3380                   columns       2
3381                   graphic       2
3382                   direction     l2r
3383                   =>iso-ir      177
3384                   mother        =ucs@big5))
3385
3386   (make-charset '=>>ucs@iso
3387                 "Representative abstract-glyphs of ISO/IEC 10646"
3388                 '(long-name     "UCS abstract glyphs for UCS"
3389                   chars         256
3390                   dimension     3
3391                   columns       2
3392                   graphic       2
3393                   direction     l2r
3394                   =>iso-ir      177
3395                   mother        =ucs@iso))
3396   (make-charset '=>>ucs@unicode
3397                 "Representative abstract-glyphs of Unicode"
3398                 '(long-name     "Unicode abstract glyphs"
3399                   chars         256
3400                   dimension     3
3401                   columns       2
3402                   graphic       2
3403                   direction     l2r
3404                   =>iso-ir      177
3405                   mother        =>>ucs@iso))
3406   (make-charset '=>>ucs@jis
3407                 "UCS Representative abstract-glyphs for JIS X0208/0212/0213"
3408                 '(long-name     "UCS abstract glyphs for JIS"
3409                   chars         256
3410                   dimension     3
3411                   columns       2
3412                   graphic       2
3413                   direction     l2r
3414                   =>iso-ir      177
3415                   mother        =>>ucs@unicode))
3416   (make-charset '=>>ucs@jis/1990
3417                 "UCS Representative glyphs for JIS X 0208/0212:1990"
3418                 '(long-name     "UCS glyphs for JIS:1990"
3419                   chars         256
3420                   dimension     3
3421                   columns       2
3422                   graphic       2
3423                   direction     l2r
3424                   =>iso-ir      177
3425                   mother        =>>ucs@jis))
3426   (make-charset '=>>ucs@jis/2000
3427                 "UCS Representative glyphs for JIS X 0213:2000"
3428                 '(long-name     "UCS glyphs for JIS:2000"
3429                   chars         256
3430                   dimension     3
3431                   columns       2
3432                   graphic       2
3433                   direction     l2r
3434                   =>iso-ir      177
3435                   mother        =>>ucs@jis))
3436   (make-charset '=>>ucs@jis/2004
3437                 "UCS Representative glyphs for JIS X 0213:2004"
3438                 '(long-name     "UCS glyphs for JIS:2004"
3439                   chars         256
3440                   dimension     3
3441                   columns       2
3442                   graphic       2
3443                   direction     l2r
3444                   =>iso-ir      177
3445                   mother        =>>ucs@jis))
3446   (make-charset '=>>ucs@JP
3447                 "UCS abstract-glyphs based on Japanese style glyphs"
3448                 '(long-name     "UCS glyphs for JP"
3449                   chars         256
3450                   dimension     3
3451                   columns       2
3452                   graphic       2
3453                   direction     l2r
3454                   =>iso-ir      177
3455                   mother        =>>ucs@jis/2004))
3456   (make-charset '=>>ucs@ks
3457                 "UCS Representative glyphs for Korean Standards"
3458                 '(long-name     "UCS glyphs for KS"
3459                   chars         256
3460                   dimension     3
3461                   columns       2
3462                   graphic       2
3463                   direction     l2r
3464                   =>iso-ir      177
3465                   mother        =>>ucs@unicode))
3466   (make-charset '=>>ucs@cns
3467                 "UCS Representative glyphs for CNS 11643 sources"
3468                 '(long-name     "UCS glyphs for CNS"
3469                   chars         256
3470                   dimension     3
3471                   columns       2
3472                   graphic       2
3473                   direction     l2r
3474                   =>iso-ir      177
3475                   mother        =>>ucs@unicode))
3476
3477   (make-charset '==ucs@iso
3478                 "Representative glyph-forms of ISO/IEC 10646."
3479                 '(long-name     "UCS glyph-forms for UCS"
3480                   chars         256
3481                   dimension     3
3482                   columns       2
3483                   graphic       2
3484                   direction     l2r
3485                   =>iso-ir      177
3486                   mother        =>>ucs@iso))
3487   (define-charset-alias '=>>>ucs@iso '==ucs@iso)
3488   (make-charset '==ucs@unicode
3489                 "Representative glyph-forms of Unicode."
3490                 '(long-name     "UCS glyph-forms for Unicode"
3491                   chars         256
3492                   dimension     3
3493                   columns       2
3494                   graphic       2
3495                   direction     l2r
3496                   =>iso-ir      177
3497                   mother        ==ucs@iso))
3498   (define-charset-alias '=>>>ucs@unicode '==ucs@unicode)
3499   (make-charset '==ucs@gb
3500                 "ISO/IEC 10646 for GB"
3501                 '(long-name     "UCS for GB"
3502                   chars         256
3503                   dimension     3
3504                   columns       2
3505                   graphic       2
3506                   direction     l2r
3507                   =>iso-ir      177
3508                   mother        ==ucs@unicode))
3509   (make-charset '==ucs-bmp@gb
3510                 "ISO/IEC 10646 BMP for GB"
3511                 '(long-name     "BMP for GB"
3512                   chars         256
3513                   dimension     3
3514                   columns       2
3515                   graphic       2
3516                   direction     l2r
3517                   mother        ==ucs@gb
3518                   min-code      #x0000
3519                   max-code      #xFFFF))
3520   (make-charset '==ucs@cns
3521                 "UCS Representative glyph-forms for CNS 11643 sources."
3522                 '(long-name     "UCS glyph-forms for CNS"
3523                   chars         256
3524                   dimension     3
3525                   columns       2
3526                   graphic       2
3527                   direction     l2r
3528                   =>iso-ir      177
3529                   mother        ==ucs@unicode))
3530   (define-charset-alias '=>>>ucs@cns '==ucs@cns)
3531   (make-charset '==ucs-bmp@cns
3532                 "ISO/IEC 10646 BMP for CNS"
3533                 '(long-name     "BMP for CNS"
3534                   chars         256
3535                   dimension     3
3536                   columns       2
3537                   graphic       2
3538                   direction     l2r
3539                   mother        ==ucs@cns
3540                   min-code      #x0000
3541                   max-code      #xFFFF))
3542   (make-charset '==ucs@jis
3543                 "UCS Representative glyph-forms for JIS X0208/0212/0213."
3544                 '(long-name     "UCS glyph-forms for JIS"
3545                   chars         256
3546                   dimension     3
3547                   columns       2
3548                   graphic       2
3549                   direction     l2r
3550                   =>iso-ir      177
3551                   mother        ==ucs@unicode))
3552   (define-charset-alias '=>>>ucs@jis '==ucs@jis)
3553   (make-charset '==ucs@jis/1990
3554                 "UCS Representative glyph-forms for JIS X 0208/0212:1990."
3555                 '(long-name     "UCS glyph-forms for JIS:1990"
3556                   chars         256
3557                   dimension     3
3558                   columns       2
3559                   graphic       2
3560                   direction     l2r
3561                   =>iso-ir      177
3562                   mother        ==ucs@jis))
3563   (define-charset-alias '=>>>ucs@jis/1990 '==ucs@jis/1990)
3564   (make-charset '==ucs@jis/2000
3565                 "UCS Representative glyph-forms for JIS X 0213:2000."
3566                 '(long-name     "UCS glyph-forms for JIS:2000"
3567                   chars         256
3568                   dimension     3
3569                   columns       2
3570                   graphic       2
3571                   direction     l2r
3572                   =>iso-ir      177
3573                   mother        ==ucs@jis))
3574   (define-charset-alias '=>>>ucs@jis/2000 '==ucs@jis/2000)
3575   (make-charset '==ucs@jis/2004
3576                 "UCS Representative glyph-forms for JIS X 0213:2004."
3577                 '(long-name     "UCS glyph-forms for JIS:2004"
3578                   chars         256
3579                   dimension     3
3580                   columns       2
3581                   graphic       2
3582                   direction     l2r
3583                   =>iso-ir      177
3584                   mother        ==ucs@jis))
3585   (define-charset-alias '=>>>ucs@jis/2004 '==ucs@jis/2004)
3586   (make-charset '==ucs@JP
3587                 "UCS for common glyph-forms used in Japan."
3588                 '(long-name     "UCS for Japan"
3589                   chars         256
3590                   dimension     3
3591                   columns       2
3592                   graphic       2
3593                   direction     l2r
3594                   =>iso-ir      177
3595                   mother        ==ucs@jis/2004))
3596   (make-charset '==ucs@JP/hanazono
3597                 "Japanese glyph-forms of Hanazono Mincho."
3598                 '(long-name     "UCS for Hana-Min"
3599                   chars         256
3600                   dimension     3
3601                   columns       2
3602                   graphic       2
3603                   direction     l2r
3604                   =>iso-ir      177
3605                   mother        ==ucs@JP))
3606   (make-charset '==ucs@ks
3607                 "UCS Representative glyph-forms for Korean Standards."
3608                 '(long-name     "UCS glyph-forms for KS"
3609                   chars         256
3610                   dimension     3
3611                   columns       2
3612                   graphic       2
3613                   direction     l2r
3614                   =>iso-ir      177
3615                   mother        ==ucs@unicode))
3616   (define-charset-alias '=>>>ucs@ks '==ucs@ks)
3617   (make-charset '==ucs-bmp@ks
3618                 "ISO/IEC 10646 BMP for KS."
3619                 '(long-name     "BMP for KS"
3620                   chars         256
3621                   dimension     3
3622                   columns       2
3623                   graphic       2
3624                   direction     l2r
3625                   mother        ==ucs@ks
3626                   min-code      #x0000
3627                   max-code      #xFFFF))
3628   (make-charset '==ucs@cns11643
3629                 "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw."
3630                 '(long-name     "UCS for CNS11643"
3631                   chars         256
3632                   dimension     3
3633                   columns       2
3634                   graphic       2
3635                   direction     l2r
3636                   =>iso-ir      177
3637                   mother        ==ucs@cns))
3638
3639   (make-charset '===ucs@iso
3640                 "ISO/IEC 10646-2 representative glyph-images."
3641                 '(long-name     "ISO rep-images for UCS"
3642                   chars         256
3643                   dimension     3
3644                   columns       2
3645                   graphic       2
3646                   direction     l2r
3647                   =>iso-ir      177
3648                   mother        ==ucs@iso))
3649   (make-charset '===ucs@unicode
3650                 "Unicode for its representative glyph-images."
3651                 '(long-name     "UCS for Unicode"
3652                   chars         256
3653                   dimension     3
3654                   columns       2
3655                   graphic       2
3656                   direction     l2r
3657                   =>iso-ir      177
3658                   mother        ==ucs@unicode))
3659   (make-charset '===ucs@gb
3660                 "UCS representative glyph-images of GB."
3661                 '(long-name     "UCS rep-images for GB"
3662                   chars         256
3663                   dimension     3
3664                   columns       2
3665                   graphic       2
3666                   direction     l2r
3667                   =>iso-ir      177
3668                   mother        ===ucs@unicode))
3669   (make-charset '===ucs@ks
3670                 "UCS representative glyph-images of Korean Standards."
3671                 '(long-name     "UCS rep-images for KS"
3672                   chars         256
3673                   dimension     3
3674                   columns       2
3675                   graphic       2
3676                   direction     l2r
3677                   =>iso-ir      177
3678                   mother        ==ucs@ks))
3679
3680   (make-charset '=ucs-var-001
3681                 "uXXXX-var-001 glyph-images of GlyphWiki"
3682                 '(long-name     "UCS-var-001"
3683                   chars         256
3684                   dimension     3
3685                   columns       2
3686                   graphic       2
3687                   direction     l2r
3688                   ;; =>iso-ir   177
3689                   mother        =ucs))
3690   (make-charset '=ucs-bmp-var-001
3691                 "uXXXX-var-001 glyph-images in BMP"
3692                 '(long-name     "UCS-BMP-var-001"
3693                   chars         256
3694                   dimension     2
3695                   columns       2
3696                   graphic       2
3697                   direction     l2r
3698                   ;; =>iso-ir   177
3699                   mother        =ucs-var-001
3700                   min-code #x2E00
3701                   max-code #x9FA5
3702                   registry "ucs\\.var001-0"))
3703   (make-charset '=ucs-var-002
3704                 "uXXXX-var-002 glyph-images of GlyphWiki"
3705                 '(long-name     "UCS-var-002"
3706                   chars         256
3707                   dimension     3
3708                   columns       2
3709                   graphic       2
3710                   direction     l2r
3711                   ;; =>iso-ir   177
3712                   mother        =ucs))
3713   (make-charset '=ucs-bmp-var-002
3714                 "uXXXX-var-002 glyph-images in BMP"
3715                 '(long-name     "UCS-BMP-var-002"
3716                   chars         256
3717                   dimension     2
3718                   columns       2
3719                   graphic       2
3720                   direction     l2r
3721                   ;; =>iso-ir   177
3722                   mother        =ucs-var-002
3723                   min-code #x2E00
3724                   max-code #x9FA5
3725                   registry "ucs\\.var002-0"))
3726   (make-charset '=ucs-var-003
3727                 "uXXXX-var-003 glyph-images of GlyphWiki"
3728                 '(long-name     "UCS-var-003"
3729                   chars         256
3730                   dimension     3
3731                   columns       2
3732                   graphic       2
3733                   direction     l2r
3734                   ;; =>iso-ir   177
3735                   mother        =ucs))
3736   (make-charset '=ucs-bmp-var-003
3737                 "uXXXX-var-003 glyph-images in BMP"
3738                 '(long-name     "UCS-BMP-var-003"
3739                   chars         256
3740                   dimension     2
3741                   columns       2
3742                   graphic       2
3743                   direction     l2r
3744                   ;; =>iso-ir   177
3745                   mother        =ucs-var-003
3746                   min-code #x2E00
3747                   max-code #x9FA5
3748                   registry "ucs\\.var003-0"))
3749   (make-charset '=ucs-itaiji-084
3750                 "uXXXX-itaiji-084 glyph-images of GlyphWiki"
3751                 '(long-name     "UCS-itaiji-084"
3752                   chars         256
3753                   dimension     3
3754                   columns       2
3755                   graphic       2
3756                   direction     l2r
3757                   ;; =>iso-ir   177
3758                   mother        =ucs))
3759   (make-charset '=ucs-bmp-itaiji-084
3760                 "uXXXX-itaiji-084 glyph-images in BMP"
3761                 '(long-name     "UCS-BMP-itaiji-084"
3762                   chars         256
3763                   dimension     2
3764                   columns       2
3765                   graphic       2
3766                   direction     l2r
3767                   ;; =>iso-ir   177
3768                   mother        =ucs-itaiji-084
3769                   min-code #x2E00
3770                   max-code #x9FA5
3771                   registry "ucs\\.itaiji084-0"))
3772
3773   (make-charset
3774    '=ucs-radicals
3775    "CJK Radicals of UCS"
3776    '(long-name "UCS-Radicals"
3777                chars 256
3778                dimension 2
3779                columns 2
3780                graphic 2
3781                direction l2r
3782                registry "-zhRadicals-.*-ucs-0"
3783                mother ucs-bmp
3784                min-code #x2E00 max-code #x2FFF))
3785   (make-charset
3786    '=ucs-radicals@unicode
3787    "CJK Radicals of UCS"
3788    '(long-name "UCS-Radicals"
3789                chars 256
3790                dimension 2
3791                columns 2
3792                graphic 2
3793                direction l2r
3794                registry "-zhRadicals-.*-ucs-0"
3795                mother =ucs@unicode
3796                min-code #x2E00 max-code #x2FFF))
3797   (make-charset
3798    '==ucs-radicals@unicode
3799    "CJK Radicals of UCS"
3800    '(long-name "UCS-Radicals"
3801                chars 256
3802                dimension 2
3803                columns 2
3804                graphic 2
3805                direction l2r
3806                registry "-zhRadicals-.*-ucs-0"
3807                mother ==ucs@unicode
3808                min-code #x2E00 max-code #x2FFF))
3809   (make-charset
3810    '=ucs-hangul
3811    "Hangul Syllables of UCS"
3812    '(long-name "UCS-Hangul-Syllables"
3813                chars 256
3814                dimension 2
3815                columns 2
3816                graphic 2
3817                direction l2r
3818                registry "-Hangul-.*-ucs-0"
3819                mother =ucs
3820                min-code #xAC00 max-code #xD7AF))
3821   (make-charset
3822    '=ucs-bmp-cjk
3823    "CJK Characters in BMP of UCS"
3824    '(long-name "UCS-BMP-CJK"
3825                chars 256
3826                dimension 2
3827                columns 2
3828                graphic 2
3829                direction l2r
3830                registry "-zh-.*-ucs-0"
3831                mother ucs-bmp
3832                min-code #x2E00
3833                max-code #x9FA5
3834                ;; max-code #xA4CF
3835                ))
3836   (make-charset
3837    '=ucs-bmp-cjk@gb
3838    "CJK Characters in BMP with GB representative glyph-images."
3839    '(long-name "CJK in BMP@GB"
3840                chars 256
3841                dimension 2
3842                columns 2
3843                graphic 2
3844                direction l2r
3845                registry "-zh-.*-ucs-0"
3846                mother =ucs@gb
3847                min-code #x2E00
3848                max-code #x9FA5
3849                ;; max-code #xA4CF
3850                ))
3851   (make-charset
3852    '==ucs-bmp-cjk@gb
3853    "CJK Characters in BMP with GB representative glyph-images."
3854    '(long-name "CJK in BMP@GB"
3855                chars 256
3856                dimension 2
3857                columns 2
3858                graphic 2
3859                direction l2r
3860                registry "-zh-.*-ucs-0"
3861                mother ==ucs@gb
3862                min-code #x2E00
3863                max-code #x9FA5
3864                ;; max-code #xA4CF
3865                ))
3866   (make-charset
3867    '===ucs-bmp-cjk@gb
3868    "CJK Characters in BMP with GB representative glyph-images."
3869    '(long-name "CJK in BMP@GB"
3870                chars 256
3871                dimension 2
3872                columns 2
3873                graphic 2
3874                direction l2r
3875                registry "-zh-.*-ucs-0"
3876                mother ===ucs@gb
3877                min-code #x2E00
3878                max-code #x9FA5
3879                ;; max-code #xA4CF
3880                ))
3881   (make-charset
3882    '=ucs-bmp-cjk@JP
3883    "CJK Characters in BMP with JIS representative glyphs"
3884    '(long-name "CJK in BMP@JP"
3885                chars 256
3886                dimension 2
3887                columns 2
3888                graphic 2
3889                direction l2r
3890                registry "-ja-.*-ucs-0"
3891                mother =ucs@JP
3892                min-code #x2E00
3893                max-code #x9FA5
3894                ;; max-code #xA4CF
3895                ))
3896   (make-charset
3897    '=ucs-bmp-cjk@JP/hanazono
3898    "CJK Characters in BMP with Hanazono font"
3899    '(long-name "CJK in BMP@JP/Hanazono"
3900                chars 256
3901                dimension 2
3902                columns 2
3903                graphic 2
3904                direction l2r
3905                registry "-ja-.*-ucs-0"
3906                mother =ucs@JP/hanazono
3907                min-code #x2E00
3908                max-code #x9FA5
3909                ;; max-code #xA4CF
3910                ))
3911   (make-charset
3912    '==ucs-bmp-cjk@JP/hanazono
3913    "CJK Characters in BMP with Hanazono font"
3914    '(long-name "CJK in BMP@JP/Hanazono"
3915                chars 256
3916                dimension 2
3917                columns 2
3918                graphic 2
3919                direction l2r
3920                registry "-ja-.*-ucs-0"
3921                mother ==ucs@JP/hanazono
3922                min-code #x2E00
3923                max-code #x9FA5
3924                ;; max-code #xA4CF
3925                ))
3926   (make-charset
3927    '=+>ucs-bmp-cjk@unicode
3928    "Unicode representative characters of CJK Unified Ideographs in BMP"
3929    '(long-name "Unicode-BMP-CJK unified abstract glyphs"
3930                chars 256
3931                dimension 2
3932                columns 2
3933                graphic 2
3934                direction l2r
3935                registry "-zh-.*-ucs-0"
3936                mother =+>ucs@unicode
3937                min-code #x2E00
3938                max-code #x9FA5
3939                ;; max-code #xA4CF
3940                ))
3941   (make-charset
3942    '=>ucs-bmp-cjk@unicode
3943    "Unicode representative characters of CJK Unified Ideographs in BMP"
3944    '(long-name "Unicode-BMP-CJK"
3945                chars 256
3946                dimension 2
3947                columns 2
3948                graphic 2
3949                direction l2r
3950                registry "-zh-.*-ucs-0"
3951                mother =>ucs@unicode
3952                min-code #x2E00
3953                max-code #x9FA5
3954                ;; max-code #xA4CF
3955                ))
3956   (make-charset
3957    '=>ucs-bmp-cjk@component
3958    "CJK Characters in BMP for IWDS-1 abstract components."
3959    '(long-name "CJK in BMP@component"
3960                chars 256
3961                dimension 2
3962                columns 2
3963                graphic 2
3964                direction l2r
3965                registry "-ja-.*-ucs-0"
3966                mother =>ucs@component
3967                min-code #x2E00
3968                max-code #x9FA5
3969                ;; max-code #xA4CF
3970                ))
3971   (make-charset
3972    '==>ucs-bmp-cjk@bucs
3973    "CJK Characters in BMP of BUCS"
3974    '(long-name "BUCS-BMP-CJK"
3975                chars 256
3976                dimension 2
3977                columns 2
3978                graphic 2
3979                direction l2r
3980                registry "-zh-.*-ucs-0"
3981                mother ==>ucs@bucs
3982                min-code #x2E00
3983                max-code #x9FA5
3984                ;; max-code #xA4CF
3985                ))
3986   (make-charset
3987    '=ucs-bmp-cjk-compat
3988    "CJK Compatibility Ideographs in BMP of UCS"
3989    '(long-name "CJK Compatibility Ideographs"
3990                chars 256
3991                dimension 2
3992                columns 2
3993                graphic 2
3994                direction l2r
3995                registry "-ja-.*-ucs-0"
3996                mother ucs-bmp
3997                min-code #xF900
3998                max-code #xFAFF
3999                ))
4000   (make-charset
4001    '=ucs-bmp-cjk-compat@unicode
4002    "CJK Compatibility Ideographs of Unicode representatives"
4003    '(long-name "CJK Compatibility Ideographs of Unicode"
4004                chars 256
4005                dimension 2
4006                columns 2
4007                graphic 2
4008                direction l2r
4009                registry "-ja-.*-ucs-0"
4010                mother =ucs@unicode
4011                min-code #xF900
4012                max-code #xFAFF
4013                ))
4014   (make-charset
4015    '=+>ucs-bmp-cjk-compat@jis
4016    "CJK Compatibility Ideographs of JIS representatives unified glyphs"
4017    '(long-name "JIS unified glyphs for CJK Compat chars"
4018                chars 256
4019                dimension 2
4020                columns 2
4021                graphic 2
4022                direction l2r
4023                registry "-ja-.*-ucs-0"
4024                mother =+>ucs@jis
4025                min-code #xF900
4026                max-code #xFAFF
4027                ))
4028   (make-charset
4029    '=ucs-sip-ext-b
4030    "CJK Ideographs Extension B"
4031    '(long-name "UCS CJK Ext-B"
4032                chars 256
4033                dimension 2
4034                columns 2
4035                graphic 2
4036                direction l2r
4037                registry "\\(iso10646\\|ucs00\\)-2$"
4038                mother ucs
4039                min-code #x20000 max-code #x2A6D6
4040                code-offset #x20000))
4041   (make-charset
4042    '=ucs-sip@iso
4043    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
4044    '(long-name "UCS CJK Ext-B"
4045                chars 256
4046                dimension 2
4047                columns 2
4048                graphic 2
4049                direction l2r
4050                registry "ucs00-2$"
4051                mother =ucs@iso
4052                min-code #x20000 max-code #x2FFFF
4053                code-offset #x20000))
4054   (make-charset
4055    '=ucs-sip-ext-b@iso
4056    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
4057    '(long-name "UCS CJK Ext-B"
4058                chars 256
4059                dimension 2
4060                columns 2
4061                graphic 2
4062                direction l2r
4063                registry "\\(iso10646\\|ucs00\\)-2$"
4064                mother =ucs@iso
4065                min-code #x20000 max-code #x2A6D6
4066                code-offset #x20000))
4067   (make-charset
4068    '==ucs-sip@iso
4069    "ISO representative abstract-glyph-images of ISO/IEC 10646 Plane 2"
4070    '(long-name "SIP abstract glyph-images"
4071                chars 256
4072                dimension 2
4073                columns 2
4074                graphic 2
4075                direction l2r
4076                registry "\\(ucs00\\)-2$"
4077                mother ==ucs@iso
4078                code-offset #x20000))
4079   (make-charset
4080    '==ucs-sip-ext-b@iso
4081    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
4082    '(long-name "UCS CJK Ext-B"
4083                chars 256
4084                dimension 2
4085                columns 2
4086                graphic 2
4087                direction l2r
4088                registry "\\(iso10646\\|ucs00\\)-2$"
4089                mother ==ucs@iso
4090                min-code #x20000 max-code #x2A6D6
4091                code-offset #x20000))
4092   (make-charset
4093    '===ucs-sip@iso
4094    "ISO representative glyph-images of ISO/IEC 10646 Plane 2"
4095    '(long-name "SIP rep-glyph-images"
4096                chars 256
4097                dimension 2
4098                columns 2
4099                graphic 2
4100                direction l2r
4101                registry "\\(ucs00\\)-2$"
4102                mother ===ucs@iso
4103                code-offset #x20000))
4104   (make-charset
4105    '===ucs-sip-ext-b@iso
4106    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
4107    '(long-name "UCS CJK Ext-B"
4108                chars 256
4109                dimension 2
4110                columns 2
4111                graphic 2
4112                direction l2r
4113                registry "\\(iso10646\\|ucs00\\)-2$"
4114                mother ===ucs@iso
4115                min-code #x20000 max-code #x2A6D6
4116                code-offset #x20000))
4117   )
4118
4119 ;;; mule-conf.el ends here