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

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