(coded-charset-entity-reference-alist):

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

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 8f2d9e7..01b758f 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -361,8 +361,10 @@
          (=>>hanyo-denshi/jt                "G-HD-JT-" 4 X)
          (=>>hanyo-denshi/ks                "G-HD-KS-" 4 X)
          (=>>cbeta                              "G-CB" 5 d)
-         ( =>jis-x0208@usual                   "o-J0-" 4 X)
-         ( =>jis-x0213-2@usual                "o-JX2-" 4 X)
+         (=+>jis-x0208                         "o-J0-" 4 X)
+         (=+>jis-x0213-1                      "o-JX1-" 4 X)
+         (=+>jis-x0213-2                      "o-JX2-" 4 X)
+         (=+>jis-x0208@1978                   "o-J78-" 4 X)
          ( =>jis-x0208@1997                     "J97-" 4 X)
          ( =>jis-x0208@1997                    "A-J0-" 4 X)
          ( =>jis-x0213-1@2000                 "A-JX1-" 4 X)
@@ -376,7 +378,11 @@
          ( =>ucs@unicode                       "A-UU+" 4 X)
          ( =>ucs@jis                           "A-JU+" 4 X)
          ( =>ucs@cns                           "A-CU+" 4 X)
-         ( =>ucs@JP                            "o-JU+" 4 X)
+         ( =>ucs@ks                            "A-KU+" 4 X)
+         (=+>ucs@iso                           "o-IU+" 4 X)
+         (=+>ucs@jis                           "o-JU+" 4 X)
+         (=+>ucs@jis/1990                    "o-J90U+" 4 X)
+         (=+>ucs@cns                           "o-CU+" 4 X)
          (=>>ucs@iso                           "G-IU+" 4 X)
          (=>>ucs@unicode                       "G-UU+" 4 X)
          (=>>ucs@jis                           "G-JU+" 4 X)
@@ -398,6 +404,7 @@
          (=>>>ucs@cns                         "GI-CU+" 4 X)
          (=>>>ucs@jis/2004                  "g2-J04U+" 4 X)
          (=>>>ucs@jis/2004                  "GI-J04U+" 4 X)
+         (=>>>ucs@jis/1990                  "g2-J90U+" 4 X)
          ( =ucs@iso                               "U-" 8 X)
          ( =ucs@unicode                          "UU+" 4 X)
          ( =ucs@unicode                          "UU-" 8 X)
@@ -411,6 +418,7 @@
          ( =ucs@ks                               "KU+" 4 X)
          ( =ucs@ks                               "KU-" 8 X)
          ( =ucs@JP                              "dJU+" 4 X)
+         ( =ucs@JP/hanazono                  "hanaJU+" 4 X)
          ( china3-jef                           "JC3-" 4 X)
          ( =big5                                  "B-" 4 X)
          ( =big5                                 "C0-" 4 X)