X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-coding.el;h=e5d76e1b77d37ff8f6f041842fc2b2d364845e31;hb=905dec8b7c2ec74267d6a8ccbdf4f5fea3a2ccae;hp=0d5b33bedf7fbde2d2927473e221f76f77cd591a;hpb=55aac637ab31a7b0fc235274c6fe24ab278080d5;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 0d5b33b..e5d76e1 100644
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -187,8 +187,11 @@
 	  =decomposition@hanyo-denshi))
 
   (setq coded-charset-entity-reference-alist
-	'(((=adobe-japan1-6	. isolated)    "I-AJ1-" 5 d)
+	'(((=mj			. isolated)      "I-MJ" 6 d)
+	  ((=adobe-japan1-6	. isolated)    "I-AJ1-" 5 d)
+	  ( =mj					   "MJ" 6 d)
 	  ( =adobe-japan1-6			 "AJ1-" 5 d)
+	  (==mj					 "R-MJ" 6 d)
 	  (==adobe-japan1-6		       "R-AJ1-" 5 d)
 	  ((=adobe-japan1-base	. isolated)    "I-AJ1-" 5 d)
 	  ( =adobe-japan1-base		       "I-AJ1-" 5 d)
@@ -412,6 +415,7 @@
 	  ( =>gt-k			       "A-GT-K" 5 d)
 	  ( =>zinbun-oracle		       "A-ZOB-" 4 d)
 	  (==>ucs@bucs				"BUCS+" 4 X)
+	  ( =>ucs@hanyo-denshi		       "A-HDU+" 4 X)
 	  ( =>ucs@hanyo-denshi		    "A-HD-UCS+" 4 X)
 	  ( =>ucs@iso				"A-IU+" 4 X)
 	  ( =>ucs@unicode			"A-UU+" 4 X)
@@ -451,6 +455,7 @@
 	  (==ucs@iso				 "R-U-" 8 X)
 	  (==ucs@unicode			"R-UU+" 4 X)
 	  (==ucs@cns				"R-CU+" 4 X)
+	  (==ucs@ks				"R-KU+" 4 X)
 	  (==cns11643-1				"R-C1-" 4 X)
 	  (==cns11643-2				"R-C2-" 4 X)
 	  (==cns11643-3				"R-C3-" 4 X)