X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fmule%2Fmule-coding.el;h=f8b021db43858aaa5a0858a2315300ddf98b161f;hb=ed2763044e342ed87389d0c2072f41482531a2cb;hp=1cc7c10b84784af69843e6bc1333772e17173ec6;hpb=290d1547b652f58448236c92336321416036a3cc;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 1cc7c10..f8b021d 100644
--- 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