lisp/mule/mule-charset.el

   1 ;;; mule-charset.el --- Charset functions for Mule.
   2
   3 ;; Copyright (C) 1992 Free Software Foundation, Inc.
   4 ;; Copyright (C) 1995 Amdahl Corporation.
   5 ;; Copyright (C) 1996 Sun Microsystems.
   6 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008,
   7 ;;   2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019,
   8 ;;   2020, 2021, 2022, 2023 MORIOKA Tomohiko
   9
  10 ;; Author: Unknown
  11 ;; Keywords: i18n, mule, internal
  12
  13 ;; This file is part of XEmacs.
  14
  15 ;; XEmacs is free software; you can redistribute it and/or modify it
  16 ;; under the terms of the GNU General Public License as published by
  17 ;; the Free Software Foundation; either version 2, or (at your option)
  18 ;; any later version.
  19
  20 ;; XEmacs is distributed in the hope that it will be useful, but
  21 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  23 ;; General Public License for more details.
  24
  25 ;; You should have received a copy of the GNU General Public License
  26 ;; along with XEmacs; see the file COPYING.  If not, write to the
  27 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  28 ;; Boston, MA 02111-1307, USA.
  29
  30 ;;; Synched up with: Not synched.  API at source level synched with FSF 20.3.9.
  31
  32 ;;; Commentary:
  33
  34 ;; These functions are not compatible at the bytecode level with Emacs/Mule,
  35 ;; and they never will be.  -sb [1999-05-26]
  36
  37 ;;; Code:
  38 \f
  39 ;;;; Classifying text according to charsets
  40
  41 (defun charsets-in-region (start end &optional buffer)
  42   "Return a list of the charsets in the region between START and END.
  43 BUFFER defaults to the current buffer if omitted."
  44   (let (list)
  45     (save-excursion
  46       (if buffer
  47           (set-buffer buffer))
  48       (save-restriction
  49         (narrow-to-region start end)
  50         (goto-char (point-min))
  51         (while (not (eobp))
  52           (let* (prev-charset
  53                  (ch (char-after (point)))
  54                  (charset (char-charset ch)))
  55             (if (not (eq prev-charset charset))
  56                 (progn
  57                   (setq prev-charset charset)
  58                   (or (memq charset list)
  59                       (setq list (cons charset list))))))
  60           (forward-char))))
  61     list))
  62
  63 (defun charsets-in-string (string)
  64   "Return a list of the charsets in STRING."
  65   (let ((i 0)
  66         (len (length string))
  67         prev-charset charset list)
  68     (while (< i len)
  69       (setq charset (char-charset (aref string i)))
  70       (if (not (eq prev-charset charset))
  71           (progn
  72             (setq prev-charset charset)
  73             (or (memq charset list)
  74                 (setq list (cons charset list)))))
  75       (setq i (1+ i)))
  76     list))
  77
  78 \f
  79 ;;;; Charset accessors
  80
  81 (defun charset-iso-graphic-plane (charset)
  82   "Return the `graphic' property of CHARSET.
  83 See `make-charset'."
  84   (charset-property charset 'graphic))
  85
  86 (defun charset-iso-final-char (charset)
  87   "Return the final byte of the ISO 2022 escape sequence designating CHARSET."
  88   (charset-property charset 'final))
  89
  90 (defun charset-chars (charset)
  91   "Return the number of characters per dimension of CHARSET."
  92   (charset-property charset 'chars))
  93
  94 (defun charset-width (charset)
  95   "Return the number of display columns per character of CHARSET.
  96 This only applies to TTY mode (under X, the actual display width can
  97 be automatically determined)."
  98   (charset-property charset 'columns))
  99
 100 ;; #### FSFmacs returns 0
 101 (defun charset-direction (charset)
 102   "Return the display direction (0 for `l2r' or 1 for `r2l') of CHARSET.
 103 Only left-to-right is currently implemented."
 104   (if (eq (charset-property charset 'direction) 'l2r)
 105       0
 106     1))
 107
 108 ;; Not in Emacs/Mule
 109 (defun charset-registry (charset)
 110   "Return the registry of CHARSET.
 111 This is a regular expression matching the registry field of fonts
 112 that can display the characters in CHARSET."
 113   (charset-property charset 'registry))
 114
 115 (defun charset-ccl-program (charset)
 116   "Return the CCL program of CHARSET.
 117 See `make-charset'."
 118   (charset-property charset 'ccl-program))
 119
 120 (defun charset-bytes (charset)
 121   "Useless in XEmacs, returns 1."
 122    1)
 123
 124 (define-obsolete-function-alias 'charset-columns 'charset-width) ;; 19990409
 125 (define-obsolete-function-alias 'charset-final 'charset-iso-final-char) ;; 19990409
 126 (define-obsolete-function-alias 'charset-graphic 'charset-iso-graphic-plane) ;; 19990409
 127 (define-obsolete-function-alias 'charset-doc-string 'charset-description) ;; 19990409
 128
 129 ;;;; Define setf methods for all settable Charset properties
 130
 131 (defsetf charset-registry    set-charset-registry)
 132 (defsetf charset-ccl-program set-charset-ccl-program)
 133
 134 ;;; FSF compatibility functions
 135 (defun charset-after (&optional pos)
 136   "Return charset of a character in current buffer at position POS.
 137 If POS is nil, it defauls to the current point.
 138 If POS is out of range, the value is nil."
 139   (when (null pos)
 140     (setq pos (point)))
 141   (check-argument-type 'integerp pos)
 142   (unless (or (< pos (point-min))
 143               (> pos (point-max)))
 144     (char-charset (char-after pos))))
 145
 146 ;; Yuck!
 147 ;; We're not going to support this.
 148 ;(defun charset-info (charset)
 149 ;  "Return a vector of information of CHARSET.
 150 ;The elements of the vector are:
 151 ;        CHARSET-ID, BYTES, DIMENSION, CHARS, WIDTH, DIRECTION,
 152 ;        LEADING-CODE-BASE, LEADING-CODE-EXT,
 153 ;        ISO-FINAL-CHAR, ISO-GRAPHIC-PLANE,
 154 ;        REVERSE-CHARSET, SHORT-NAME, LONG-NAME, DESCRIPTION,
 155 ;        PLIST,
 156 ;where
 157 ;CHARSET-ID (integer) is the identification number of the charset.
 158 ;BYTES (integer) is the length of multi-byte form of a character in
 159 ;  the charset: one of 1, 2, 3, and 4.
 160 ;DIMENSION (integer) is the number of bytes to represent a character of
 161 ;the charset: 1 or 2.
 162 ;CHARS (integer) is the number of characters in a dimension: 94 or 96.
 163 ;WIDTH (integer) is the number of columns a character in the charset
 164 ;  occupies on the screen: one of 0, 1, and 2.
 165 ;DIRECTION (integer) is the rendering direction of characters in the
 166 ;  charset when rendering.  If 0, render from left to right, else
 167 ;  render from right to left.
 168 ;LEADING-CODE-BASE (integer) is the base leading-code for the
 169 ;  charset.
 170 ;LEADING-CODE-EXT (integer) is the extended leading-code for the
 171 ;  charset.  All charsets of less than 0xA0 has the value 0.
 172 ;ISO-FINAL-CHAR (character) is the final character of the
 173 ;  corresponding ISO 2022 charset.
 174 ;ISO-GRAPHIC-PLANE (integer) is the graphic plane to be invoked
 175 ;  while encoding to variants of ISO 2022 coding system, one of the
 176 ;  following: 0/graphic-plane-left(GL), 1/graphic-plane-right(GR).
 177 ;REVERSE-CHARSET (integer) is the charset which differs only in
 178 ;  LEFT-TO-RIGHT value from the charset.  If there's no such a
 179 ;  charset, the value is -1.
 180 ;SHORT-NAME (string) is the short name to refer to the charset.
 181 ;LONG-NAME (string) is the long name to refer to the charset
 182 ;DESCRIPTION (string) is the description string of the charset.
 183 ;PLIST (property list) may contain any type of information a user
 184 ;  want to put and get by functions `put-charset-property' and
 185 ;  `get-charset-property' respectively."
 186 ;  (vector
 187 ;   (charset-id charset)
 188 ;   1
 189 ;   (charset-dimension charset)
 190 ;   (charset-chars charset)
 191 ;   (charset-width charset)
 192 ;   (charset-direction charset)
 193 ;   nil ;; (charset-leading-code-base (charset))
 194 ;   nil ;; (charset-leading-code-ext (charset))
 195 ;   (charset-iso-final-char charset)
 196 ;   (charset-iso-graphic-plane charset)
 197 ;   -1
 198 ;   (charset-short-name charset)
 199 ;   (charset-long-name charset)
 200 ;   (charset-description charset)
 201 ;   (charset-plist charset)))
 202
 203 ;(make-compatible 'charset-info "Don't use this if you can help it.")
 204
 205 (defun define-charset (charset-id charset property-vector)
 206   "Define CHARSET-ID as the identification number of CHARSET with INFO-VECTOR.
 207 If CHARSET-ID is nil, it is decided automatically, which means CHARSET is
 208  treated as a private charset.
 209 INFO-VECTOR is a vector of the format:
 210    [DIMENSION CHARS WIDTH DIRECTION ISO-FINAL-CHAR ISO-GRAPHIC-PLANE
 211     SHORT-NAME LONG-NAME DESCRIPTION]
 212 The meanings of each elements is as follows:
 213 DIMENSION (integer) is the number of bytes to represent a character: 1 or 2.
 214 CHARS (integer) is the number of characters in a dimension: 94 or 96.
 215 WIDTH (integer) is the number of columns a character in the charset
 216 occupies on the screen: one of 0, 1, and 2.
 217
 218 DIRECTION (integer) is the rendering direction of characters in the
 219 charset when rendering.  If 0, render from left to right, else
 220 render from right to left.
 221
 222 ISO-FINAL-CHAR (character) is the final character of the
 223 corresponding ISO 2022 charset.
 224
 225 ISO-GRAPHIC-PLANE (integer) is the graphic plane to be invoked
 226 while encoding to variants of ISO 2022 coding system, one of the
 227 following: 0/graphic-plane-left(GL), 1/graphic-plane-right(GR).
 228
 229
 230 SHORT-NAME (string) is the short name to refer to the charset.
 231
 232 LONG-NAME (string) is the long name to refer to the charset.
 233
 234 DESCRIPTION (string) is the description string of the charset."
 235   (make-charset charset (aref property-vector 8)
 236                 (list
 237                  'short-name (aref property-vector 6)
 238                  'long-name (aref property-vector 7)
 239                  'dimension (aref property-vector 0)
 240                  'columns (aref property-vector 2)
 241                  'chars (aref property-vector 1)
 242                  'final (aref property-vector 4)
 243                  'graphic (aref property-vector 5)
 244                  'direction (aref property-vector 3))))
 245
 246 (make-compatible 'define-charset "")
 247
 248 ;;; Charset property
 249
 250 (defalias 'get-charset-property 'get)
 251 (defalias 'put-charset-property 'put)
 252 (defalias 'charset-plist 'object-plist)
 253 (defalias 'set-charset-plist 'setplist)
 254
 255 ;; Setup auto-fill-chars for charsets that should invoke auto-filling.
 256 ;; SPACE and NEWLIE are already set.
 257 ;; (let ((l '(katakana-jisx0201
 258 ;;            japanese-jisx0208 japanese-jisx0212
 259 ;;            chinese-gb2312 chinese-big5-1 chinese-big5-2)))
 260 ;;   (while l
 261 ;;     (put-char-table (car l) t auto-fill-chars)
 262 ;;     (setq l (cdr l))))
 263
 264
 265 ;;; @ Coded character set
 266 ;;;
 267
 268 (when (featurep 'utf-2000)
 269   (setq default-coded-charset-priority-list
 270         '(ascii
 271           control-1
 272           latin-iso8859-1
 273           latin-iso8859-2
 274           latin-iso8859-3
 275           latin-iso8859-4
 276           latin-iso8859-9
 277           latin-jisx0201
 278           cyrillic-iso8859-5
 279           greek-iso8859-7
 280           thai-tis620
 281           =jis-x0208
 282           =ucs-radicals
 283           =ucs-radicals@unicode
 284           =ucs-itaiji-001-additional-idc
 285           ;; =ucs-bmp-cjk@JP
 286           =mj-0
 287           =mj-1
 288           =ucs-bmp-cjk@JP/hanazono
 289           =ucs-bmp-cjk@gb
 290           =jis-x0208@1983
 291           chinese-gb2312
 292           =jis-x0208-1990
 293           japanese-jisx0208-1978
 294           =jis-x0212
 295           chinese-cns11643-1
 296           chinese-cns11643-2
 297           chinese-cns11643-3
 298           chinese-cns11643-4
 299           chinese-cns11643-5
 300           chinese-cns11643-6
 301           chinese-cns11643-7
 302           =adobe-japan1-0
 303           =adobe-japan1-1
 304           =adobe-japan1-2
 305           =adobe-japan1-3
 306           =adobe-japan1-4
 307           =adobe-japan1-5
 308           =adobe-japan1-6
 309           =big5-cdp
 310           =hanyo-denshi/ja
 311           =hanyo-denshi/jb
 312           =hanyo-denshi/jc
 313           =hanyo-denshi/jd
 314           =hanyo-denshi/ft
 315           =hanyo-denshi/ia
 316           =hanyo-denshi/ib
 317           =hanyo-denshi/hg
 318           =hanyo-denshi/ip
 319           =hanyo-denshi/jt
 320           =hanyo-denshi/ks/mf
 321           =hanyo-denshi/tk/mf-01
 322           =gt-pj-2
 323           =gt-pj-3
 324           =gt-pj-4
 325           =gt-pj-5
 326           =gt-pj-6
 327           =gt-pj-7
 328           =gt-pj-8
 329           =gt-pj-9
 330           =gt-pj-10
 331           =gt-pj-11
 332           =gt-pj-k1
 333           =gt-pj-k2
 334           chinese-big5-eten-a
 335           chinese-big5-eten-b
 336           chinese-big5
 337           =jis-x0213-1-2000
 338           =jis-x0213-2-2000
 339           ;; chinese-gb12345
 340           =gt-pj-1
 341           =ucs-bmp-cjk
 342           =ucs-sip-ext-b
 343           =ucs-tip
 344           =ucs-sip-ext-b@iso
 345           =ucs-sip@JP/hanazono
 346           =ucs-tip@JP/hanazono
 347           =ucs-sip@gb
 348           chinese-big5-1
 349           chinese-big5-2
 350           ;; =zihai-17xx
 351           =ucs-bmp-var-001
 352           =ucs-sip-var-001
 353           =ucs-tip-var-001
 354           =ucs-bmp-var-002
 355           =ucs-sip-var-002
 356           =ucs-tip-var-002
 357           =ucs-bmp-var-003
 358           =ucs-sip-var-003
 359           =ucs-tip-var-003
 360           =ucs-bmp-var-004
 361           =ucs-sip-var-004
 362           =ucs-tip-var-004
 363           =ucs-bmp-var-005
 364           =ucs-sip-var-005
 365           =ucs-bmp-var-006
 366           =ucs-sip-var-006
 367           =ucs-bmp-var-007
 368           =ucs-bmp-var-008
 369           =ucs-sip-var-008
 370           =ucs-bmp-var-010
 371           =ucs-sip-var-010
 372           =ucs-bmp-itaiji-001
 373           =ucs-sip-itaiji-001
 374           =ucs-tip-itaiji-001
 375           =ucs-bmp-itaiji-002
 376           =ucs-sip-itaiji-002
 377           =ucs-bmp-itaiji-003
 378           =ucs-sip-itaiji-003
 379           =ucs-bmp-itaiji-004
 380           =ucs-sip-itaiji-004
 381           =ucs-bmp-itaiji-005
 382           =ucs-sip-itaiji-005
 383           =ucs-bmp-itaiji-006
 384           =ucs-sip-itaiji-006
 385           =ucs-bmp-itaiji-007
 386           =ucs-sip-itaiji-007
 387           =ucs-bmp-itaiji-008
 388           =ucs-sip-itaiji-008
 389           =ucs-bmp-itaiji-009
 390           =ucs-sip-itaiji-009
 391           =ucs-bmp-itaiji-010
 392           =ucs-sip-itaiji-010
 393           =ucs-bmp-itaiji-011
 394           =ucs-sip-itaiji-011
 395           =ucs-bmp-itaiji-012
 396           =ucs-sip-itaiji-012
 397           =ucs-sip-itaiji-013
 398           =ucs-bmp-itaiji-014
 399           =ucs-sip-itaiji-014
 400           =ucs-bmp-itaiji-016
 401           =ucs-bmp-itaiji-018
 402           =ucs-bmp-itaiji-084
 403           =big5-cdp-itaiji-001
 404           =big5-cdp-itaiji-002
 405           =big5-cdp-itaiji-003
 406           =big5-cdp-itaiji-004
 407           =big5-cdp-itaiji-005
 408           =big5-cdp-itaiji-006
 409           =big5-cdp-var-001
 410           =big5-cdp-var-002
 411           =big5-cdp-var-003
 412           =big5-cdp-var-004
 413           =big5-cdp-var-005
 414           =big5-cdp-var-007
 415           =big5-cdp-var-008
 416           =big5-cdp-var-010
 417           =ucs-bmp-cjk-compat
 418           =ucs-bmp-cjk-compat@unicode
 419           =ruimoku-v6
 420           =zinbun-oracle
 421           =hanziku-1
 422           =hanziku-2
 423           =hanziku-3
 424           =hanziku-4
 425           =hanziku-5
 426           =hanziku-6
 427           =hanziku-7
 428           =hanziku-8
 429           =hanziku-9
 430           =hanziku-10
 431           =hanziku-11
 432           =hanziku-12
 433           =ucs-sip@iso
 434           =daikanwa@rev2
 435           ideograph-daikanwa
 436           korean-ksc5601
 437           katakana-jisx0201
 438           hebrew-iso8859-8
 439           latin-viscii
 440           latin-viscii-lower
 441           latin-viscii-upper
 442           ipa
 443           lao
 444           ethiopic-ucs
 445           ethiopic
 446           arabic-digit
 447           arabic-1-column
 448           arabic-2-column
 449           arabic-iso8859-6
 450           =daijiten
 451           =cbeta
 452           =jef-china3
 453           chinese-isoir165
 454           =ucs-sip@cns
 455           ===chise-hdic-tsj
 456           =chise-hdic-tsj
 457           ===chise-hdic-syp
 458           =chise-hdic-syp
 459           ===chise-hdic-ktb
 460           ===chise-hdic-ktb-seal
 461           =chise-hdic-ktb
 462           ==jis-x0208@1990
 463           ==ucs-radicals@unicode
 464           ==mj-0
 465           ==mj-1
 466           ==ucs-bmp-cjk@JP/hanazono
 467           ==ucs-sip-ext-b@iso
 468           ==ucs-sip@JP/hanazono
 469           ==ucs-tip@JP/hanazono
 470           ==ucs-bmp-itaiji-001
 471           ==ucs-sip-itaiji-001
 472           ==ucs-bmp-itaiji-002
 473           ==ucs-sip-itaiji-002
 474           ==ucs-bmp-itaiji-003
 475           ==ucs-sip-itaiji-003
 476           ==ucs-sip-itaiji-004
 477           ==ucs-bmp-itaiji-005
 478           ==ucs-sip-itaiji-005
 479           ==ucs-bmp-itaiji-006
 480           ==ucs-bmp-var-001
 481           ==ucs-sip-var-001
 482           ==ucs-bmp-var-002
 483           ==ucs-sip-var-002
 484           ==ucs-bmp-var-003
 485           ==ucs-bmp-var-007
 486           ==hanyo-denshi/ja
 487           ==hanyo-denshi/jb
 488           ==hanyo-denshi/jc
 489           ==hanyo-denshi/jd
 490           ==hanyo-denshi/ft
 491           ==hanyo-denshi/ia
 492           ==hanyo-denshi/ib
 493           ==hanyo-denshi/hg
 494           ==hanyo-denshi/ip
 495           ==hanyo-denshi/jt
 496           ==adobe-japan1-6
 497           ==big5-cdp
 498           ==big5-cdp-itaiji-001
 499           ==cns11643-1
 500           ==cns11643-2
 501           ==ucs-bmp-cjk@gb
 502           ==cns11643-3
 503           ==cns11643-4
 504           ==cns11643-5
 505           ==cns11643-6
 506           ==cns11643-7
 507           ==ucs-sip@iso
 508           ==jis-x0208@1983
 509           ==jis-x0208@1978
 510           ==jis-x0213-1@2000
 511           ==jis-x0213-2
 512           ==jis-x0212
 513           ==ks-x1001
 514           ==ruimoku-v6
 515           ==gt-pj-k1
 516           ==gt-pj-k2
 517           ==hanyo-denshi/tk/mf-01
 518           ==daikanwa
 519           ==daijiten
 520           ==cbeta
 521           ==jef-china3
 522           ==ucs-bmp-cjk-compat@JP
 523           ==ucs-bmp-cjk-compat@gb
 524           ===mj-0
 525           ===mj-1
 526           ===jis-x0208
 527           ===jis-x0208@1990
 528           ===big5-cdp
 529           ===ucs-bmp-cjk@gb
 530           ===adobe-japan1-6
 531           ===cns11643-1
 532           ===cns11643-2
 533           ===cns11643-3
 534           ===cns11643-4
 535           ===cns11643-5
 536           ===cns11643-6
 537           ===cns11643-7
 538           ;; ===hanyo-denshi/ja
 539           ===hanyo-denshi/jb
 540           ===hanyo-denshi/jc
 541           ===hanyo-denshi/jd
 542           ===hanyo-denshi/ft
 543           ===hanyo-denshi/ia
 544           ===hanyo-denshi/ib
 545           ===hanyo-denshi/hg
 546           ===hanyo-denshi/ip
 547           ===hanyo-denshi/jt
 548           ===jis-x0213-1
 549           ===jis-x0213-1@2004
 550           ===jis-x0213-2
 551           ===jis-x0208@1983
 552           ===jis-x0208@1978
 553           ===jis-x0212
 554           ===ks-x1001
 555           ===daikanwa
 556           ===ucs-sip-ext-b@iso
 557           ===ucs-sip@iso
 558           ===ruimoku-v6
 559           ===daijiten
 560           ===hng-jou ; 01
 561           ===hng-keg ; 02
 562           ===hng-dng ; 03
 563           ===hng-mam ; 05
 564           ===hng-drt ; 06
 565           ===hng-kgk ; 07
 566           ===hng-myz ; 08
 567           ===hng-kda ; 09
 568           ===hng-khi ; 10
 569           ===hng-khm ; 11
 570           ===hng-fhs ; 12
 571           ===hng-hok ; 13
 572           ===hng-kyd ; 14
 573           ===hng-sok ; 15
 574           ===hng-yhk ; 16
 575           ===hng-kak ; 17
 576           ===hng-kar ; 18
 577           ===hng-kae ; 19
 578           ===hng-sys ; 22
 579           ===hng-tsu ; 24
 580           ===hng-tzj ; 25
 581           ===hng-hos ; 26
 582           ===hng-kkh ; 27
 583           ===hng-nak ; 28
 584           ===hng-jhk ; 29
 585           ===hng-hod ; 30
 586           ===hng-gok ; 31
 587           ===hng-ink ; 33
 588           ===hng-nto ; 34
 589           ===hng-nkm ; 36
 590           ===hng-k24 ; 37
 591           ===hng-ini ; 38
 592           ===hng-nkk ; 39
 593           ===hng-kcc ; 41
 594           ===hng-kcj ; 42
 595           ===hng-kbk ; 43
 596           ===hng-sik ; 44
 597           ===hng-skk ; 46
 598           ===hng-kyu ; 47
 599           ===hng-ksk ; 48
 600           ===hng-wan ; 49
 601           ===hng-okd ; 50
 602           ===hng-wad ; 54
 603           ===hng-kmi ; 55
 604           ===hng-zkd ; 56
 605           ===hng-doh ; 57
 606           ===hng-jyu ; 58
 607           ===hng-tzs ; 60
 608           ===hng-sai ; 61
 609           ===hng-kad ; 62
 610           ===hng-kss ; 64
 611           ===hng-kyo ; 66
 612           ===hng-ykk ; 68
 613           ===hng-saa ; 70
 614           ===hng-sab ; 71
 615           ===hng-wks ; 72
 616           ===hng-wke ; 73
 617           ===hng-smk ; 74
 618           ===hng-sgs ; 77
 619           ===hng-sts ; 78
 620           ===hng-kkd ; 79
 621           =shuowen-jiguge
 622           =>shuowen-jiguge
 623           ===shuowen-jiguge4
 624           ===shuowen-jiguge5
 625           ===shuowen-jiguge-A30
 626           ===cbeta
 627           ===jef-china3
 628           ===ucs-bmp-cjk-compat@unicode
 629           ;; ucs-sip
 630           =>>big5-cdp
 631           =>>jis-x0208
 632           =>>jis-x0208@1990
 633           =>>jis-x0213-1
 634           =>>jis-x0213-1@2004
 635           =>>jis-x0213-2
 636           =>>ruimoku-v6
 637           =>jis-x0208
 638           =>jis-x0213-1
 639           =>jis-x0213-2
 640           =>mj-0
 641           =>hanyo-denshi/tk/mf-01
 642           =>big5-cdp
 643           =>ruimoku-v6
 644           =>big5-cdp@iwds-1
 645           =>big5-cdp@component
 646           =>big5-cdp@cognate
 647           =>big5-cdp-itaiji-001
 648           =>big5-cdp-itaiji-002
 649           =>big5-cdp-itaiji-003
 650           =>big5-cdp-itaiji-004
 651           =>big5-cdp-itaiji-005
 652           =>big5-cdp-itaiji-006
 653           =>big5-cdp-var-001
 654           =>ucs-bmp-itaiji-001
 655           =>ucs-sip-itaiji-001
 656           =>ucs-tip-itaiji-001
 657           =>ucs-bmp-itaiji-002
 658           =>ucs-sip-itaiji-002
 659           =>ucs-bmp-itaiji-003
 660           =>ucs-sip-itaiji-003
 661           =>ucs-bmp-itaiji-004
 662           =>ucs-sip-itaiji-004
 663           =>ucs-bmp-itaiji-005
 664           =>ucs-sip-itaiji-005
 665           =>ucs-bmp-itaiji-006
 666           =>ucs-sip-itaiji-006
 667           =>ucs-bmp-itaiji-007
 668           =>ucs-sip-itaiji-007
 669           =>ucs-bmp-itaiji-008
 670           =>ucs-sip-itaiji-008
 671           =>ucs-bmp-itaiji-009
 672           =>ucs-sip-itaiji-009
 673           =>ucs-bmp-itaiji-010
 674           =>ucs-bmp-itaiji-011
 675           =>ucs-bmp-itaiji-012
 676           =>ucs-sip-itaiji-012
 677           =>ucs-bmp-itaiji-014
 678           =>ucs-bmp-itaiji-016
 679           =>ucs-bmp-itaiji-001@iwds-1
 680           =>ucs-sip-itaiji-001@iwds-1
 681           =>ucs-bmp-itaiji-002@iwds-1
 682           =>ucs-sip-itaiji-002@iwds-1
 683           =>ucs-bmp-itaiji-003@iwds-1
 684           =>ucs-sip-itaiji-003@iwds-1
 685           =>ucs-bmp-itaiji-006@iwds-1
 686           =>ucs-bmp-var-001
 687           =>daikanwa
 688           ucs-bmp
 689           ==>ucs-bmp-cjk@bucs
 690           ==>ucs-sip@esu
 691           =>ucs-bmp-cjk@unicode
 692           =>ucs-bmp-cjk@cognate
 693           =>ucs-bmp-cjk@component
 694           =>ucs-sip@cognate
 695           =>ucs-tip@cognate
 696           =>ucs-sip@component
 697           =>ucs-tip@component
 698           =>ucs-bmp-cjk@iwds-1
 699           =>ucs-bmp-cjk@iwds-1/normalized
 700           =>ucs-sip@iwds-1
 701           =>ucs-tip@iwds-1
 702           =+>ucs-bmp-cjk@unicode
 703           =+>ucs-bmp-cjk-compat@jis
 704           =+>jis-x0213-2
 705           =+>jis-x0213-1@2004
 706           =>>ucs-bmp-cjk@unicode
 707           =adobe-japan1-base
 708           =>jis-x0208@1997
 709           =>>hanyo-denshi/ft
 710           =>>hanyo-denshi/ia
 711           =>>hanyo-denshi/ib
 712           =>>hanyo-denshi/jt
 713           =>>adobe-japan1-6
 714           =>>cns11643-1
 715           =>>cns11643-2
 716           =>>cns11643-3
 717           =>>cns11643-4
 718           =>>cns11643-6
 719           =>>cbeta
 720           =>>gt
 721           =>cns11643-1
 722           =>cns11643-5
 723           =>cns11643-7
 724           ==>daijiten
 725           =>cbeta
 726           =>zinbun-oracle
 727           =+>adobe-japan1-6
 728           =+>ucs-bmp-var-003
 729           =+>ucs-tip-var-003
 730           =+>jis-x0208@1978
 731           =+>big5-cdp
 732           )))
 733
 734 ;;; mule-charset.el ends here