Add setting for `==cns11643-3'.

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

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 1cc7c10..f8b021d 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -296,7 +296,7 @@
          (==jis-x0213-1@2000                  "R-JX1-" 4 X)
          (==jis-x0213-2                       "R-JX2-" 4 X)
          (==jis-x0213-1@2004                  "R-JX3-" 4 X)
-         ( chinese-cns11643-1                    "C1-" 4 X)
+         ( =cns11643-1                           "C1-" 4 X)
          ( chinese-cns11643-2                    "C2-" 4 X)
          ( chinese-cns11643-3                    "C3-" 4 X)
          ( chinese-cns11643-4                    "C4-" 4 X)
@@ -436,11 +436,6 @@
          (=>>>ucs@unicode                     "GI-UU+" 4 X)
          (=>>>ucs@jis                         "g2-JU+" 4 X)
          (=>>>ucs@jis                         "GI-JU+" 4 X)
-         (=>>>ucs@ks                          "g2-KU+" 4 X)
-         (=>>>ucs@ks                          "GI-KU+" 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)
@@ -457,6 +452,10 @@
          ( =ucs@JP/hanazono                  "hanaJU+" 4 X)
          (==ucs@iso                             "R-U-" 8 X)
          (==ucs@unicode                        "R-UU+" 4 X)
+         (==ucs@cns                            "R-CU+" 4 X)
+         (==cns11643-1                         "R-C1-" 4 X)
+         (==cns11643-2                         "R-C2-" 4 X)
+         (==cns11643-3                         "R-C3-" 4 X)
          ( china3-jef                           "JC3-" 4 X)
          ( =big5                                  "B-" 4 X)
          ( =big5                                 "C0-" 4 X)
@@ -473,6 +472,11 @@
          (==shinjigen@rev                    "R-SJG2-" 4 d)
          (=>>>ucs@cns                         "g2-CU+" 4 X)
          (=>>>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@ks                          "g2-KU+" 4 X)
+         (=>>>ucs@ks                          "GI-KU+" 4 X)
          ))
 
   (make-coding-system