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

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