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 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-bmp-cjk@JP
 285           =ucs-bmp-cjk@JP/hanazono
 286           =mj-0
 287           =mj-1
 288           =ucs-bmp-cjk@gb
 289           =jis-x0208@1983
 290           chinese-gb2312
 291           =jis-x0208-1990
 292           japanese-jisx0208-1978
 293           =jis-x0212
 294           chinese-cns11643-1
 295           chinese-cns11643-2
 296           chinese-cns11643-3
 297           chinese-cns11643-4
 298           chinese-cns11643-5
 299           chinese-cns11643-6
 300           chinese-cns11643-7
 301           =adobe-japan1-0
 302           =adobe-japan1-1
 303           =adobe-japan1-2
 304           =adobe-japan1-3
 305           =adobe-japan1-4
 306           =adobe-japan1-5
 307           =adobe-japan1-6
 308           =big5-cdp
 309           =hanyo-denshi/ja
 310           =hanyo-denshi/jb
 311           =hanyo-denshi/jc
 312           =hanyo-denshi/jd
 313           =hanyo-denshi/ft
 314           =hanyo-denshi/ia
 315           =hanyo-denshi/ib
 316           =hanyo-denshi/hg
 317           =hanyo-denshi/ip
 318           =hanyo-denshi/jt
 319           =hanyo-denshi/ks/mf
 320           =hanyo-denshi/tk/mf-01
 321           =gt-pj-2
 322           =gt-pj-3
 323           =gt-pj-4
 324           =gt-pj-5
 325           =gt-pj-6
 326           =gt-pj-7
 327           =gt-pj-8
 328           =gt-pj-9
 329           =gt-pj-10
 330           =gt-pj-11
 331           =gt-pj-k1
 332           =gt-pj-k2
 333           chinese-big5-eten-a
 334           chinese-big5-eten-b
 335           chinese-big5
 336           =jis-x0213-1-2000
 337           =jis-x0213-2-2000
 338           ;; chinese-gb12345
 339           =gt-pj-1
 340           =ucs-bmp-cjk
 341           =ucs-sip-ext-b
 342           =ucs-tip
 343           =ruimoku-v6
 344           =zinbun-oracle
 345           =hanziku-1
 346           =hanziku-2
 347           =hanziku-3
 348           =hanziku-4
 349           =hanziku-5
 350           =hanziku-6
 351           =hanziku-7
 352           =hanziku-8
 353           =hanziku-9
 354           =hanziku-10
 355           =hanziku-11
 356           =hanziku-12
 357           =ucs-sip-ext-b@iso
 358           =ucs-sip@iso
 359           =daikanwa@rev2
 360           ideograph-daikanwa
 361           korean-ksc5601
 362           katakana-jisx0201
 363           hebrew-iso8859-8
 364           latin-viscii
 365           latin-viscii-lower
 366           latin-viscii-upper
 367           ipa
 368           lao
 369           ethiopic-ucs
 370           ethiopic
 371           arabic-digit
 372           arabic-1-column
 373           arabic-2-column
 374           arabic-iso8859-6
 375           chinese-big5-1
 376           chinese-big5-2
 377           ;; =zihai-17xx
 378           =ucs-bmp-var-001
 379           =ucs-sip-var-001
 380           =ucs-tip-var-001
 381           =ucs-bmp-var-002
 382           =ucs-sip-var-002
 383           =ucs-tip-var-002
 384           =ucs-bmp-var-003
 385           =ucs-sip-var-003
 386           =ucs-tip-var-003
 387           =ucs-bmp-var-004
 388           =ucs-sip-var-004
 389           =ucs-tip-var-004
 390           =ucs-bmp-var-005
 391           =ucs-sip-var-005
 392           =ucs-bmp-var-006
 393           =ucs-sip-var-006
 394           =ucs-bmp-var-007
 395           =ucs-bmp-var-008
 396           =ucs-bmp-var-010
 397           =ucs-sip-var-010
 398           =ucs-bmp-itaiji-001
 399           =ucs-sip-itaiji-001
 400           =ucs-tip-itaiji-001
 401           =ucs-bmp-itaiji-002
 402           =ucs-sip-itaiji-002
 403           =ucs-bmp-itaiji-003
 404           =ucs-sip-itaiji-003
 405           =ucs-bmp-itaiji-004
 406           =ucs-sip-itaiji-004
 407           =ucs-bmp-itaiji-005
 408           =ucs-sip-itaiji-005
 409           =ucs-bmp-itaiji-006
 410           =ucs-sip-itaiji-006
 411           =ucs-bmp-itaiji-007
 412           =ucs-sip-itaiji-007
 413           =ucs-bmp-itaiji-008
 414           =ucs-sip-itaiji-008
 415           =ucs-bmp-itaiji-009
 416           =ucs-sip-itaiji-009
 417           =ucs-bmp-itaiji-010
 418           =ucs-bmp-itaiji-011
 419           =ucs-sip-itaiji-011
 420           =ucs-bmp-itaiji-012
 421           =ucs-sip-itaiji-012
 422           =ucs-bmp-itaiji-014
 423           =ucs-bmp-itaiji-016
 424           =ucs-bmp-itaiji-084
 425           =big5-cdp-itaiji-001
 426           =big5-cdp-itaiji-002
 427           =big5-cdp-itaiji-003
 428           =big5-cdp-itaiji-004
 429           =big5-cdp-itaiji-005
 430           =big5-cdp-var-001
 431           =big5-cdp-var-002
 432           =big5-cdp-var-003
 433           =big5-cdp-var-004
 434           =big5-cdp-var-005
 435           =big5-cdp-var-007
 436           =big5-cdp-var-008
 437           =big5-cdp-var-010
 438           =ucs-bmp-cjk-compat
 439           =ucs-bmp-cjk-compat@unicode
 440           =ucs-sip@JP/hanazono
 441           =ucs-tip@JP/hanazono
 442           =ucs-sip@gb
 443           =daijiten
 444           =cbeta
 445           =jef-china3
 446           chinese-isoir165
 447           ===chise-hdic-tsj
 448           =chise-hdic-tsj
 449           ===chise-hdic-syp
 450           =chise-hdic-syp
 451           ===chise-hdic-ktb
 452           =chise-hdic-ktb
 453           ==jis-x0208@1990
 454           ==ucs-radicals@unicode
 455           ==ucs-bmp-cjk@JP/hanazono
 456           ==mj-0
 457           ==mj-1
 458           ==ucs-sip-ext-b@iso
 459           ==ucs-sip@JP/hanazono
 460           ==ucs-tip@JP/hanazono
 461           ==ucs-bmp-itaiji-001
 462           ==ucs-sip-itaiji-001
 463           ==ucs-bmp-itaiji-002
 464           ==ucs-sip-itaiji-002
 465           ==ucs-bmp-itaiji-003
 466           ==ucs-sip-itaiji-003
 467           ==ucs-bmp-itaiji-005
 468           ==ucs-bmp-itaiji-006
 469           ==ucs-bmp-var-001
 470           ==ucs-sip-var-001
 471           ==ucs-bmp-var-002
 472           ==ucs-sip-var-002
 473           ==hanyo-denshi/ja
 474           ==hanyo-denshi/jb
 475           ==hanyo-denshi/jc
 476           ==hanyo-denshi/jd
 477           ==hanyo-denshi/ft
 478           ==hanyo-denshi/ia
 479           ==hanyo-denshi/ib
 480           ==hanyo-denshi/hg
 481           ==hanyo-denshi/ip
 482           ==hanyo-denshi/jt
 483           ==adobe-japan1-6
 484           ==big5-cdp
 485           ==big5-cdp-itaiji-001
 486           ==cns11643-1
 487           ==cns11643-2
 488           ==ucs-bmp-cjk@gb
 489           ==cns11643-3
 490           ==cns11643-4
 491           ==cns11643-5
 492           ==cns11643-6
 493           ==cns11643-7
 494           ==ucs-sip@iso
 495           ==jis-x0208@1983
 496           ==jis-x0208@1978
 497           ==jis-x0213-1@2000
 498           ==jis-x0213-2
 499           ==jis-x0212
 500           ==ks-x1001
 501           ==ruimoku-v6
 502           ==gt-pj-k1
 503           ==gt-pj-k2
 504           ==hanyo-denshi/tk/mf-01
 505           ==daikanwa
 506           ==daijiten
 507           ==cbeta
 508           ==jef-china3
 509           ==ucs-bmp-cjk-compat@JP
 510           ==ucs-bmp-cjk-compat@gb
 511           ===mj-0
 512           ===mj-1
 513           ===jis-x0208
 514           ===jis-x0208@1990
 515           ===big5-cdp
 516           ===ucs-bmp-cjk@gb
 517           ===adobe-japan1-6
 518           ===cns11643-1
 519           ===cns11643-2
 520           ===cns11643-3
 521           ===cns11643-4
 522           ===cns11643-5
 523           ===cns11643-6
 524           ===cns11643-7
 525           ;; ===hanyo-denshi/ja
 526           ===hanyo-denshi/jb
 527           ===hanyo-denshi/jc
 528           ===hanyo-denshi/jd
 529           ===hanyo-denshi/ft
 530           ===hanyo-denshi/ia
 531           ===hanyo-denshi/ib
 532           ===hanyo-denshi/hg
 533           ===hanyo-denshi/ip
 534           ===hanyo-denshi/jt
 535           ===jis-x0213-1
 536           ===jis-x0213-1@2004
 537           ===jis-x0213-2
 538           ===jis-x0208@1983
 539           ===jis-x0208@1978
 540           ===jis-x0212
 541           ===ks-x1001
 542           ===daikanwa
 543           ===ucs-sip-ext-b@iso
 544           ===ucs-sip@iso
 545           ===ruimoku-v6
 546           ===daijiten
 547           ===hng-jou ; 01
 548           ===hng-keg ; 02
 549           ===hng-dng ; 03
 550           ===hng-mam ; 05
 551           ===hng-drt ; 06
 552           ===hng-kgk ; 07
 553           ===hng-myz ; 08
 554           ===hng-kda ; 09
 555           ===hng-khi ; 10
 556           ===hng-khm ; 11
 557           ===hng-fhs ; 12
 558           ===hng-hok ; 13
 559           ===hng-kyd ; 14
 560           ===hng-sok ; 15
 561           ===hng-yhk ; 16
 562           ===hng-kak ; 17
 563           ===hng-kar ; 18
 564           ===hng-kae ; 19
 565           ===hng-sys ; 22
 566           ===hng-tsu ; 24
 567           ===hng-tzj ; 25
 568           ===hng-hos ; 26
 569           ===hng-kkh ; 27
 570           ===hng-nak ; 28
 571           ===hng-jhk ; 29
 572           ===hng-hod ; 30
 573           ===hng-gok ; 31
 574           ===hng-ink ; 33
 575           ===hng-nto ; 34
 576           ===hng-nkm ; 36
 577           ===hng-k24 ; 37
 578           ===hng-ini ; 38
 579           ===hng-nkk ; 39
 580           ===hng-kcc ; 41
 581           ===hng-kcj ; 42
 582           ===hng-kbk ; 43
 583           ===hng-sik ; 44
 584           ===hng-skk ; 46
 585           ===hng-kyu ; 47
 586           ===hng-ksk ; 48
 587           ===hng-wan ; 49
 588           ===hng-okd ; 50
 589           ===hng-wad ; 54
 590           ===hng-kmi ; 55
 591           ===hng-zkd ; 56
 592           ===hng-doh ; 57
 593           ===hng-jyu ; 58
 594           ===hng-tzs ; 60
 595           ===hng-sai ; 61
 596           ===hng-kad ; 62
 597           ===hng-kss ; 64
 598           ===hng-kyo ; 66
 599           ===hng-ykk ; 68
 600           ===hng-saa ; 70
 601           ===hng-sab ; 71
 602           ===hng-wks ; 72
 603           ===hng-wke ; 73
 604           ===hng-smk ; 74
 605           ===hng-sgs ; 77
 606           ===hng-sts ; 78
 607           ===hng-kkd ; 79
 608           =shuowen-jiguge
 609           ===shuowen-jiguge4
 610           ===shuowen-jiguge5
 611           ===cbeta
 612           ===jef-china3
 613           ===ucs-bmp-cjk-compat@unicode
 614           ;; ucs-sip
 615           =>>big5-cdp
 616           =>>jis-x0208
 617           =>>jis-x0208@1990
 618           =>>jis-x0213-1
 619           =>>jis-x0213-1@2004
 620           =>>jis-x0213-2
 621           =>>ruimoku-v6
 622           =>jis-x0208
 623           =>jis-x0213-1
 624           =>jis-x0213-2
 625           =>mj-0
 626           =>hanyo-denshi/tk/mf-01
 627           =>big5-cdp
 628           =>ruimoku-v6
 629           =>big5-cdp@iwds-1
 630           =>big5-cdp@component
 631           =>big5-cdp@cognate
 632           =>big5-cdp-itaiji-001
 633           =>big5-cdp-itaiji-002
 634           =>big5-cdp-itaiji-003
 635           =>big5-cdp-itaiji-004
 636           =>big5-cdp-var-001
 637           =>ucs-bmp-itaiji-001
 638           =>ucs-sip-itaiji-001
 639           =>ucs-tip-itaiji-001
 640           =>ucs-bmp-itaiji-002
 641           =>ucs-sip-itaiji-002
 642           =>ucs-bmp-itaiji-003
 643           =>ucs-sip-itaiji-003
 644           =>ucs-bmp-itaiji-004
 645           =>ucs-sip-itaiji-004
 646           =>ucs-bmp-itaiji-005
 647           =>ucs-sip-itaiji-005
 648           =>ucs-bmp-itaiji-006
 649           =>ucs-sip-itaiji-006
 650           =>ucs-bmp-itaiji-007
 651           =>ucs-sip-itaiji-007
 652           =>ucs-bmp-itaiji-008
 653           =>ucs-sip-itaiji-008
 654           =>ucs-bmp-itaiji-009
 655           =>ucs-bmp-itaiji-010
 656           =>ucs-bmp-itaiji-011
 657           =>ucs-bmp-itaiji-012
 658           =>ucs-sip-itaiji-012
 659           =>ucs-bmp-itaiji-014
 660           =>ucs-bmp-itaiji-016
 661           =>ucs-bmp-itaiji-001@iwds-1
 662           =>ucs-sip-itaiji-001@iwds-1
 663           =>ucs-bmp-itaiji-002@iwds-1
 664           =>ucs-sip-itaiji-002@iwds-1
 665           =>ucs-bmp-itaiji-003@iwds-1
 666           =>ucs-sip-itaiji-003@iwds-1
 667           =>ucs-bmp-itaiji-006@iwds-1
 668           =>daikanwa
 669           ucs-bmp
 670           ==>ucs-bmp-cjk@bucs
 671           ==>ucs-sip@esu
 672           =>ucs-bmp-cjk@unicode
 673           =>ucs-bmp-cjk@cognate
 674           =>ucs-bmp-cjk@component
 675           =>ucs-sip@cognate
 676           =>ucs-tip@cognate
 677           =>ucs-sip@component
 678           =>ucs-tip@component
 679           =>ucs-bmp-cjk@iwds-1
 680           =>ucs-bmp-cjk@iwds-1/normalized
 681           =>ucs-sip@iwds-1
 682           =+>ucs-bmp-cjk@unicode
 683           =+>ucs-bmp-cjk-compat@jis
 684           =+>jis-x0213-2
 685           =+>jis-x0213-1@2004
 686           =>>ucs-bmp-cjk@unicode
 687           =adobe-japan1-base
 688           =>jis-x0208@1997
 689           =>>hanyo-denshi/ft
 690           =>>hanyo-denshi/ia
 691           =>>hanyo-denshi/ib
 692           =>>hanyo-denshi/jt
 693           =>>adobe-japan1-6
 694           =>>cns11643-1
 695           =>>cns11643-2
 696           =>>cns11643-3
 697           =>>cns11643-4
 698           =>>cns11643-6
 699           =>>cbeta
 700           =>>gt
 701           =>cns11643-1
 702           =>cns11643-5
 703           =>cns11643-7
 704           ==>daijiten
 705           =>cbeta
 706           =>zinbun-oracle
 707           =+>adobe-japan1-6
 708           =+>ucs-bmp-var-003
 709           =+>ucs-tip-var-003
 710           =+>jis-x0208@1978
 711           =+>big5-cdp
 712           )))
 713
 714 ;;; mule-charset.el ends here