X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-coding.el;h=15ee30db190ab122607a8bbef8a559e29ec24d2c;hb=a22ec45136cd3b08d7d8c7d84726ae5205c19b07;hp=43ffcf9615281cee08e4c9af6ec6d0a6e0a34cde;hpb=dbbc6640facc180ebbe84ce27209a1c4e60ff65f;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 43ffcf9..15ee30d 100644
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -289,11 +289,14 @@
 	  (==hanyo-denshi/ip		    "g2-HD-IP-" 4 X)
 	  (==hanyo-denshi/jt		    "g2-HD-JT-" 4 X)
 	  (==hanyo-denshi/ks		    "g2-HD-KS-" 6 d)
+	  (===hanyo-denshi/jb		     "R-HD-JB-" 4 X)
 	  (===hanyo-denshi/ft		     "R-HD-FT-" 4 X)
 	  (===hanyo-denshi/ia		     "R-HD-IA-" 4 X)
 	  (===hanyo-denshi/ib		     "R-HD-IB-" 4 X)
+	  (===hanyo-denshi/hg		     "R-HD-HG-" 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 +307,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)
@@ -319,7 +324,8 @@
 	  ( chinese-cns11643-5			  "C5-" 4 X)
 	  ( chinese-cns11643-6			  "C6-" 4 X)
 	  ( chinese-cns11643-7			  "C7-" 4 X)
-	  ( chinese-gb2312			  "G0-" 4 X)
+	  ( =gb2312				  "G0-" 4 X)
+          ;; (==gb2312                         "g2-G0-" 4 X)
 	  ( =big5-cdp				 "CDP-" 4 X)
 	  (==big5-cdp			      "g2-CDP-" 4 X)
 	  (===big5-cdp			       "R-CDP-" 4 X)
@@ -372,6 +378,9 @@
 	  ((=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)
 	  ( =big5-cdp-var-3		    "CDP-var3-" 4 X)
 	  ( =big5-cdp-var-5		    "CDP-var5-" 4 X)
@@ -435,6 +444,7 @@
 	  ( =>gt-k			       "A-GT-K" 5 d)
 	  ( =>zinbun-oracle		       "A-ZOB-" 4 d)
 	  (==>ucs@bucs				"BUCS+" 4 X)
+	  ( =>iwds-1			       "IWDS1-" 3 d)
 	  ( =>ucs@hanyo-denshi		       "A-HDU+" 4 X)
 	  ( =>ucs@hanyo-denshi		    "A-HD-UCS+" 4 X)
 	  ( =>ucs@iso				"A-IU+" 4 X)
@@ -474,10 +484,12 @@
 	  (=>>ucs@JP			       "G-dJU+" 4 X)
 	  (==ucs@iso			       "g2-IU-" 8 X)
 	  (==ucs@unicode		       "g2-UU+" 4 X)
+	  (==ucs@gb			       "g2-GU+" 4 X)
 	  (==ucs@cns			       "g2-CU+" 4 X)
 	  (==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)