X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-coding.el;h=4f344b6d228e39e92ba1539684cbfa813fd92b1c;hb=b4bc579a86aaf8a24af2ae913a2901423424fdcf;hp=9c82320e8775aa5fb78b240c61cd3f7fb3149d09;hpb=02eacc0f1e7b926d8f11f18949c17d5b99f726da;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 9c82320..4f344b6 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)
@@ -204,7 +207,6 @@
 	  ((=hanyo-denshi/jt	. isolated)  "I-HD-JT-" 4 X)
 	  ((=hanyo-denshi/ks	. isolated)  "I-HD-KS-" 6 d)
 	  ((=hanyo-denshi/ks/mf	. isolated)   "I-KSMF-" 5 d)
-	  ((=mj			. isolated)     "I-MJ-" 6 d)
 	  ((=gt			. isolated)     "I-GT-" 5 d)
 	  ((=jis-x0208@1990	. isolated)    "I-J90-" 4 X)
 	  ((=jis-x0208@1983	. isolated)    "I-J83-" 4 X)
@@ -263,7 +265,6 @@
 	  ((arabic-digit	. isolated) "I-MULE-ARBD-" 2 X)
 	  ((ipa			. isolated) "I-MULE-IPA-" 2 X)
 	  ((china3-jef		. isolated)    "I-JC3-" 4 X)
-	  ( =mj					  "MJ-" 6 d)
 	  ( =hanyo-denshi/ja		       "HD-JA-" 4 X)
 	  ( =hanyo-denshi/jb		       "HD-JB-" 4 X)
 	  ( =hanyo-denshi/jc		       "HD-JC-" 4 X)
@@ -275,7 +276,6 @@
 	  ( =hanyo-denshi/ip		       "HD-IP-" 4 X)
 	  ( =hanyo-denshi/jt		       "HD-JT-" 4 X)
 	  ( =hanyo-denshi/ks		       "HD-KS-" 6 d)
-	  (==mj					"R-MJ-" 6 d)
 	  (==hanyo-denshi/ja		     "R-HD-JA-" 4 X)
 	  (==hanyo-denshi/jb		     "R-HD-JB-" 4 X)
 	  (==hanyo-denshi/jc		     "R-HD-JC-" 4 X)