projects / chise / xemacs-chise.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: a61341d)
(coded-charset-entity-reference-alist): Prefer MJ to Adobe-Japan1; use
authorMORIOKA Tomohiko <tomo.git@chise.org>
Thu, 20 Feb 2014 22:52:35 +0000 (07:52 +0900)
committerMORIOKA Tomohiko <tomo.git@chise.org>
Thu, 20 Feb 2014 22:52:35 +0000 (07:52 +0900)
"I-MJ", "MJ" and "&R-MJ" instead of "I-MJ-", "MJ-" and "&R-MJ-" as
prefixes of MJ.

lisp/mule/mule-coding.el patch | blob | history

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 9c82320..4f344b6 100644 (file)
--- 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)