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

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