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