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

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 0221bdc..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)
@@ -478,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)