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