update.

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

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 2cb6c29..d1ade5a 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -294,6 +294,7 @@
          (===hanyo-denshi/ib                "R-HD-IB-" 4 X)
          (===hanyo-denshi/ip                "R-HD-IP-" 4 X)
          (===hanyo-denshi/jt                "R-HD-JT-" 4 X)
+         (===hanyo-denshi/ks                "R-HD-KS-" 6 d)
          ( =gt                                   "GT-" 5 d)
          (==gt                                "g2-GT-" 5 d)
          (===gt                                "R-GT-" 5 d)
@@ -304,14 +305,16 @@
          ( =jis-x0212                           "JSP-" 4 X)
          (==jis-x0208@1990                   "g2-J90-" 4 X)
          (===jis-x0208@1990                   "R-J90-" 4 X)
+         (===jis-x0208                         "R-J0-" 4 X)
          (==jis-x0212                        "g2-JSP-" 4 X)
          (==jis-x0213-1@2000                 "g2-JX1-" 4 X)
          (==jis-x0213-2                      "g2-JX2-" 4 X)
          (==jis-x0213-1@2004                 "g2-JX3-" 4 X)
-         (===jis-x0213-1@2000                 "R-JX1-" 4 X)
+         (===jis-x0213-1                      "R-JX1-" 4 X)
          (===jis-x0213-2                      "R-JX2-" 4 X)
          (===jis-x0213-1@2004                 "R-JX3-" 4 X)
          (===jis-x0212                        "R-JSP-" 4 X)
+         (===jis-x0213-1@2000               "R-J00X1-" 4 X)
          ( =cns11643-1                           "C1-" 4 X)
          ( chinese-cns11643-2                    "C2-" 4 X)
          ( chinese-cns11643-3                    "C3-" 4 X)
@@ -372,6 +375,7 @@
          ((=hanziku-2          . isolated)   "I-HZK2-" 4 X)
          ( =hanziku-2                          "HZK2-" 4 X)
          ( =hanyo-denshi/ks/mf                 "KSMF-" 5 d)
+         ( =ucs-var-001                      "U-v001+" 4 X)
          ( =ucs-var-002                      "U-v002+" 4 X)
          ( =ucs-var-003                      "U-v003+" 4 X)
          ( =ucs-itaiji-084                   "U-i084+" 4 X)
@@ -481,6 +485,7 @@
          (==ucs@ks                            "g2-KU+" 4 X)
          (===ucs@iso                            "R-U-" 8 X)
          (===ucs@unicode                       "R-UU+" 4 X)
+         (===ucs@gb                            "R-GU+" 4 X)
          (===ucs@ks                            "R-KU+" 4 X)
          (==cns11643-1                        "g2-C1-" 4 X)
          (==cns11643-2                        "g2-C2-" 4 X)