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$"))
  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$"))
  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$"))
  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$"))
  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$"))
 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$"))
 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 abstract glyph-forms"
 140    '(long-name "Adobe-Japan1-0 abstract glyph-forms"
 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 abstract glyph-forms"
 151    '(long-name "Adobe-Japan1-1 abstract glyph-forms"
 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 abstract glyph-forms"
 162    '(long-name "Adobe-Japan1-2 abstract glyph-forms"
 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 abstract glyph-forms"
 173    '(long-name "Adobe-Japan1-3 abstract glyph-forms"
 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 abstract glyph-forms"
 184    '(long-name "Adobe-Japan1-4 abstract glyph-forms"
 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 abstract glyph-forms"
 195    '(long-name "Adobe-Japan1-5 abstract glyph-forms"
 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 abstract glyph-forms"
 206    '(long-name "Adobe-Japan1-6 abstract glyph-forms"
 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   (make-charset
 217    '=>>adobe-japan1-0
 218    "Adobe-Japan1-0 abstract glyphs"
 219    '(long-name "Adobe-Japan1-0 abstract glyphs"
 220                chars 256
 221                dimension 2
 222                columns 2
 223                graphic 2
 224                direction l2r
 225                mother =>>>adobe-japan1
 226                registry "AdobeJapan1-0$"))
 227   (make-charset
 228    '=>>adobe-japan1-1
 229    "Adobe-Japan1-1 abstract glyphs"
 230    '(long-name "Adobe-Japan1-1 abstract glyphs"
 231                chars 256
 232                dimension 2
 233                columns 2
 234                graphic 2
 235                direction l2r
 236                mother =>>adobe-japan1-0
 237                registry "AdobeJapan1-1"))
 238   (make-charset
 239    '=>>adobe-japan1-2
 240    "Adobe-Japan1-2 abstract glyphs"
 241    '(long-name "Adobe-Japan1-2 abstract glyphs"
 242                chars 256
 243                dimension 2
 244                columns 2
 245                graphic 2
 246                direction l2r
 247                mother =>>adobe-japan1-1
 248                registry "AdobeJapan1-2"))
 249   (make-charset
 250    '=>>adobe-japan1-3
 251    "Adobe-Japan1-3 abstract glyphs"
 252    '(long-name "Adobe-Japan1-3 abstract glyphs"
 253                chars 256
 254                dimension 2
 255                columns 2
 256                graphic 2
 257                direction l2r
 258                mother =>>adobe-japan1-2
 259                registry "AdobeJapan1-3"))
 260   (make-charset
 261    '=>>adobe-japan1-4
 262    "Adobe-Japan1-4 abstract glyphs"
 263    '(long-name "Adobe-Japan1-4 abstract glyphs"
 264                chars 256
 265                dimension 2
 266                columns 2
 267                graphic 2
 268                direction l2r
 269                mother =>>adobe-japan1-3
 270                registry "AdobeJapan1-4"))
 271   (make-charset
 272    '=>>adobe-japan1-5
 273    "Adobe-Japan1-5 abstract glyphs"
 274    '(long-name "Adobe-Japan1-5 abstract glyphs"
 275                chars 256
 276                dimension 2
 277                columns 2
 278                graphic 2
 279                direction l2r
 280                mother =>>adobe-japan1-4
 281                registry "AdobeJapan1-5"))
 282   (make-charset
 283    '=>>adobe-japan1-6
 284    "Adobe-Japan1-6 abstract glyphs"
 285    '(long-name "Adobe-Japan1-6 abstract glyphs"
 286                chars 256
 287                dimension 2
 288                columns 2
 289                graphic 2
 290                direction l2r
 291                mother =>>adobe-japan1-5
 292                registry "AdobeJapan1-6"))
 293   (define-charset-alias '=>>adobe-japan1 '=>>adobe-japan1-6)
 294
 295   (make-charset
 296    '=+>adobe-japan1-0
 297    "Adobe-Japan1-0 unified abstract glyphs"
 298    '(long-name "Adobe-Japan1-0 unified abstract glyphs"
 299                chars 256
 300                dimension 2
 301                columns 2
 302                graphic 2
 303                direction l2r
 304                mother =>>adobe-japan1
 305                registry "AdobeJapan1-0$"))
 306   (make-charset
 307    '=+>adobe-japan1-1
 308    "Adobe-Japan1-1 unified abstract glyphs"
 309    '(long-name "Adobe-Japan1-1 unified abstract glyphs"
 310                chars 256
 311                dimension 2
 312                columns 2
 313                graphic 2
 314                direction l2r
 315                mother =+>adobe-japan1-0
 316                registry "AdobeJapan1-1"))
 317   (make-charset
 318    '=+>adobe-japan1-2
 319    "Adobe-Japan1-2 unified abstract glyphs"
 320    '(long-name "Adobe-Japan1-2 unified abstract glyphs"
 321                chars 256
 322                dimension 2
 323                columns 2
 324                graphic 2
 325                direction l2r
 326                mother =+>adobe-japan1-1
 327                registry "AdobeJapan1-2"))
 328   (make-charset
 329    '=+>adobe-japan1-3
 330    "Adobe-Japan1-3 unified abstract glyphs"
 331    '(long-name "Adobe-Japan1-3 unified abstract glyphs"
 332                chars 256
 333                dimension 2
 334                columns 2
 335                graphic 2
 336                direction l2r
 337                mother =+>adobe-japan1-2
 338                registry "AdobeJapan1-3"))
 339   (make-charset
 340    '=+>adobe-japan1-4
 341    "Adobe-Japan1-4 unified abstract glyphs"
 342    '(long-name "Adobe-Japan1-4 unified abstract glyphs"
 343                chars 256
 344                dimension 2
 345                columns 2
 346                graphic 2
 347                direction l2r
 348                mother =+>adobe-japan1-3
 349                registry "AdobeJapan1-4"))
 350   (make-charset
 351    '=+>adobe-japan1-5
 352    "Adobe-Japan1-5 unified abstract glyphs"
 353    '(long-name "Adobe-Japan1-5 unified abstract glyphs"
 354                chars 256
 355                dimension 2
 356                columns 2
 357                graphic 2
 358                direction l2r
 359                mother =+>adobe-japan1-4
 360                registry "AdobeJapan1-5"))
 361   (make-charset
 362    '=+>adobe-japan1-6
 363    "Adobe-Japan1-6 unified abstract glyphs"
 364    '(long-name "Adobe-Japan1-6 unified abstract glyphs"
 365                chars 256
 366                dimension 2
 367                columns 2
 368                graphic 2
 369                direction l2r
 370                mother =+>adobe-japan1-5
 371                registry "AdobeJapan1-6"))
 372   (define-charset-alias '=+>adobe-japan1 '=+>adobe-japan1-6)
 373
 374   (make-charset
 375    '=jis-x0208@1978
 376    "JIS X 0208:1978, unchanged part."
 377    '(registry "jisx0208\\.1978"
 378               dimension 2
 379               chars 94
 380               mother =jis-x0208
 381               =>iso-ir 42
 382               final ?@
 383               graphic 0
 384               partial t))
 385   (make-charset
 386    '=jis-x0208@1978/-4pr
 387    "JIS X 0208:1978, 1st - 3rd impressions."
 388    '(registry "jisx0208\\.1978"
 389               dimension 2
 390               chars 94
 391               mother =jis-x0208@1978
 392               =>iso-ir 42
 393               final ?@
 394               graphic 0
 395               partial t))
 396   (make-charset
 397    '=jis-x0208@1978/1pr
 398    "JIS X 0208:1978, 1st impression."
 399    '(iso-ir 42
 400             registry "jisx0208\\.1978"
 401             dimension 2
 402             chars 94
 403             mother =jis-x0208@1978/-4pr
 404             final ?@
 405             graphic 0))
 406   (make-charset
 407    '=jis-x0208@1978/1pr/fixed
 408    "JIS X 0208:1978, correct glyph in the errata of 1st impression."
 409    '(registry "jisx0208\\.1978"
 410               dimension 2
 411               chars 94
 412               mother =jis-x0208@1978/1pr
 413               =>iso-ir 42
 414               ;; final ?@
 415               graphic 0
 416               partial t))
 417   (make-charset
 418    '=jis-x0208@1978/-4X
 419    "JIS X 0208:1978, index before the 4th impression."
 420    '(registry "jisx0208\\.1978"
 421               dimension 2
 422               chars 94
 423               mother =jis-x0208@1978
 424               =>iso-ir 42
 425               ;; final ?@
 426               graphic 0
 427               partial t))
 428   ;; (make-charset
 429   ;;  '=jis-x0208@1978/1er-pr
 430   ;;  "JIS X 0208:1978, fixed by errata [Nov 1978]."
 431   ;;  '(registry "jisx0208\\.1978"
 432   ;;             dimension 2
 433   ;;             chars 94
 434   ;;             mother =jis-x0208@1978
 435   ;;             =>iso-ir 42
 436   ;;             ;; final ?@
 437   ;;             graphic 0
 438   ;;             partial t))
 439   (make-charset
 440    '=jis-x0208@1978/2-pr
 441    "JIS X 0208:1978, 2nd impression or later."
 442    '(registry "jisx0208\\.1978"
 443               dimension 2
 444               chars 94
 445               ;; mother =jis-x0208@1978/1er-pr
 446               mother =jis-x0208@1978
 447               =>iso-ir 42
 448               ;; final ?@
 449               graphic 0
 450               partial t))
 451   (make-charset
 452    '=jis-x0208@1978/4er
 453    "JIS X 0208:1978, replaced by errata of 4th impression."
 454    '(registry "jisx0208\\.1978"
 455               dimension 2
 456               chars 94
 457               mother =jis-x0208@1978/2-pr
 458               =>iso-ir 42
 459               ;; final ?@
 460               graphic 0
 461               partial t))
 462   (make-charset
 463    '=jis-x0208@1978/4-pr
 464    "JIS X 0208:1978, 4th impression or later."
 465    '(registry "jisx0208\\.1978"
 466               dimension 2
 467               chars 94
 468               mother =jis-x0208@1978/2-pr
 469               =>iso-ir 42
 470               ;; final ?@
 471               graphic 0
 472               partial t))
 473   (make-charset
 474    '=jis-x0208@1978/5pr
 475    "JIS X 0208:1978, 5th impression."
 476    '(registry "jisx0208\\.1978"
 477               dimension 2
 478               chars 94
 479               mother =jis-x0208@1978/4-pr
 480               =>iso-ir 42
 481               ;; final ?@
 482               graphic 0
 483               partial t))
 484   (define-charset-alias '=jis-x0208@1978/i1 '=jis-x0208@1978/1pr)
 485   (define-charset-alias '=jis-x0208@1978/i-4 '=jis-x0208@1978/-4pr)
 486   (define-charset-alias '=jis-x0208@1978/i4- '=jis-x0208@1978/4-pr)
 487   )
 488  (t
 489   (make-charset
 490    '=jis-x0208@1978
 491    "JIS X0208:1978 Japanese Kanji (so called \"old JIS\")."
 492    '(iso-ir 42
 493             registry "jisx0208\\.1978"
 494             dimension 2
 495             chars 94
 496             mother =jis-x0208
 497             final ?@
 498             graphic 0))
 499   ))
 500
 501 (define-charset-alias '=jis-x0208-1978          '=jis-x0208@1978)
 502 (define-charset-alias 'japanese-jisx0208-1978   '=jis-x0208@1978)
 503 (define-charset-alias 'chinese-gb2312           '=gb2312)
 504 (define-charset-alias '=jis-x0208-1983          '=jis-x0208@1983)
 505 (define-charset-alias 'japanese-jisx0208        '=jis-x0208@1983)
 506 (define-charset-alias 'korean-ksc5601           '=ks-x1001)
 507 (define-charset-alias 'japanese-jisx0212        '=jis-x0212)
 508 (define-charset-alias 'chinese-cns11643-1       '=cns11643-1)
 509 (define-charset-alias 'chinese-cns11643-2       '=cns11643-2)
 510 (define-charset-alias 'chinese-gb12345          '=gb12345)
 511 (define-charset-alias 'chinese-big5             '=big5)
 512
 513 ;; PinYin-ZhuYin
 514 (make-charset 'sisheng "PinYin-ZhuYin"
 515               '(registry "sisheng_cwnn\\|OMRON_UDC_ZH"
 516                 dimension 1
 517                 chars 94
 518                 final ?0
 519                 graphic 0
 520                 ))
 521
 522 ;; Lao script.
 523 ;; ISO10646's 0x0E80..0x0EDF are mapped to 0x20..0x7F.
 524 (make-charset 'lao "Lao script"
 525               '(registry "MuleLao-1"
 526                 dimension 1
 527                 chars 94
 528                 final ?1
 529                 graphic 1))
 530
 531 ;; IPA (International Phonetic Alphabet)
 532 (make-charset 'ipa "International Phonetic Alphabet"
 533               '(registry "MuleIPA"
 534                 dimension 1
 535                 chars 96
 536                 final ?0
 537                 graphic 1))
 538
 539 ;; Ethiopic
 540 (make-charset 'ethiopic "Ethiopic"
 541               '(registry "Ethio"
 542                 dimension 2
 543                 chars 94
 544                 final ?3
 545                 graphic 0
 546                 ))
 547
 548 ;; ISO-IR-165 (CCITT Extended GB)
 549 ;;    It is based on CCITT Recommendation T.101, includes GB 2312-80 +
 550 ;;    GB 8565-88 table A4 + 293 characters.
 551 (if (featurep 'utf-2000)
 552     (progn
 553       (make-charset '=iso-ir165
 554                     "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
 555                     '(iso-ir 165
 556                              dimension 2
 557                              chars 94
 558                              mother =gb2312
 559                              final ?E
 560                              registry "isoir165"
 561                              graphic 0))
 562       (define-charset-alias 'chinese-isoir165 '=iso-ir165))
 563   (make-charset 'chinese-isoir165
 564                 "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
 565                 '(iso-ir 165
 566                          dimension 2
 567                          chars 94
 568                          final ?E
 569                          registry "isoir165"
 570                          graphic 0)))
 571
 572 ;; CNS11643 Plane3 thru Plane7
 573 ;; These represent more and more obscure Chinese characters.
 574 ;; By the time you get to Plane 7, we're talking about characters
 575 ;; that appear once in some ancient manuscript and whose meaning
 576 ;; is unknown.
 577
 578 (flet
 579     ((make-chinese-cns11643-charset
 580       (name iso-ir plane final)
 581       (make-charset
 582        name (concat "CNS 11643 Plane " plane " (Chinese traditional)")
 583        `(iso-ir ,iso-ir
 584          registry
 585          ,(concat "CNS11643[.-]\\(.*[.-]\\)?" plane "$")
 586          dimension 2
 587          chars 94
 588          final ,final
 589          graphic 0))
 590       ))
 591   (make-chinese-cns11643-charset '=cns11643-3 183 "3" ?I)
 592   (make-chinese-cns11643-charset '=cns11643-4 184 "4" ?J)
 593   (make-chinese-cns11643-charset '=cns11643-5 185 "5" ?K)
 594   (make-chinese-cns11643-charset '=cns11643-6 186 "6" ?L)
 595   (make-chinese-cns11643-charset '=cns11643-7 187 "7" ?M)
 596   (define-charset-alias 'chinese-cns11643-3     '=cns11643-3)
 597   (define-charset-alias 'chinese-cns11643-4     '=cns11643-4)
 598   (define-charset-alias 'chinese-cns11643-5     '=cns11643-5)
 599   (define-charset-alias 'chinese-cns11643-6     '=cns11643-6)
 600   (define-charset-alias 'chinese-cns11643-7     '=cns11643-7)
 601   )
 602
 603 ;; JIS X 0213:2000
 604 (cond
 605  ((featurep 'utf-2000)
 606   (make-charset
 607    '=jis-x0213-1
 608    "JIS X 0213 Plain 1 (unchanged part)"
 609    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
 610               dimension 2
 611               chars 94
 612               =>iso-ir 228
 613               final ?O
 614               graphic 0
 615               partial t))
 616
 617   (make-charset
 618    '=jis-x0213-1@2000
 619    "JIS X 0213:2000 Plain 1"
 620    '(iso-ir 228
 621             registry "jisx0213\\(\\.2000\\)-1"
 622             dimension 2
 623             chars 94
 624             mother =jis-x0213-1
 625             final ?O
 626             graphic 0))
 627   (make-charset
 628    '=jis-x0213-2
 629    "JIS X 0213 Plain 2"
 630    '(iso-ir 229
 631             registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
 632             dimension 2
 633             chars 94
 634             final ?P
 635             graphic 0))
 636
 637   (make-charset
 638    '=jis-x0213-1@2004
 639    "JIS X 0213:2004 Plain 1"
 640    '(iso-ir 233
 641             registry "jisx0213\\(\\.2004\\)-1"
 642             dimension 2
 643             chars 94
 644             mother =jis-x0213-1
 645             final ?Q
 646             graphic 0))
 647
 648   (define-charset-alias 'japanese-jisx0213-1 '=jis-x0213-1@2000)
 649   (define-charset-alias 'japanese-jisx0213-2 '=jis-x0213-2)
 650   (define-charset-alias '=jis-x0213-1-2000 '=jis-x0213-1@2000)
 651   (define-charset-alias '=jis-x0213-2-2000 '=jis-x0213-2)
 652   )
 653  (t
 654   (make-charset
 655    'japanese-jisx0213-1
 656    "JIS X 0213:2000 Plain 1"
 657    '(registry "jisx0213\\(\\.2000\\)-1"
 658               dimension 2
 659               chars 94
 660               final ?O
 661               graphic 0))
 662   (make-charset
 663    'japanese-jisx0213-2
 664    "JIS X 0213:2000 Plain 2"
 665    '(registry "jisx0213\\(\\.2000\\)-2"
 666               dimension 2
 667               chars 94
 668               final ?P
 669               graphic 0))
 670   ))
 671
 672 (when (featurep 'utf-2000)
 673   (define-charset-alias 'ucs '=ucs)
 674   (define-charset-alias '=jis-x0208-1990 '=jis-x0208@1990)
 675   (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208@1990)
 676
 677   (make-charset
 678    '=>>>jis-x0208
 679    "JIS X 0208 abstract glyph-forms (unchanged part)."
 680    '(registry "jisx0208\\.1990"
 681               dimension 2
 682               chars 94
 683               mother =jis-x0208
 684               =>iso-ir 168
 685               ;; final ?B
 686               graphic 0))
 687   (make-charset
 688    '=>>>jis-x0208@1978
 689    "JIS X 0208:1978 abstract glyph-forms."
 690    '(registry "jisx0208\\.1978"
 691               dimension 2
 692               chars 94
 693               mother =>>>jis-x0208
 694               =>iso-ir 42
 695               ;; final ?@
 696               graphic 0))
 697   (make-charset
 698    '=>>>jis-x0208@1983
 699    "JIS X 0208:1983 abstract glyph-forms."
 700    '(registry "jisx0208\\.1983"
 701               dimension 2
 702               chars 94
 703               mother =>>>jis-x0208
 704               =>iso-ir 87
 705               graphic 0))
 706   (make-charset
 707    '=>>>jis-x0208@1990
 708    "JIS X 0208:1990 abstract glyph-forms."
 709    '(registry "jisx0208\\.1990"
 710               dimension 2
 711               chars 94
 712               mother =>>>jis-x0208
 713               =>iso-ir 168
 714               ;; final ?B
 715               graphic 0))
 716   (make-charset
 717    '=>>>jis-x0213-1
 718    "JIS X 0213 Plain 1 abstract glyph-forms (unchanged part)"
 719    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
 720               dimension 2
 721               chars 94
 722               mother =jis-x0213-1
 723               =>iso-ir 228
 724               ;; final ?O
 725               graphic 0
 726               ;; partial t
 727               ))
 728   (make-charset
 729    '=>>>jis-x0213-1@2000
 730    "JIS X 0213:2000 Plain 1 abstract glyph-forms"
 731    '(registry "jisx0213\\(\\.2000\\)-1"
 732               dimension 2
 733               chars 94
 734               mother =>>>jis-x0213-1
 735               =>iso-ir 228
 736               ;; final ?O
 737               graphic 0
 738               ;; partial t
 739               ))
 740   (make-charset
 741    '=>>>jis-x0213-1@2004
 742    "JIS X 0213:2004 Plain 1 abstract glyph-forms"
 743    '(mother =>>>jis-x0213-1
 744             =>iso-ir 233
 745             ;; registry "jisx0213\\(\\.2004\\)-1"
 746             dimension 2
 747             chars 94
 748             graphic 0))
 749   (make-charset
 750    '=>>>jis-x0213-2
 751    "JIS X 0213 Plain 2 abstract glyph-forms"
 752    '(mother =jis-x0213-2
 753             =>iso-ir 229
 754             registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
 755             dimension 2
 756             chars 94
 757             graphic 0))
 758
 759   (make-charset
 760    '=>>jis-x0208
 761    "JIS X 0208 abstract glyphs (unchanged part)."
 762    '(registry "jisx0208\\.1990"
 763               dimension 2
 764               chars 94
 765               mother =>>>jis-x0208
 766               =>iso-ir 168
 767               ;; final ?B
 768               graphic 0))
 769   (make-charset
 770    '=>>jis-x0208@1978
 771    "JIS X 0208:1978 abstract glyphs."
 772    '(registry "jisx0208\\.1978"
 773               dimension 2
 774               chars 94
 775               mother =>>jis-x0208
 776               =>iso-ir 42
 777               ;; final ?@
 778               graphic 0))
 779   (make-charset
 780    '=>>jis-x0208@1983
 781    "JIS X 0208:1983 abstract glyphs."
 782    '(registry "jisx0208\\.1983"
 783               dimension 2
 784               chars 94
 785               mother =>>jis-x0208
 786               =>iso-ir 87
 787               graphic 0))
 788   (make-charset
 789    '=>>jis-x0208@1990
 790    "JIS X 0208:1990 abstract glyphs."
 791    '(registry "jisx0208\\.1990"
 792               dimension 2
 793               chars 94
 794               mother =>>jis-x0208
 795               =>iso-ir 168
 796               graphic 0))
 797
 798   (make-charset
 799    '=>>jis-x0213-1
 800    "JIS X 0213 Plain 1 abstract glyphs (unchanged part)"
 801    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
 802               dimension 2
 803               chars 94
 804               mother =>>>jis-x0213-1
 805               =>iso-ir 228
 806               ;; final ?O
 807               graphic 0
 808               ;; partial t
 809               ))
 810   (make-charset
 811    '=>>jis-x0213-1@2000
 812    "JIS X 0213:2000 Plain 1 abstract glyphs"
 813    '(registry "jisx0213\\(\\.2000\\)-1"
 814               dimension 2
 815               chars 94
 816               mother =>>jis-x0213-1
 817               =>iso-ir 228
 818               ;; final ?O
 819               graphic 0
 820               ;; partial t
 821               ))
 822   (make-charset
 823    '=>>jis-x0213-2
 824    "JIS X 0213 Plain 2 abstract glyphs"
 825    '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
 826               dimension 2
 827               chars 94
 828               mother =>>>jis-x0213-2
 829               =>iso-ir 229
 830               ;; final ?P
 831               graphic 0))
 832   (make-charset
 833    '=>>jis-x0213-1@2004
 834    "JIS X 0213:2004 Plain 1 abstract glyphs"
 835    '(registry "jisx0213\\(\\.2004\\)-1"
 836               dimension 2
 837               chars 94
 838               mother =>>jis-x0213-1
 839               =>iso-ir 233
 840               ;; final ?Q
 841               graphic 0
 842               ;; partial t
 843               ))
 844
 845   (make-charset
 846    '=+>jis-x0208
 847    "JIS X 0208 based on usual unification."
 848    '(registry "jisx0208\\.1990"
 849               dimension 2
 850               chars 94
 851               mother =>>jis-x0208
 852               =>iso-ir 168
 853               ;; final ?B
 854               graphic 0))
 855   (define-charset-alias '=>jis-x0208@usual '=+>jis-x0208)
 856   (make-charset
 857    '=+>jis-x0208@1978
 858    "JIS X 0208:1978 unified abstract glyphs."
 859    '(registry "jisx0208\\.1978"
 860               dimension 2
 861               chars 94
 862               mother =+>jis-x0208
 863               =>iso-ir 42
 864               ;; final ?@
 865               graphic 0))
 866   (make-charset
 867    '=+>jis-x0208@1983
 868    "JIS X 0208:1983 unified abstract glyphs."
 869    '(registry "jisx0208\\.1983"
 870               dimension 2
 871               chars 94
 872               mother =+>jis-x0208
 873               =>iso-ir 87
 874               graphic 0))
 875   (make-charset
 876    '=+>jis-x0208@1990
 877    "JIS X 0208:1990 unified abstract glyphs."
 878    '(registry "jisx0208\\.1990"
 879               dimension 2
 880               chars 94
 881               mother =+>jis-x0208
 882               =>iso-ir 168
 883               graphic 0))
 884   (make-charset
 885    '=+>jis-x0213-1
 886    "JIS X 0213 Plain 1 unified abstract glyphs (unchanged part)"
 887    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
 888               dimension 2
 889               chars 94
 890               mother =>>jis-x0213-1
 891               =>iso-ir 228
 892               ;; final ?O
 893               graphic 0
 894               ;; partial t
 895               ))
 896   (make-charset
 897    '=+>jis-x0213-1@2000
 898    "JIS X 0213:2000 Plain 1 unified abstract glyphs"
 899    '(registry "jisx0213\\(\\.2000\\)-1"
 900               dimension 2
 901               chars 94
 902               mother =+>jis-x0213-1
 903               =>iso-ir 228
 904               ;; final ?O
 905               graphic 0
 906               ;; partial t
 907               ))
 908   (make-charset
 909    '=+>jis-x0213-1@2004
 910    "JIS X 0213:2004 Plain 1 unified abstract glyphs"
 911    '(registry "jisx0213\\(\\.2004\\)-1"
 912               dimension 2
 913               chars 94
 914               mother =+>jis-x0213-1
 915               =>iso-ir 233
 916               ;; final ?Q
 917               graphic 0
 918               ;; partial t
 919               ))
 920
 921   (make-charset
 922    '=>jis-x0208
 923    "JIS X 0208 based on the unchanged unification rules."
 924    '(registry "jisx0208\\.1990"
 925               dimension 2
 926               chars 94
 927               mother =+>jis-x0208
 928               =>iso-ir 168
 929               ;; final ?B
 930               graphic 0))
 931   (define-charset-alias '<=>jis-x0208 '=>jis-x0208)
 932   (make-charset
 933    '=>jis-x0208@1997
 934    "JIS X 0208 based on the unification rule of 1997 edition."
 935    '(registry "jisx0208\\.1990"
 936               dimension 2
 937               chars 94
 938               mother =>jis-x0208
 939               =>iso-ir 168
 940               ;; final ?B
 941               graphic 0))
 942   (define-charset-alias '<=>jis-x0208@1997 '=>jis-x0208@1997)
 943   (define-charset-alias '  =jis-x0208@1997 '=>jis-x0208@1997)
 944
 945   (make-charset
 946    '=>jis-x0213-1
 947    "JIS X 0213 Plain 1 abstract characters (unchanged part)"
 948    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
 949               dimension 2
 950               chars 94
 951               mother =+>jis-x0213-1
 952               =>iso-ir 228
 953               ;; final ?O
 954               graphic 0
 955               ;; partial t
 956               ))
 957   (define-charset-alias '<=>jis-x0213-1 '=>jis-x0213-1)
 958   (make-charset
 959    '=>jis-x0213-1@2000
 960    "JIS X 0213:2000 Plain 1 abstract characters"
 961    '(registry "jisx0213\\(\\.2000\\)-1"
 962               dimension 2
 963               chars 94
 964               mother =>jis-x0213-1
 965               =>iso-ir 228
 966               ;; final ?O
 967               graphic 0
 968               ;; partial t
 969               ))
 970   (define-charset-alias '<=>jis-x0213-1@2000 '=>jis-x0213-1@2000)
 971   (make-charset
 972    '=>jis-x0213-1@2004
 973    "JIS X 0213:2004 Plain 1 abstract characters"
 974    '(registry "jisx0213\\(\\.2004\\)-1"
 975               dimension 2
 976               chars 94
 977               mother =>jis-x0213-1
 978               =>iso-ir 233
 979               ;; final ?Q
 980               graphic 0
 981               ;; partial t
 982               ))
 983   (define-charset-alias '<=>jis-x0213-1@2004 '=>jis-x0213-1@2004)
 984   (make-charset
 985    '=+>jis-x0213-2
 986    "JIS X 0213 Plain 2 based on usual unification."
 987    '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
 988               dimension 2
 989               chars 94
 990               mother =>>jis-x0213-2
 991               =>iso-ir 229
 992               ;; final ?P
 993               graphic 0))
 994   (define-charset-alias '=>jis-x0213-2@usual '=+>jis-x0213-2)
 995   (make-charset
 996    '=>jis-x0213-2
 997    "JIS X 0213 Plain 2 abstract characters"
 998    '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
 999               dimension 2
1000               chars 94
1001               mother =+>jis-x0213-2
1002               =>iso-ir 229
1003               ;; final ?P
1004               graphic 0))
1005
1006   (make-charset
1007    '=>>cns11643-4
1008    "CNS 11643 Plane 4 abstract glyphs."
1009    '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
1010               dimension 2
1011               chars 94
1012               mother =cns11643-4
1013               =>iso-ir 184
1014               graphic 0))
1015
1016   (make-charset
1017    '=>cns11643-2
1018    "CNS 11643 Plane 2 abstract characters."
1019    '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
1020               dimension 2
1021               chars 94
1022               mother =cns11643-2
1023               =>iso-ir 172
1024               graphic 0))
1025   (make-charset
1026    '=>cns11643-7
1027    "CNS 11643 Plane 7 abstract characters."
1028    '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
1029               dimension 2
1030               chars 94
1031               mother =cns11643-7
1032               =>iso-ir 187
1033               graphic 0))
1034
1035   (make-charset '=big5-eten
1036                 "Big5 ETEN"
1037                 '(long-name     "Big5-ETEN"
1038                   chars         256
1039                   dimension     2
1040                   columns       2
1041                   graphic       2
1042                   direction     l2r
1043                   mother        chinese-big5
1044                   min-code      #x8140
1045                   max-code      #xFEFE
1046                   registry      "Big5\\.ETEN"))
1047   (define-charset-alias 'chinese-big5-eten '=big5-eten)
1048   (make-charset 'chinese-big5-eten-a
1049                 "Big5 ETEN (#xF9D6 .. #xF9FE)"
1050                 '(long-name     "Big5-ETEN-a"
1051                   chars         256
1052                   dimension     2
1053                   columns       2
1054                   graphic       2
1055                   direction     l2r
1056                   mother        chinese-big5
1057                   min-code      #xF9D6
1058                   max-code      #xF9FE
1059                   registry      "Big5\\.ETEN"))
1060   (make-charset 'chinese-big5-eten-b
1061                 "Big5 ETEN (#xC6A1 .. #xC8FE)"
1062                 '(long-name     "Big5-ETEN-b"
1063                   chars         256
1064                   dimension     2
1065                   columns       2
1066                   graphic       2
1067                   direction     l2r
1068                   mother        chinese-big5
1069                   min-code      #xC6A1
1070                   max-code      #xC8FE
1071                   registry      "Big5\\.ETEN"))
1072
1073   (make-charset '=big5-cdp
1074                 "Big5 with CDP extension"
1075                 '(long-name     "Big5-CDP"
1076                   chars         256
1077                   dimension     2
1078                   columns       2
1079                   graphic       2
1080                   direction     l2r
1081                   registry      "big5\\.cdp-0"
1082                   mother        chinese-big5
1083                   min-code      #x8140
1084                   max-code      #x8DFE))
1085   (define-charset-alias 'chinese-big5-cdp '=big5-cdp)
1086
1087   (make-charset '=>>big5-cdp
1088                 "Abstract glyphs of Big5-CDP"
1089                 '(long-name     "Big5-CDP glyphs"
1090                   chars         256
1091                   dimension     2
1092                   columns       2
1093                   graphic       2
1094                   direction     l2r
1095                   registry      "big5\\.cdp-0"
1096                   mother        =big5-cdp))
1097
1098   (make-charset '=>big5-cdp
1099                 "Big5-CDP abstract characters"
1100                 '(long-name     "Big5-CDP abstract characters"
1101                   chars         256
1102                   dimension     2
1103                   columns       2
1104                   graphic       2
1105                   direction     l2r
1106                   registry      "big5\\.cdp-0"
1107                   mother        =>>big5-cdp))
1108
1109   (make-charset
1110    '=hanyo-denshi/ja
1111    "JA (JIS X0208) part of Han'you-Denshi characters"
1112    `(long-name "Han'you-Denshi/JA"
1113                chars 94
1114                dimension 2
1115                columns 2
1116                graphic 2
1117                direction l2r
1118                registry "HanyoDenshi\\.JA-0$"
1119                min-code ,(lsh #x6400 16)
1120                max-code ,(+ (lsh #x6400 16) (1- (* 94 94)))
1121                code-offset ,(lsh #x6400 16)))
1122   (make-charset
1123    '=hanyo-denshi/jb
1124    "JB (JIS X0212) part of Han'you-Denshi characters"
1125    `(long-name "Han'you-Denshi/JB"
1126                chars 94
1127                dimension 2
1128                columns 2
1129                graphic 2
1130                direction l2r
1131                registry "HanyoDenshi\\.JB-0$"
1132                min-code    ,(+ (lsh #x6400 16) (* 94 94))
1133                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 2)))
1134                code-offset ,(+ (lsh #x6400 16) (* 94 94))))
1135   (make-charset
1136    '=hanyo-denshi/jc
1137    "JC (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
1138    `(long-name "Han'you-Denshi/JC"
1139                chars 94
1140                dimension 2
1141                columns 2
1142                graphic 2
1143                direction l2r
1144                registry "HanyoDenshi\\.JC-0$"
1145                min-code    ,(+ (lsh #x6400 16) (* 94 94 2))
1146                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 3)))
1147                code-offset ,(+ (lsh #x6400 16) (* 94 94 2))))
1148   (make-charset
1149    '=hanyo-denshi/jd
1150    "JD (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
1151    `(long-name "Han'you-Denshi/JD"
1152                chars 94
1153                dimension 2
1154                columns 2
1155                graphic 2
1156                direction l2r
1157                registry "HanyoDenshi\\.JD-0$"
1158                min-code    ,(+ (lsh #x6400 16) (* 94 94 3))
1159                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 4)))
1160                code-offset ,(+ (lsh #x6400 16) (* 94 94 3))))
1161   (make-charset
1162    '=hanyo-denshi/ft
1163    "FT (FDPC additional) part of Han'you-Denshi characters"
1164    `(long-name "Han'you-Denshi/FT"
1165                chars 94
1166                dimension 2
1167                columns 2
1168                graphic 2
1169                direction l2r
1170                registry "HanyoDenshi\\.FT-0$"
1171                min-code    ,(+ (lsh #x6400 16) (* 94 94 4))
1172                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 5)))
1173                code-offset ,(+ (lsh #x6400 16) (* 94 94 4))))
1174   (make-charset
1175    '=hanyo-denshi/ia
1176    "IA part of Han'you-Denshi characters"
1177    `(long-name "Han'you-Denshi/IA"
1178                chars 94
1179                dimension 2
1180                columns 2
1181                graphic 2
1182                direction l2r
1183                registry "HanyoDenshi\\.IA-0$"
1184                min-code    ,(+ (lsh #x6400 16) (* 94 94 5))
1185                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 6)))
1186                code-offset ,(+ (lsh #x6400 16) (* 94 94 5))))
1187   (make-charset
1188    '=hanyo-denshi/ib
1189    "IB part of Han'you-Denshi characters"
1190    `(long-name "Han'you-Denshi/IB"
1191                chars 94
1192                dimension 2
1193                columns 2
1194                graphic 2
1195                direction l2r
1196                registry "HanyoDenshi\\.IB-0$"
1197                min-code    ,(+ (lsh #x6400 16) (* 94 94 6))
1198                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 7)))
1199                code-offset ,(+ (lsh #x6400 16) (* 94 94 6))))
1200   (make-charset
1201    '=hanyo-denshi/hg
1202    "HG (HyouGai Kanji) part of Han'you-Denshi characters"
1203    `(long-name "Han'you-Denshi/HG"
1204                chars 94
1205                dimension 2
1206                columns 2
1207                graphic 2
1208                direction l2r
1209                registry "HanyoDenshi\\.HG-0$"
1210                min-code    ,(+ (lsh #x6400 16) (* 94 94 7))
1211                max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 8)))
1212                code-offset ,(+ (lsh #x6400 16) (* 94 94 7))))
1213   (make-charset
1214    '=hanyo-denshi/ip
1215    "IP (for IPA) part of Han'you-Denshi characters"
1216    `(long-name "Han'you-Denshi/IP"
1217                chars 256
1218                dimension 2
1219                columns 2
1220                graphic 2
1221                direction l2r
1222                registry "HanyoDenshi\\.IP-0$"
1223                min-code    ,(+ (lsh #x6402 16) #x4E00)
1224                max-code    ,(+ (lsh #x6402 16) #x9FFF)
1225                code-offset ,(+ (lsh #x6402 16))))
1226   (make-charset
1227    '=hanyo-denshi/jt
1228    "JT (Juuki Touitsu Moji) part of Han'you-Denshi characters"
1229    `(long-name "Han'you-Denshi/JT"
1230                chars 256
1231                dimension 2
1232                columns 2
1233                graphic 2
1234                direction l2r
1235                registry "HanyoDenshi\\.JT-0$"
1236                min-code    ,(+ (lsh #x6402 16) #xAC00)
1237                max-code    ,(+ (lsh #x6402 16) #xD7AF)
1238                code-offset ,(+ (lsh #x6402 16))))
1239   (make-charset
1240    '=hanyo-denshi/ks
1241    "KS (KoSeki) part of Han'you-Denshi characters"
1242    `(long-name "Han'you-Denshi/KS font encoding"
1243                chars 256
1244                dimension 3
1245                columns 2
1246                graphic 2
1247                direction l2r))
1248   (make-charset
1249    '=hanyo-denshi/ks/mf
1250    "font encoding for KS (KoSeki) characters"
1251    `(long-name "Han'you-Denshi/KS font encoding"
1252                chars 256
1253                dimension 2
1254                columns 2
1255                graphic 2
1256                direction l2r
1257                registry "HanyoDenshi\\.KSMF-0$"
1258                min-code       ,(lsh #x6403 16)
1259                max-code    ,(+ (lsh #x6403 16) #xFFFF)
1260                code-offset    ,(lsh #x6403 16)))
1261
1262   (make-charset
1263    '=>>>hanyo-denshi/ja
1264    "Han'you-Denshi/JA abstract glyph-forms"
1265    '(long-name "Han'you-Denshi/JA glyph-forms"
1266                chars 94
1267                dimension 2
1268                columns 2
1269                graphic 2
1270                direction l2r
1271                registry "HanyoDenshi\\.JA-0$"
1272                mother =hanyo-denshi/ja))
1273   (make-charset
1274    '=>>>hanyo-denshi/jb
1275    "Han'you-Denshi/JB abstract glyph-forms"
1276    '(long-name "Han'you-Denshi/JB glyph-forms"
1277                chars 94
1278                dimension 2
1279                columns 2
1280                graphic 2
1281                direction l2r
1282                registry "HanyoDenshi\\.JB-0$"
1283                mother =hanyo-denshi/jb))
1284   (make-charset
1285    '=>>>hanyo-denshi/jc
1286    "Han'you-Denshi/JC abstract glyph-forms"
1287    '(long-name "Han'you-Denshi/JC glyph-forms"
1288                chars 94
1289                dimension 2
1290                columns 2
1291                graphic 2
1292                direction l2r
1293                registry "HanyoDenshi\\.JC-0$"
1294                mother =hanyo-denshi/jc))
1295   (make-charset
1296    '=>>>hanyo-denshi/jd
1297    "Han'you-Denshi/JD abstract glyph-forms"
1298    '(long-name "Han'you-Denshi/JD glyph-forms"
1299                chars 94
1300                dimension 2
1301                columns 2
1302                graphic 2
1303                direction l2r
1304                registry "HanyoDenshi\\.JD-0$"
1305                mother =hanyo-denshi/jd))
1306   (make-charset
1307    '=>>>hanyo-denshi/ft
1308    "Han'you-Denshi/FT abstract glyph-forms"
1309    '(long-name "Han'you-Denshi/FT glyph-forms"
1310                chars 94
1311                dimension 2
1312                columns 2
1313                graphic 2
1314                direction l2r
1315                registry "HanyoDenshi\\.FT-0$"
1316                mother =hanyo-denshi/ft))
1317   (make-charset
1318    '=>>>hanyo-denshi/ib
1319    "Han'you-Denshi/IB abstract glyph-forms"
1320    '(long-name "Han'you-Denshi/IB glyph-forms"
1321                chars 94
1322                dimension 2
1323                columns 2
1324                graphic 2
1325                direction l2r
1326                registry "HanyoDenshi\\.IB-0$"
1327                mother =hanyo-denshi/ib))
1328   (make-charset
1329    '=>>>hanyo-denshi/hg
1330    "Han'you-Denshi/HG abstract glyph-forms"
1331    '(long-name "Han'you-Denshi/HG glyph-forms"
1332                chars 94
1333                dimension 2
1334                columns 2
1335                graphic 2
1336                direction l2r
1337                registry "HanyoDenshi\\.HG-0$"
1338                mother =hanyo-denshi/hg))
1339   (make-charset
1340    '=>>>hanyo-denshi/jt
1341    "JT (Juuki Touitsu Moji) abstract glyph-forms"
1342    '(long-name "Han'you-Denshi/JT glyph-forms"
1343                chars 256
1344                dimension 2
1345                columns 2
1346                graphic 2
1347                direction l2r
1348                registry "HanyoDenshi\\.JT-0$"
1349                mother =hanyo-denshi/jt))
1350   (make-charset
1351    '=>>>hanyo-denshi/ks
1352    "KoSeki-touitsu-moji abstract glyph-forms"
1353    '(long-name "Han'you-Denshi/KS glyph-forms"
1354                chars 256
1355                dimension 3
1356                columns 2
1357                graphic 2
1358                direction l2r
1359                mother =hanyo-denshi/ks))
1360
1361   (make-charset
1362    '=>>hanyo-denshi/ja
1363    "Han'you-Denshi/JA abstract glyphs"
1364    '(long-name "Han'you-Denshi/JA glyphs"
1365                chars 94
1366                dimension 2
1367                columns 2
1368                graphic 2
1369                direction l2r
1370                registry "HanyoDenshi\\.JA-0$"
1371                mother =>>>hanyo-denshi/ja))
1372   (make-charset
1373    '=>>hanyo-denshi/jb
1374    "Han'you-Denshi/JB abstract glyphs"
1375    '(long-name "Han'you-Denshi/JB glyphs"
1376                chars 94
1377                dimension 2
1378                columns 2
1379                graphic 2
1380                direction l2r
1381                registry "HanyoDenshi\\.JB-0$"
1382                mother =>>>hanyo-denshi/jb))
1383   (make-charset
1384    '=>>hanyo-denshi/jc
1385    "Han'you-Denshi/JC abstract glyphs"
1386    '(long-name "Han'you-Denshi/JC glyphs"
1387                chars 94
1388                dimension 2
1389                columns 2
1390                graphic 2
1391                direction l2r
1392                registry "HanyoDenshi\\.JC-0$"
1393                mother =>>>hanyo-denshi/jc))
1394   (make-charset
1395    '=>>hanyo-denshi/jd
1396    "Han'you-Denshi/JD abstract glyphs"
1397    '(long-name "Han'you-Denshi/JD glyphs"
1398                chars 94
1399                dimension 2
1400                columns 2
1401                graphic 2
1402                direction l2r
1403                registry "HanyoDenshi\\.JD-0$"
1404                mother =>>>hanyo-denshi/jd))
1405   (make-charset
1406    '=>>hanyo-denshi/ft
1407    "Han'you-Denshi/FT abstract glyphs"
1408    '(long-name "Han'you-Denshi/FT glyphs"
1409                chars 94
1410                dimension 2
1411                columns 2
1412                graphic 2
1413                direction l2r
1414                registry "HanyoDenshi\\.FT-0$"
1415                mother =>>>hanyo-denshi/ft))
1416   (make-charset
1417    '=>>hanyo-denshi/ia
1418    "Han'you-Denshi/IA abstract glyphs"
1419    '(long-name "Han'you-Denshi/IA glyphs"
1420                chars 94
1421                dimension 2
1422                columns 2
1423                graphic 2
1424                direction l2r
1425                registry "HanyoDenshi\\.IA-0$"
1426                mother =hanyo-denshi/ia))
1427   (make-charset
1428    '=>>hanyo-denshi/ib
1429    "Han'you-Denshi/IB abstract glyphs"
1430    '(long-name "Han'you-Denshi/IB abstract glyphs"
1431                chars 94
1432                dimension 2
1433                columns 2
1434                graphic 2
1435                direction l2r
1436                registry "HanyoDenshi\\.IB-0$"
1437                mother =>>>hanyo-denshi/ib))
1438   (make-charset
1439    '=>>hanyo-denshi/hg
1440    "Han'you-Denshi/HG abstract glyphs"
1441    '(long-name "Han'you-Denshi/HG abstract glyphs"
1442                chars 94
1443                dimension 2
1444                columns 2
1445                graphic 2
1446                direction l2r
1447                registry "HanyoDenshi\\.HG-0$"
1448                mother =>>>hanyo-denshi/hg))
1449   (make-charset
1450    '=>>hanyo-denshi/ip
1451    "Han'you-Denshi/IP abstract glyphs"
1452    '(long-name "Han'you-Denshi/IP abstract glyphs"
1453                chars 256
1454                dimension 2
1455                columns 2
1456                graphic 2
1457                direction l2r
1458                registry "HanyoDenshi\\.IP-0$"
1459                mother =hanyo-denshi/ip))
1460   (make-charset
1461    '=>>hanyo-denshi/jt
1462    "JT (Juuki Touitsu Moji) abstract glyphs"
1463    '(long-name "Han'you-Denshi/JT glyphs"
1464                chars 256
1465                dimension 2
1466                columns 2
1467                graphic 2
1468                direction l2r
1469                registry "HanyoDenshi\\.JT-0$"
1470                mother =>>>hanyo-denshi/jt))
1471   (make-charset
1472    '=>>hanyo-denshi/ks
1473    "Han'you-Denshi/KS abstract glyphs"
1474    '(long-name "Han'you-Denshi/KS glyphs"
1475                chars 256
1476                dimension 3
1477                columns 2
1478                graphic 2
1479                direction l2r
1480                mother =>>>hanyo-denshi/ks))
1481
1482   (make-charset '=gt
1483                 "GT 2000"
1484                 `(long-name     "GT"
1485                   chars         256
1486                   dimension     3
1487                   columns       2
1488                   graphic       2
1489                   direction     l2r
1490                   registry      ""
1491                   min-code      ,(lsh #x6100 16)
1492                   max-code      ,(+ (lsh #x6100 16) 67547)
1493                   code-offset   ,(lsh #x6100 16)))
1494   (define-charset-alias 'ideograph-gt '=gt)
1495   (make-charset '=>>>gt
1496                 "GT 2000 abstract glyph-forms"
1497                 '(long-name     "GT abstract glyph-forms"
1498                   chars         256
1499                   dimension     3
1500                   columns       2
1501                   graphic       2
1502                   direction     l2r
1503                   mother        =gt))
1504   (make-charset '=>>gt
1505                 "GT 2000 abstract glyphs"
1506                 '(long-name     "GT abstract glyphs"
1507                   chars         256
1508                   dimension     3
1509                   columns       2
1510                   graphic       2
1511                   direction     l2r
1512                   mother        =>>>gt))
1513   (define-charset-alias '<=>gt '=>>gt)
1514   (define-charset-alias '<==>gt '=>>gt)
1515   (make-charset '=+>gt
1516                 "GT 2000 unified abstract glyphs"
1517                 '(long-name     "Unified abstract GT glyphs"
1518                   chars         256
1519                   dimension     3
1520                   columns       2
1521                   graphic       2
1522                   direction     l2r
1523                   mother        =>>gt))
1524   (make-charset '=>gt
1525                 "GT 2000 abstract characters"
1526                 '(long-name     "abstract GT characters"
1527                   chars         256
1528                   dimension     3
1529                   columns       2
1530                   graphic       2
1531                   direction     l2r
1532                   mother        =+>gt))
1533   (make-charset '=gt-k
1534                 "Ideographic components of GT"
1535                 `(long-name     "GT components"
1536                   chars         256
1537                   dimension     2
1538                   columns       2
1539                   graphic       2
1540                   direction     l2r
1541                   registry      ""
1542                   min-code      ,(lsh #x6110 16)
1543                   max-code      ,(+ (lsh #x6110 16) 17090)
1544                   code-offset   ,(lsh #x6110 16)))
1545   (define-charset-alias 'ideograph-gt-k '=gt-k)
1546   (make-charset '=>>gt-k
1547                 "abstract glyphs of GT-K"
1548                 '(long-name     "GT-K abstract glyphs"
1549                   chars         256
1550                   dimension     2
1551                   columns       2
1552                   graphic       2
1553                   direction     l2r
1554                   mother        =gt-k))
1555   (make-charset '=>gt-k
1556                 "GT-K abstract characters"
1557                 '(long-name     "GT-K abstract characters"
1558                   chars         256
1559                   dimension     2
1560                   columns       2
1561                   graphic       2
1562                   direction     l2r
1563                   mother        =>>gt-k))
1564   (let ((i 1))
1565     (while (<= i 11)
1566       (make-charset
1567        (intern (format "=gt-pj-%d" i))
1568        (format "GT 2000 (pseudo JIS encoding) part %d" i)
1569        `(long-name ,(format "GT PJ %d" i)
1570                    chars 94
1571                    dimension 2
1572                    columns 2
1573                    graphic 0
1574                    direction l2r
1575                    registry ,(format "\\(GTpj-%d\\|jisx0208\\.GT-%d\\)$" i i)))
1576       (define-charset-alias
1577         (intern (format "ideograph-gt-pj-%d" i))
1578         (intern (format "=gt-pj-%d" i)))
1579       (setq i (1+ i))))
1580   (make-charset
1581    '=gt-pj-k1
1582    "Ideographic parts of GT (pseudo JIS encoding) part 1"
1583    '(long-name "GT K1"
1584                chars 94
1585                dimension 2
1586                columns 2
1587                graphic 0
1588                direction l2r
1589                registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$"))
1590   (define-charset-alias 'ideograph-gt-pj-k1 '=gt-pj-k1)
1591   (make-charset
1592    '=gt-pj-k2
1593    "Ideographic parts of GT (pseudo JIS encoding) part 2"
1594    '(long-name "GT K2"
1595                chars 94
1596                dimension 2
1597                columns 2
1598                graphic 0
1599                direction l2r
1600                registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$"))
1601   (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2)
1602
1603   (make-charset '=daikanwa
1604                 "Daikanwa dictionary (unchanged part)"
1605                 `(long-name     "Daikanwa"
1606                   chars         256
1607                   dimension     2
1608                   columns       2
1609                   graphic       2
1610                   direction     l2r
1611                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
1612                   min-code      #xE00000
1613                   max-code      ,(+ #xE00000 50100)
1614                   code-offset   #xE00000))
1615   (define-charset-alias 'ideograph-daikanwa '=daikanwa)
1616
1617   (make-charset '=daikanwa@rev1
1618                 "Daikanwa dictionary (revised version)"
1619                 '(long-name     "Daikanwa Rev."
1620                   chars         256
1621                   dimension     2
1622                   columns       2
1623                   graphic       2
1624                   direction     l2r
1625                   registry      "Daikanwa\\(\\.[0-9]+\\)?-2"
1626                   mother        =daikanwa))
1627   (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa@rev1)
1628   (define-charset-alias '=daikanwa-rev1 '=daikanwa@rev1)
1629
1630   (make-charset '=daikanwa@rev2
1631                 "Daikanwa dictionary (revised version 2)"
1632                 '(long-name     "Daikanwa"
1633                   chars         256
1634                   dimension     2
1635                   columns       2
1636                   graphic       2
1637                   direction     l2r
1638                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
1639                   mother        =daikanwa
1640                   min-code      1
1641                   max-code      49964))
1642   (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2)
1643
1644   (make-charset '=daikanwa/+p
1645                 "Daikanwa dictionary (ddddd')"
1646                 '(long-name     "Daikanwa ddddd'"
1647                   chars         256
1648                   dimension     2
1649                   columns       2
1650                   graphic       2
1651                   direction     l2r))
1652   (make-charset '=daikanwa/+2p
1653                 "Daikanwa dictionary (ddddd'')"
1654                 '(long-name     "Daikanwa ddddd''"
1655                   chars         256
1656                   dimension     2
1657                   columns       2
1658                   graphic       2
1659                   direction     l2r))
1660   (make-charset '=daikanwa/ho
1661                 "Daikanwa dictionary (Hokan)"
1662                 '(long-name     "Daikanwa-ho"
1663                   chars         256
1664                   dimension     2
1665                   columns       2
1666                   graphic       2
1667                   direction     l2r))
1668
1669   (make-charset '=>>daikanwa
1670                 "Daikanwa abstract glyphs"
1671                 '(long-name     "Daikanwa glyphs"
1672                   chars         256
1673                   dimension     2
1674                   columns       2
1675                   graphic       2
1676                   direction     l2r
1677                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
1678                   mother        =daikanwa))
1679   (make-charset '=>>daikanwa/+p
1680                 "Daikanwa abstract glyphs (ddddd')"
1681                 '(long-name     "Daikanwa glyphs (ddddd')"
1682                   chars         256
1683                   dimension     2
1684                   columns       2
1685                   graphic       2
1686                   direction     l2r
1687                   mother        =daikanwa/+p))
1688   (make-charset '=>>daikanwa/+2p
1689                 "Daikanwa abstract glyphs (ddddd'')"
1690                 '(long-name     "Daikanwa glyphs (ddddd'')"
1691                   chars         256
1692                   dimension     2
1693                   columns       2
1694                   graphic       2
1695                   direction     l2r
1696                   mother        =daikanwa/+2p))
1697   (make-charset '=>>daikanwa/ho
1698                 "Daikanwa abstract glyphs (Hokan)"
1699                 '(long-name     "Daikanwa-ho glyph"
1700                   chars         256
1701                   dimension     2
1702                   columns       2
1703                   graphic       2
1704                   direction     l2r
1705                   mother        =daikanwa/ho))
1706
1707   (make-charset '=>daikanwa
1708                 "Daikanwa abstract characters"
1709                 '(long-name     "abstract Daikanwa"
1710                   chars         256
1711                   dimension     2
1712                   columns       2
1713                   graphic       2
1714                   direction     l2r
1715                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
1716                   mother        =>>daikanwa))
1717   (make-charset '=>daikanwa/ho
1718                 "Daikanwa abstract characters (Hokan)"
1719                 '(long-name     "abstract Daikanwa-ho"
1720                   chars         256
1721                   dimension     2
1722                   columns       2
1723                   graphic       2
1724                   direction     l2r
1725                   mother        =>>daikanwa/ho))
1726
1727   (make-charset '=shinjigen
1728                 "Kadokawa ShinJigen dictionary (common parts)"
1729                 `(long-name     "Shinjigen common parts"
1730                   chars         256
1731                   dimension     2
1732                   columns       2
1733                   graphic       2
1734                   direction     l2r
1735                   registry      "Shinjigen\\(\\.[0-9]+\\)?-*"))
1736
1737   (make-charset '=shinjigen@1ed
1738                 "Kadokawa ShinJigen dictionary (the first edition)"
1739                 `(long-name     "Shinjigen-1"
1740                   chars         256
1741                   dimension     2
1742                   columns       2
1743                   graphic       2
1744                   direction     l2r
1745                   mother        =shinjigen
1746                   registry      "Shinjigen\\(\\.[0-9]+\\)?-1"))
1747   (define-charset-alias 'shinjigen-1 '=shinjigen@1ed)
1748
1749   (make-charset '=shinjigen@1ed/24pr
1750                 "Kadokawa ShinJigen dictionary (the 24th impression)"
1751                 `(long-name     "Shinjigen-1 24pr"
1752                   chars         256
1753                   dimension     2
1754                   columns       2
1755                   graphic       2
1756                   direction     l2r
1757                   mother        =shinjigen@1ed))
1758
1759   (make-charset '=shinjigen@rev
1760                 "Kadokawa ShinJigen dictionary (the revised edition)"
1761                 `(long-name     "Shinjigen-2"
1762                   chars         256
1763                   dimension     2
1764                   columns       2
1765                   graphic       2
1766                   direction     l2r
1767                   mother        =shinjigen
1768                   registry      "Shinjigen\\(\\.[0-9]+\\)?-2"))
1769   (define-charset-alias 'shinjigen-2 '=shinjigen@rev)
1770   (make-charset '=shinjigen/+p@rev
1771                 "ShinJigen (the second edition) number with '"
1772                 `(long-name     "Shinjigen-2 with '"
1773                   chars         256
1774                   dimension     2
1775                   columns       2
1776                   graphic       2
1777                   direction     l2r))
1778   (define-charset-alias 'shinjigen-2-p '=shinjigen/+p@rev)
1779
1780   (make-charset '=big5-pua
1781                 "Big5 with private used area"
1782                 '(long-name     "Big5-PUA"
1783                   chars         256
1784                   dimension     2
1785                   columns       2
1786                   graphic       2
1787                   direction     l2r
1788                   mother        chinese-big5
1789                   registry      "Big5\\.ETEN"))
1790   (define-charset-alias 'chinese-big5-pua '=big5-pua)
1791
1792   (let* ((i 1)
1793          (hzk-min (+ (lsh #x6200 16) 65536))
1794          (hzk-max (+ hzk-min 65535)))
1795     (while (<= i 12)
1796       (make-charset
1797        (intern (format "=hanziku-%d" i))
1798        (format "HANZIKU (pseudo BIG5 encoding) part %d" i)
1799        `(long-name ,(format "HANZIKU-%d" i)
1800                    chars 256
1801                    dimension 2
1802                    columns 2
1803                    graphic 2
1804                    direction l2r
1805                    registry ,(format "hanziku-%d$" i i)
1806                    min-code ,hzk-min
1807                    max-code ,hzk-max
1808                    code-offset ,hzk-min))
1809       (define-charset-alias
1810         (intern (format "ideograph-hanziku-%d" i))
1811         (intern (format "=hanziku-%d" i)))
1812       (setq hzk-min (1+ hzk-max)
1813             hzk-max (+ hzk-min 65535))
1814       (setq i (1+ i))))
1815
1816   (make-charset '=cbeta "CBETA private characters"
1817                 '(long-name     "CBETA PUA"
1818                   chars         256
1819                   dimension     2
1820                   registry      "cbeta-0"
1821                   graphic       2
1822                   min-code      #xE20000
1823                   max-code      #xE2FFFF
1824                   code-offset   #xE20000
1825                   columns       2
1826                   direction     l2r))
1827   (define-charset-alias 'ideograph-cbeta '=cbeta)
1828
1829   (make-charset '=>>cbeta "CBETA abstract glyphs"
1830                 '(long-name     "CBETA glyphs"
1831                   chars         256
1832                   dimension     2
1833                   registry      "cbeta-0"
1834                   graphic       2
1835                   columns       2
1836                   direction     l2r
1837                   mother        =cbeta))
1838
1839   (make-charset '=zinbun-oracle
1840                 "Oracle Bones Script"
1841                 `(long-name     "Oracle Bones Script in Zinbun, Kyoto Univ."
1842                   chars         256
1843                   dimension     2
1844                   registry      "zob1968-0"
1845                   graphic       2
1846                   min-code      #xE70000
1847                   max-code      ,(+ #xE70000 8192)
1848                   code-offset   #xE70000
1849                   columns       2
1850                   direction     l2r))
1851
1852   (make-charset '=>zinbun-oracle
1853                 "Abstract Oracle Bones"
1854                 '(long-name     "Abstract characters of Zinbun Oracle Bones."
1855                   chars         256
1856                   dimension     2
1857                   mother        =zinbun-oracle
1858                   registry      "zob1968-0"
1859                   graphic       2
1860                   columns       2
1861                   direction     l2r))
1862
1863   (make-charset '=jef-china3
1864                 "JEF + CHINA3 private characters"
1865                 '(long-name     "JEF + CHINA3"
1866                   chars         256
1867                   dimension     2
1868                   columns       2
1869                   graphic       2
1870                   direction     l2r
1871                   registry      "china3jef-0"
1872                   min-code      #xE80000
1873                   max-code      #xE8FFFF
1874                   code-offset   #xE80000))
1875   (define-charset-alias 'china3-jef '=jef-china3)
1876
1877   (make-charset '=ruimoku-v6
1878                 "private characters used in RUIMOKU Version.6"
1879                 `(long-name     "RUI6"
1880                   chars         256
1881                   dimension     2
1882                   columns       2
1883                   graphic       2
1884                   direction     l2r
1885                   registry      "rui6-0"
1886                   ;; mother     ucs
1887                   min-code      #xE90000 ; #xE000
1888                   max-code      #xE908FF ; #xE8FF
1889                   code-offset   ,(- #xE90000 #xE000)))
1890   (make-charset '=>>ruimoku-v6
1891                 "RUIMOKU Version.6 glyphs"
1892                 '(long-name     "RUI6 glyphs"
1893                   chars         256
1894                   dimension     2
1895                   columns       2
1896                   graphic       2
1897                   direction     l2r
1898                   registry      "rui6-0"
1899                   mother        =ruimoku-v6))
1900
1901   ;; (make-charset
1902   ;;  '=zihai
1903   ;;  "ZhongHua-ZiHai glyph-images"
1904   ;;  '(long-name "ZhongHua-ZiHai (pppp-nn)"
1905   ;;              chars 256
1906   ;;              dimension 3
1907   ;;              columns 2
1908   ;;              graphic 2
1909   ;;              direction l2r))
1910
1911   ;; (make-charset
1912   ;;  '=zihai-17xx
1913   ;;  "ZhongHua-ZiHai (pp.1700\e$B!A\e(B1781) glyph-images"
1914   ;;  '(long-name "ZhongHua-ZiHai pp.17xx"
1915   ;;              chars 256
1916   ;;              dimension 2
1917   ;;              columns 2
1918   ;;              graphic 2
1919   ;;              direction l2r
1920   ;;              registry "zihai\\.cp-17$"))
1921
1922   (make-charset '=big5-cdp-var-3
1923                 "Big5-CDP-var-3 glyph-images of GlyphWiki"
1924                 '(long-name     "Big5-CDP-var-3"
1925                   chars         256
1926                   dimension     2
1927                   columns       2
1928                   graphic       2
1929                   direction     l2r
1930                   registry      "cdp\\.var-3$"
1931                   mother        =big5-cdp))
1932
1933   (make-charset '=big5-cdp-var-5
1934                 "Big5-CDP-var-5 glyph-images of GlyphWiki"
1935                 '(long-name     "Big5-CDP-var-5"
1936                   chars         256
1937                   dimension     2
1938                   columns       2
1939                   graphic       2
1940                   direction     l2r
1941                   registry      "cdp\\.var-5$"
1942                   mother        =big5-cdp))
1943
1944   (make-charset '==>ucs@bucs
1945                 "Basic Subset of Coded Character Sets (BUCS)"
1946                 '(long-name     "BUCS abstract characters"
1947                   chars         256
1948                   dimension     3
1949                   columns       2
1950                   graphic       2
1951                   direction     l2r
1952                   =>iso-ir      177
1953                   mother        =ucs))
1954
1955   (make-charset '=>ucs@iso
1956                 "Abstract characters of ISO/IEC 10646 representatives"
1957                 '(long-name     "UCS characters for ISO"
1958                   chars         256
1959                   dimension     3
1960                   columns       2
1961                   graphic       2
1962                   direction     l2r
1963                   =>iso-ir      177
1964                   mother        =ucs))
1965   (make-charset '=>ucs@unicode
1966                 "Abstract characters of Unicode representatives"
1967                 '(long-name     "UCS characters for Unicode"
1968                   chars         256
1969                   dimension     3
1970                   columns       2
1971                   graphic       2
1972                   direction     l2r
1973                   =>iso-ir      177
1974                   mother        =>ucs@iso))
1975   (make-charset '=>ucs@jis
1976                 "UCS representative characters for JIS X0208/0212/0213"
1977                 '(long-name     "UCS characters for JIS"
1978                   chars         256
1979                   dimension     3
1980                   columns       2
1981                   graphic       2
1982                   direction     l2r
1983                   =>iso-ir      177
1984                   mother        =>ucs@unicode))
1985   (make-charset '=>ucs@ks
1986                 "UCS representative characters for Korean Standards"
1987                 '(long-name     "UCS characters for KS"
1988                   chars         256
1989                   dimension     3
1990                   columns       2
1991                   graphic       2
1992                   direction     l2r
1993                   =>iso-ir      177
1994                   mother        =>ucs@unicode))
1995   (make-charset '=>ucs@cns
1996                 "UCS representatives characters for CNS 11643 sources"
1997                 '(long-name     "UCS characters for CNS 11643"
1998                   chars         256
1999                   dimension     3
2000                   columns       2
2001                   graphic       2
2002                   direction     l2r
2003                   =>iso-ir      177
2004                   mother        =>ucs@unicode))
2005
2006   (make-charset '=+>ucs@iso
2007                 "UCS based on ISO/IEC 10646 representative glyphs"
2008                 '(long-name     "Unified abstract glyphs of UCS"
2009                   chars         256
2010                   dimension     3
2011                   columns       2
2012                   graphic       2
2013                   direction     l2r
2014                   =>iso-ir      177
2015                   mother        =>ucs@iso))
2016   (make-charset '=+>ucs@unicode
2017                 "Unicode representative unified abstract glyphs"
2018                 '(long-name     "UCS unified abstract glyphs for Unicode"
2019                   chars         256
2020                   dimension     3
2021                   columns       2
2022                   graphic       2
2023                   direction     l2r
2024                   =>iso-ir      177
2025                   mother        =+>ucs@iso))
2026   (make-charset '=+>ucs@jis
2027                 "UCS based on Japanese usual unification"
2028                 '(long-name     "UCS unified abstract glyphs for JP"
2029                   chars         256
2030                   dimension     3
2031                   columns       2
2032                   graphic       2
2033                   direction     l2r
2034                   =>iso-ir      177
2035                   mother        =+>ucs@unicode))
2036   (define-charset-alias '=>ucs@JP '=+>ucs@jis)
2037   (make-charset '=+>ucs@jis/1990
2038                 "UCS representative characters for JIS X0208/0212:1990"
2039                 '(long-name     "UCS characters for JIS:1990"
2040                   chars         256
2041                   dimension     3
2042                   columns       2
2043                   graphic       2
2044                   direction     l2r
2045                   =>iso-ir      177
2046                   mother        =+>ucs@jis))
2047   (define-charset-alias '=>ucs@jis/1990 '=+>ucs@jis/1990)
2048   (make-charset '=+>ucs@jis/2004
2049                 "UCS representative characters for JIS X 0213:2004"
2050                 '(long-name     "UCS characters for JIS:2004"
2051                   chars         256
2052                   dimension     3
2053                   columns       2
2054                   graphic       2
2055                   direction     l2r
2056                   =>iso-ir      177
2057                   mother        =+>ucs@jis))
2058   (make-charset '=+>ucs@ks
2059                 "UCS representative unified abstract glyphs for Korean Standards"
2060                 '(long-name     "UCS unified abstract glyphs for KS"
2061                   chars         256
2062                   dimension     3
2063                   columns       2
2064                   graphic       2
2065                   direction     l2r
2066                   =>iso-ir      177
2067                   mother        =+>ucs@unicode))
2068   (make-charset '=+>ucs@cns
2069                 "UCS representatives unified abstract glyphs for CNS 11643 sources"
2070                 '(long-name     "UCS unified abstract glyphs for CNS"
2071                   chars         256
2072                   dimension     3
2073                   columns       2
2074                   graphic       2
2075                   direction     l2r
2076                   =>iso-ir      177
2077                   mother        =+>ucs@unicode))
2078
2079   (make-charset '=>>ucs@iso
2080                 "Representative abstract-glyphs of ISO/IEC 10646"
2081                 '(long-name     "UCS abstract glyphs for UCS"
2082                   chars         256
2083                   dimension     3
2084                   columns       2
2085                   graphic       2
2086                   direction     l2r
2087                   =>iso-ir      177
2088                   mother        =+>ucs@iso))
2089   (make-charset '=>>ucs@unicode
2090                 "Representative abstract-glyphs of Unicode"
2091                 '(long-name     "Unicode abstract glyphs"
2092                   chars         256
2093                   dimension     3
2094                   columns       2
2095                   graphic       2
2096                   direction     l2r
2097                   =>iso-ir      177
2098                   mother        =>>ucs@iso))
2099   (make-charset '=>>ucs@jis
2100                 "UCS Representative abstract-glyphs for JIS X0208/0212/0213"
2101                 '(long-name     "UCS abstract glyphs for JIS"
2102                   chars         256
2103                   dimension     3
2104                   columns       2
2105                   graphic       2
2106                   direction     l2r
2107                   =>iso-ir      177
2108                   mother        =>>ucs@unicode))
2109   (make-charset '=>>ucs@jis/1990
2110                 "UCS Representative glyphs for JIS X 0208/0212:1990"
2111                 '(long-name     "UCS glyphs for JIS:1990"
2112                   chars         256
2113                   dimension     3
2114                   columns       2
2115                   graphic       2
2116                   direction     l2r
2117                   =>iso-ir      177
2118                   mother        =>>ucs@jis))
2119   (make-charset '=>>ucs@jis/2000
2120                 "UCS Representative glyphs for JIS X 0213:2000"
2121                 '(long-name     "UCS glyphs for JIS:2000"
2122                   chars         256
2123                   dimension     3
2124                   columns       2
2125                   graphic       2
2126                   direction     l2r
2127                   =>iso-ir      177
2128                   mother        =>>ucs@jis))
2129   (make-charset '=>>ucs@jis/2004
2130                 "UCS Representative glyphs for JIS X 0213:2004"
2131                 '(long-name     "UCS glyphs for JIS:2004"
2132                   chars         256
2133                   dimension     3
2134                   columns       2
2135                   graphic       2
2136                   direction     l2r
2137                   =>iso-ir      177
2138                   mother        =>>ucs@jis))
2139   (make-charset '=>>ucs@JP
2140                 "UCS abstract-glyphs based on Japanese style glyphs"
2141                 '(long-name     "UCS glyphs for JP"
2142                   chars         256
2143                   dimension     3
2144                   columns       2
2145                   graphic       2
2146                   direction     l2r
2147                   =>iso-ir      177
2148                   mother        =>>ucs@jis/2004))
2149   (make-charset '=>>ucs@ks
2150                 "UCS Representative glyphs for Korean Standards"
2151                 '(long-name     "UCS glyphs for KS"
2152                   chars         256
2153                   dimension     3
2154                   columns       2
2155                   graphic       2
2156                   direction     l2r
2157                   =>iso-ir      177
2158                   mother        =>>ucs@unicode))
2159   (make-charset '=>>ucs@cns
2160                 "UCS Representative glyphs for CNS 11643 sources"
2161                 '(long-name     "UCS glyphs for CNS"
2162                   chars         256
2163                   dimension     3
2164                   columns       2
2165                   graphic       2
2166                   direction     l2r
2167                   =>iso-ir      177
2168                   mother        =>>ucs@unicode))
2169
2170   (make-charset '=>>>ucs@iso
2171                 "Representative glyph-forms of ISO/IEC 10646"
2172                 '(long-name     "UCS glyph-forms for UCS"
2173                   chars         256
2174                   dimension     3
2175                   columns       2
2176                   graphic       2
2177                   direction     l2r
2178                   =>iso-ir      177
2179                   mother        =>>ucs@iso))
2180   (make-charset '=>>>ucs@unicode
2181                 "Representative glyph-forms of Unicode"
2182                 '(long-name     "UCS glyph-forms for Unicode"
2183                   chars         256
2184                   dimension     3
2185                   columns       2
2186                   graphic       2
2187                   direction     l2r
2188                   =>iso-ir      177
2189                   mother        =>>>ucs@iso))
2190   (make-charset '=>>>ucs@jis
2191                 "UCS Representative glyph-forms for JIS X0208/0212/0213"
2192                 '(long-name     "UCS glyph-forms for JIS"
2193                   chars         256
2194                   dimension     3
2195                   columns       2
2196                   graphic       2
2197                   direction     l2r
2198                   =>iso-ir      177
2199                   mother        =>>>ucs@unicode))
2200   (make-charset '=>>>ucs@jis/1990
2201                 "UCS Representative glyph-forms for JIS X 0208/0212:1990"
2202                 '(long-name     "UCS glyph-forms for JIS:1990"
2203                   chars         256
2204                   dimension     3
2205                   columns       2
2206                   graphic       2
2207                   direction     l2r
2208                   =>iso-ir      177
2209                   mother        =>>>ucs@jis))
2210   (make-charset '=>>>ucs@jis/2000
2211                 "UCS Representative glyph-forms for JIS X 0213:2000"
2212                 '(long-name     "UCS glyph-forms for JIS:2000"
2213                   chars         256
2214                   dimension     3
2215                   columns       2
2216                   graphic       2
2217                   direction     l2r
2218                   =>iso-ir      177
2219                   mother        =>>>ucs@jis))
2220   (make-charset '=>>>ucs@jis/2004
2221                 "UCS Representative glyph-forms for JIS X 0213:2004"
2222                 '(long-name     "UCS glyph-forms for JIS:2004"
2223                   chars         256
2224                   dimension     3
2225                   columns       2
2226                   graphic       2
2227                   direction     l2r
2228                   =>iso-ir      177
2229                   mother        =>>>ucs@jis))
2230   (make-charset '=>>>ucs@ks
2231                 "UCS Representative glyph-forms for Korean Standards"
2232                 '(long-name     "UCS glyph-forms for KS"
2233                   chars         256
2234                   dimension     3
2235                   columns       2
2236                   graphic       2
2237                   direction     l2r
2238                   =>iso-ir      177
2239                   mother        =>>>ucs@unicode))
2240   (make-charset '=>>>ucs@cns
2241                 "UCS Representative glyph-forms for CNS 11643 sources"
2242                 '(long-name     "UCS glyph-forms for CNS"
2243                   chars         256
2244                   dimension     3
2245                   columns       2
2246                   graphic       2
2247                   direction     l2r
2248                   =>iso-ir      177
2249                   mother        =>>>ucs@unicode))
2250
2251   (make-charset '=ucs@iso
2252                 "ISO/IEC 10646 for its representative glyphs"
2253                 '(long-name     "UCS for ISO"
2254                   chars         256
2255                   dimension     3
2256                   columns       2
2257                   graphic       2
2258                   direction     l2r
2259                   =>iso-ir      177
2260                   mother        =>>>ucs@iso))
2261   (make-charset '=ucs@unicode
2262                 "Unicode for its representative glyphs"
2263                 '(long-name     "UCS for Unicode"
2264                   chars         256
2265                   dimension     3
2266                   columns       2
2267                   graphic       2
2268                   direction     l2r
2269                   =>iso-ir      177
2270                   mother        =ucs@iso))
2271   (make-charset '=ucs@gb
2272                 "ISO/IEC 10646 for GB"
2273                 '(long-name     "UCS for GB"
2274                   chars         256
2275                   dimension     3
2276                   columns       2
2277                   graphic       2
2278                   direction     l2r
2279                   =>iso-ir      177
2280                   mother        =ucs@unicode))
2281   (define-charset-alias 'ucs-gb '=ucs@gb)
2282   (make-charset '=ucs@gb/fw
2283                 "ISO/IEC 10646 for GB with fullwidth"
2284                 '(long-name     "UCS for GB-fullwidth"
2285                   chars         256
2286                   dimension     3
2287                   columns       2
2288                   graphic       2
2289                   direction     l2r
2290                   =>iso-ir      177
2291                   mother        =ucs@gb))
2292   (make-charset '=ucs-bmp@gb
2293                 "ISO/IEC 10646 BMP for GB"
2294                 '(long-name     "BMP for GB"
2295                   chars         256
2296                   dimension     3
2297                   columns       2
2298                   graphic       2
2299                   direction     l2r
2300                   mother        =ucs@gb
2301                   min-code      #x0000
2302                   max-code      #xFFFF))
2303   (make-charset '=ucs@cns
2304                 "ISO/IEC 10646 for CNS 11643"
2305                 '(long-name     "UCS for CNS"
2306                   chars         256
2307                   dimension     3
2308                   columns       2
2309                   graphic       2
2310                   direction     l2r
2311                   =>iso-ir      177
2312                   mother        =ucs@unicode))
2313   (define-charset-alias 'ucs-cns '=ucs@cns)
2314   (make-charset '=ucs@cns/fw
2315                 "ISO/IEC 10646 for CNS 11643 with fullwidth"
2316                 '(long-name     "UCS for CNS-fullwidth"
2317                   chars         256
2318                   dimension     3
2319                   columns       2
2320                   graphic       2
2321                   direction     l2r
2322                   =>iso-ir      177
2323                   mother        =ucs@cns))
2324   (make-charset '=ucs-bmp@cns
2325                 "ISO/IEC 10646 BMP for CNS"
2326                 '(long-name     "BMP for CNS"
2327                   chars         256
2328                   dimension     3
2329                   columns       2
2330                   graphic       2
2331                   direction     l2r
2332                   mother        =ucs@cns
2333                   min-code      #x0000
2334                   max-code      #xFFFF))
2335   (make-charset '=ucs@jis
2336                 "ISO/IEC 10646 for JIS X0208/0212/0213"
2337                 '(long-name     "UCS for JIS"
2338                   chars         256
2339                   dimension     3
2340                   columns       2
2341                   graphic       2
2342                   direction     l2r
2343                   =>iso-ir      177
2344                   mother        =ucs@unicode))
2345   (define-charset-alias 'ucs-jis '=ucs@jis)
2346   (make-charset '=ucs@jis/fw
2347                 "ISO/IEC 10646 for JIS X0208/0212/0213 with fullwidth"
2348                 '(long-name     "UCS for JIS-fullwidth"
2349                   chars         256
2350                   dimension     3
2351                   columns       2
2352                   graphic       2
2353                   direction     l2r
2354                   =>iso-ir      177
2355                   mother        =ucs@jis))
2356   (make-charset '=ucs-bmp@jis
2357                 "ISO/IEC 10646 BMP for JIS"
2358                 '(long-name     "BMP for JIS"
2359                   chars         256
2360                   dimension     3
2361                   columns       2
2362                   graphic       2
2363                   direction     l2r
2364                   mother        =ucs@jis
2365                   min-code      #x0000
2366                   max-code      #xFFFF))
2367   ;; (make-charset '=ucs@jis/1983
2368   ;;               "ISO/IEC 10646 for JIS X 0208:1983"
2369   ;;               '(long-name     "UCS for JIS:1983"
2370   ;;                 chars         256
2371   ;;                 dimension     3
2372   ;;                 columns       2
2373   ;;                 graphic       2
2374   ;;                 direction     l2r
2375   ;;                 =>iso-ir      177
2376   ;;                 mother        =ucs@jis))
2377   (make-charset '=ucs@jis/1990
2378                 "ISO/IEC 10646 for JIS X 0208/0212:1990"
2379                 '(long-name     "UCS for JIS:1990"
2380                   chars         256
2381                   dimension     3
2382                   columns       2
2383                   graphic       2
2384                   direction     l2r
2385                   =>iso-ir      177
2386                   mother        =ucs@jis))
2387   (define-charset-alias '=ucs@jis-1990 '=ucs@jis/1990)
2388   (define-charset-alias '=ucs-jis-1990 '=ucs@jis/1990)
2389   (make-charset '=ucs@jis/2000
2390                 "ISO/IEC 10646 for JIS X 0213:2000"
2391                 '(long-name     "UCS for JIS:2000"
2392                   chars         256
2393                   dimension     3
2394                   columns       2
2395                   graphic       2
2396                   direction     l2r
2397                   =>iso-ir      177
2398                   mother        =ucs@jis))
2399   (define-charset-alias '=ucs@jis-2000 '=ucs@jis/2000)
2400   (define-charset-alias '=ucs-jis-2000 '=ucs@jis/2000)
2401   (make-charset '=ucs@jis/2004
2402                 "ISO/IEC 10646 for JIS X 0213:2004"
2403                 '(long-name     "UCS for JIS:2004"
2404                   chars         256
2405                   dimension     3
2406                   columns       2
2407                   graphic       2
2408                   direction     l2r
2409                   =>iso-ir      177
2410                   mother        =ucs@jis))
2411   (make-charset '=ucs@JP
2412                 "UCS for common glyphs used in Japan"
2413                 '(long-name     "UCS for Japan"
2414                   chars         256
2415                   dimension     3
2416                   columns       2
2417                   graphic       2
2418                   direction     l2r
2419                   =>iso-ir      177
2420                   mother        =ucs@jis/2004))
2421   (define-charset-alias '=ucs@jp '=ucs@JP)
2422   (make-charset '=ucs@JP/hanazono
2423                 "Japanese glyph-images of Hanazono Mincho"
2424                 '(long-name     "UCS for Hana-Min"
2425                   chars         256
2426                   dimension     3
2427                   columns       2
2428                   graphic       2
2429                   direction     l2r
2430                   =>iso-ir      177
2431                   mother        =ucs@JP))
2432   (make-charset '=ucs@ks
2433                 "ISO/IEC 10646 for Korean Standards"
2434                 '(long-name     "UCS for KS"
2435                   chars         256
2436                   dimension     3
2437                   columns       2
2438                   graphic       2
2439                   direction     l2r
2440                   =>iso-ir      177
2441                   mother        =ucs@unicode))
2442   (define-charset-alias 'ucs-ks '=ucs@ks)
2443   (make-charset '=ucs-bmp@ks
2444                 "ISO/IEC 10646 BMP for KS"
2445                 '(long-name     "BMP for KS"
2446                   chars         256
2447                   dimension     3
2448                   columns       2
2449                   graphic       2
2450                   direction     l2r
2451                   mother        =ucs@ks
2452                   min-code      #x0000
2453                   max-code      #xFFFF))
2454   (make-charset '=ucs@cns11643
2455                 "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw"
2456                 '(long-name     "UCS for CNS11643"
2457                   chars         256
2458                   dimension     3
2459                   columns       2
2460                   graphic       2
2461                   direction     l2r
2462                   =>iso-ir      177
2463                   mother        =ucs@cns))
2464   (make-charset '=ucs@big5
2465                 "ISO/IEC 10646 for Big5"
2466                 '(long-name     "UCS for Big5"
2467                   chars         256
2468                   dimension     3
2469                   columns       2
2470                   graphic       2
2471                   direction     l2r
2472                   =>iso-ir      177
2473                   mother        =>>ucs@cns))
2474   (define-charset-alias 'ucs-big5 '=ucs@big5)
2475   (make-charset '=ucs@big5/cns11643
2476                 "ISO/IEC 10646 for Big5 based on www.cns11643.gov.tw"
2477                 '(long-name     "UCS for Big5@CNS11643"
2478                   chars         256
2479                   dimension     3
2480                   columns       2
2481                   graphic       2
2482                   direction     l2r
2483                   =>iso-ir      177
2484                   mother        =ucs@big5))
2485
2486   (make-charset '=ucs-itaiji-084
2487                 "uXXXX-itaiji-084 glyph-images of GlyphWiki"
2488                 '(long-name     "UCS-itaiji-084"
2489                   chars         256
2490                   dimension     3
2491                   columns       2
2492                   graphic       2
2493                   direction     l2r
2494                   ;; =>iso-ir   177
2495                   mother        =ucs))
2496   (make-charset '=ucs-bmp-itaiji-084
2497                 "uXXXX-itaiji-084 glyph-images in BMP"
2498                 '(long-name     "UCS-BMP-itaiji-084"
2499                   chars         256
2500                   dimension     2
2501                   columns       2
2502                   graphic       2
2503                   direction     l2r
2504                   ;; =>iso-ir   177
2505                   mother        =ucs-itaiji-084
2506                   min-code #x2E00
2507                   max-code #x9FA5
2508                   registry "ucs\\.itaiji084-0"))
2509
2510   (make-charset
2511    '=ucs-radicals
2512    "CJK Radicals of UCS"
2513    '(long-name "UCS-Radicals"
2514                chars 256
2515                dimension 2
2516                columns 2
2517                graphic 2
2518                direction l2r
2519                registry "-zhRadicals-.*-ucs-0"
2520                mother ucs-bmp
2521                min-code #x2E00 max-code #x2FFF))
2522   (make-charset
2523    '=ucs-radicals@unicode
2524    "CJK Radicals of UCS"
2525    '(long-name "UCS-Radicals"
2526                chars 256
2527                dimension 2
2528                columns 2
2529                graphic 2
2530                direction l2r
2531                registry "-zhRadicals-.*-ucs-0"
2532                mother =ucs@unicode
2533                min-code #x2E00 max-code #x2FFF))
2534   (make-charset
2535    '=ucs-hangul
2536    "Hangul Syllables of UCS"
2537    '(long-name "UCS-Hangul-Syllables"
2538                chars 256
2539                dimension 2
2540                columns 2
2541                graphic 2
2542                direction l2r
2543                registry "-Hangul-.*-ucs-0"
2544                mother =ucs
2545                min-code #xAC00 max-code #xD7AF))
2546   (make-charset
2547    '=ucs-bmp-cjk
2548    "CJK Characters in BMP of UCS"
2549    '(long-name "UCS-BMP-CJK"
2550                chars 256
2551                dimension 2
2552                columns 2
2553                graphic 2
2554                direction l2r
2555                registry "-zh-.*-ucs-0"
2556                mother ucs-bmp
2557                min-code #x2E00
2558                max-code #x9FA5
2559                ;; max-code #xA4CF
2560                ))
2561   (make-charset
2562    '=ucs-bmp-cjk@unicode
2563    "CJK Characters in BMP of Unicode"
2564    '(long-name "Unicode-BMP-CJK"
2565                chars 256
2566                dimension 2
2567                columns 2
2568                graphic 2
2569                direction l2r
2570                registry "-zh-.*-ucs-0"
2571                mother =ucs@unicode
2572                min-code #x2E00
2573                max-code #x9FA5
2574                ;; max-code #xA4CF
2575                ))
2576   (make-charset
2577    '=ucs-bmp-cjk@JP
2578    "CJK Characters in BMP with JIS representative glyphs"
2579    '(long-name "CJK in BMP@JP"
2580                chars 256
2581                dimension 2
2582                columns 2
2583                graphic 2
2584                direction l2r
2585                registry "-ja-.*-ucs-0"
2586                mother =ucs@JP
2587                min-code #x2E00
2588                max-code #x9FA5
2589                ;; max-code #xA4CF
2590                ))
2591   (make-charset
2592    '=ucs-bmp-cjk@JP/hanazono
2593    "CJK Characters in BMP with Hanazono font"
2594    '(long-name "CJK in BMP@JP/Hanazono"
2595                chars 256
2596                dimension 2
2597                columns 2
2598                graphic 2
2599                direction l2r
2600                registry "-ja-.*-ucs-0"
2601                mother =ucs@JP/hanazono
2602                min-code #x2E00
2603                max-code #x9FA5
2604                ;; max-code #xA4CF
2605                ))
2606   (make-charset
2607    '=+>ucs-bmp-cjk@unicode
2608    "Unicode representative characters of CJK Unified Ideographs in BMP"
2609    '(long-name "Unicode-BMP-CJK unified abstract glyphs"
2610                chars 256
2611                dimension 2
2612                columns 2
2613                graphic 2
2614                direction l2r
2615                registry "-zh-.*-ucs-0"
2616                mother =+>ucs@unicode
2617                min-code #x2E00
2618                max-code #x9FA5
2619                ;; max-code #xA4CF
2620                ))
2621   (make-charset
2622    '=>ucs-bmp-cjk@unicode
2623    "Unicode representative characters of CJK Unified Ideographs in BMP"
2624    '(long-name "Unicode-BMP-CJK"
2625                chars 256
2626                dimension 2
2627                columns 2
2628                graphic 2
2629                direction l2r
2630                registry "-zh-.*-ucs-0"
2631                mother =>ucs@unicode
2632                min-code #x2E00
2633                max-code #x9FA5
2634                ;; max-code #xA4CF
2635                ))
2636   (make-charset
2637    '==>ucs-bmp-cjk@bucs
2638    "CJK Characters in BMP of BUCS"
2639    '(long-name "BUCS-BMP-CJK"
2640                chars 256
2641                dimension 2
2642                columns 2
2643                graphic 2
2644                direction l2r
2645                registry "-zh-.*-ucs-0"
2646                mother ==>ucs@bucs
2647                min-code #x2E00
2648                max-code #x9FA5
2649                ;; max-code #xA4CF
2650                ))
2651   (make-charset
2652    '=ucs-bmp-cjk-compat
2653    "CJK Compatibility Ideographs in BMP of UCS"
2654    '(long-name "CJK Compatibility Ideographs"
2655                chars 256
2656                dimension 2
2657                columns 2
2658                graphic 2
2659                direction l2r
2660                registry "-ja-.*-ucs-0"
2661                mother ucs-bmp
2662                min-code #xF900
2663                max-code #xFAFF
2664                ))
2665   (make-charset
2666    '=ucs-bmp-cjk-compat@unicode
2667    "CJK Compatibility Ideographs of Unicode representatives"
2668    '(long-name "CJK Compatibility Ideographs of Unicode"
2669                chars 256
2670                dimension 2
2671                columns 2
2672                graphic 2
2673                direction l2r
2674                registry "-ja-.*-ucs-0"
2675                mother =ucs@unicode
2676                min-code #xF900
2677                max-code #xFAFF
2678                ))
2679   (make-charset
2680    '=ucs-sip-ext-b
2681    "CJK Ideographs Extension B"
2682    '(long-name "UCS CJK Ext-B"
2683                chars 256
2684                dimension 2
2685                columns 2
2686                graphic 2
2687                direction l2r
2688                registry "\\(iso10646\\|ucs02\\)-2$"
2689                mother ucs
2690                min-code #x20000 max-code #x2A6D6
2691                code-offset #x20000))
2692   (make-charset
2693    '=ucs-sip-ext-b@iso
2694    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
2695    '(long-name "UCS CJK Ext-B"
2696                chars 256
2697                dimension 2
2698                columns 2
2699                graphic 2
2700                direction l2r
2701                registry "\\(iso10646\\|ucs02\\)-2$"
2702                mother =ucs@iso
2703                min-code #x20000 max-code #x2A6D6
2704                code-offset #x20000))
2705   )
2706
2707 ;;; mule-conf.el ends here