X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-coding.el;h=956d2efa2912a0bbd89232e035eacf61c18a6976;hb=439e71f8b1ab996b64a71e95f8bec351ee2f5aee;hp=def6e5584eb6362eb856d736d5af82b2e99b27fe;hpb=8279c02df3d8724455a4b48010b65be823d9f585;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index def6e55..956d2ef 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)
@@ -314,6 +314,8 @@
 	  ( =daikanwa				  "M-"  5 d)
 	  ( =daikanwa@rev2			"r2M-"  5 d)
 	  ( =daikanwa@rev1			"r1M-"  5 d)
+	  (==daikanwa/+p			"R-M-p" 5 d)
+	  (==daikanwa				"R-M-"  5 d)
 	  ( =ks-x1001                    	  "K0-" 4 X)
 	  (==ks-x1001			        "R-K0-" 4 X)
 	  ( =iso-ir165			         "EGB-" 4 X)
@@ -436,13 +438,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@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@iso				   "U-" 8 X)
 	  ( =ucs@unicode			  "UU+" 4 X)
 	  ( =ucs@unicode			  "UU-" 8 X)
@@ -459,6 +454,15 @@
 	  ( =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)
+	  (==cns11643-4				"R-C4-" 4 X)
+	  (==cns11643-5				"R-C5-" 4 X)
+	  (==cns11643-6				"R-C6-" 4 X)
+	  (==cns11643-7				"R-C7-" 4 X)
+	  (==ucs@JP/hanazono		    "R-hanaJU+" 4 X)
 	  ( china3-jef				 "JC3-" 4 X)
 	  ( =big5				   "B-" 4 X)
 	  ( =big5				  "C0-" 4 X)
@@ -473,6 +477,14 @@
 	  ( =shinjigen@rev			"SJG2-" 4 d)
 	  ( =shinjigen@1ed			"SJG1-" 4 d)
 	  (==shinjigen@rev		      "R-SJG2-" 4 d)
+	  (==shinjigen@1ed		      "R-SJG1-" 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