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