(coded-charset-entity-reference-alist): Prefer `=>jis-x0213-2@usual'

[chise/xemacs-chise.git-] / lisp / mule / mule-coding.el

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index b682de2..98b334d 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -181,6 +181,11 @@
    ))
 
 (when (featurep 'utf-2000)
+  (setq decomposition-feature-list
+       '(=decomposition
+         =decomposition@cid
+         =decomposition@hanyo-denshi))
+
   (setq coded-charset-entity-reference-alist
        '(((=adobe-japan1-base  . isolated)    "I-AJ1-" 5 d)
          ((=adobe-japan1-6     . isolated)    "I-AJ1-" 5 d)
@@ -329,6 +334,9 @@
          ( arabic-2-column                "MULE-ARB2-" 2 X)
          ( arabic-digit                   "MULE-ARBD-" 2 X)
          ( ipa                             "MULE-IPA-" 2 X)
+         (=>>>jis-x0208                       "GI-J0-" 4 X)
+         (=>>>jis-x0213-1                    "GI-JX1-" 4 X)
+         (=>>>jis-x0213-1@2004               "GI-JX3-" 4 X)
          (=>>gt                                "G-GT-" 5 d)
          (=>>gt                                 "aGT-" 5 d)
          (=>>jis-x0208                         "G-J0-" 4 X)
@@ -343,15 +351,17 @@
          (=>>gt-k                             "G-GT-K" 5 d)
          (=>>ruimoku-v6                      "G-RUI6-" 4 X)
          (=>>hanyo-denshi/ft                "G-HD-FT-" 4 X)
+         (=>>hanyo-denshi/jt                "G-HD-JT-" 4 X)
          (=>>hanyo-denshi/ks                "G-HD-KS-" 4 X)
          ( =>jis-x0208@usual                   "o-J0-" 4 X)
+         ( =>jis-x0213-2@usual                "o-JX2-" 4 X)
          ( =>jis-x0208@1997                     "J97-" 4 X)
          ( =>jis-x0208@1997                    "A-J0-" 4 X)
          ( =>jis-x0213-1@2000                 "A-JX1-" 4 X)
-         ( =>jis-x0213-2@usual                "o-JX2-" 4 X)
          ( =>jis-x0213-2                      "A-JX2-" 4 X)
          ( =>jis-x0213-1@2004                 "A-JX3-" 4 X)
          ( =>gt                                "A-GT-" 5 d)
+         ( =>gt-k                             "A-GT-K" 5 d)
          ( =>zinbun-oracle                    "A-ZOB-" 4 d)
          (==>ucs@bucs                          "BUCS+" 4 X)
          ( =>ucs@iso                           "A-IU+" 4 X)
@@ -367,6 +377,13 @@
          (=>>ucs@jis/2004                    "G-J04U+" 4 X)
          (=>>ucs@jis/2000                    "G-J00U+" 4 X)
          (=>>ucs@jis/1990                    "G-J90U+" 4 X)
+         (=>>ucs@JP                           "G-dJU+" 4 X)
+         (=>>>ucs@iso                         "GI-IU+" 4 X)
+         (=>>>ucs@unicode                     "GI-UU+" 4 X)
+         (=>>>ucs@jis                         "GI-JU+" 4 X)
+         (=>>>ucs@ks                          "GI-KU+" 4 X)
+         (=>>>ucs@cns                         "GI-CU+" 4 X)
+         (=>>>ucs@jis/2004                  "GI-J04U+" 4 X)
          ( =ucs@iso                               "U-" 8 X)
          ( =ucs@unicode                          "UU+" 4 X)
          ( =ucs@unicode                          "UU-" 8 X)
@@ -379,6 +396,7 @@
          ( =ucs@cns                              "CU-" 8 X)
          ( =ucs@ks                               "KU+" 4 X)
          ( =ucs@ks                               "KU-" 8 X)
+         ( =ucs@JP                              "dJU+" 4 X)
          ( china3-jef                           "JC3-" 4 X)
          ( chinese-big5                           "B-" 4 X)
          ( chinese-big5                          "C0-" 4 X)