(coded-charset-entity-reference-alist): Prefer Hanyo-Denshi to GT,

JIS, CNS, etc.

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index f397b59..4654aae 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -203,6 +203,17 @@
          ((=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)
+         ( =hanyo-denshi/ja                   "HD-JA-" 4 X)
+         ( =hanyo-denshi/jb                   "HD-JB-" 4 X)
+         ( =hanyo-denshi/jc                   "HD-JC-" 4 X)
+         ( =hanyo-denshi/jd                   "HD-JD-" 4 X)
+         ( =hanyo-denshi/ft                   "HD-FT-" 4 X)
+         ( =hanyo-denshi/ia                   "HD-IA-" 4 X)
+         ( =hanyo-denshi/ib                   "HD-IB-" 4 X)
+         ( =hanyo-denshi/hg                   "HD-HG-" 4 X)
+         ( =hanyo-denshi/ip                   "HD-IP-" 4 X)
+         ( =hanyo-denshi/jt                   "HD-JT-" 4 X)
+         ( =hanyo-denshi/ks                   "HD-KS-" 6 d)
          ((=gt                 . isolated)     "I-GT-" 5 d)
          ( =gt                                   "GT-" 5 d)
          ((=jis-x0208@1990     . isolated)    "I-J90-" 4 X)
@@ -277,17 +288,6 @@
          ((arabic-digit        . isolated) "I-MULE-ARBD-" 2 X)
          ((ipa                 . isolated) "I-MULE-IPA-" 2 X)
          ((china3-jef          . isolated)    "I-JC3-" 4 X)
-         ( =hanyo-denshi/ja                   "HD-JA-" 4 X)
-         ( =hanyo-denshi/jb                   "HD-JB-" 4 X)
-         ( =hanyo-denshi/jc                   "HD-JC-" 4 X)
-         ( =hanyo-denshi/jd                   "HD-JD-" 4 X)
-         ( =hanyo-denshi/ft                   "HD-FT-" 4 X)
-         ( =hanyo-denshi/ia                   "HD-IA-" 4 X)
-         ( =hanyo-denshi/ib                   "HD-IB-" 4 X)
-         ( =hanyo-denshi/hg                   "HD-HG-" 4 X)
-         ( =hanyo-denshi/ip                   "HD-IP-" 4 X)
-         ( =hanyo-denshi/jt                   "HD-JT-" 4 X)
-         ( =hanyo-denshi/ks                   "HD-KS-" 6 d)
          ( =zinbun-oracle                       "ZOB-" 4 d)
          ( =daikanwa/ho                          "M-H" 4 d)
          ( =daikanwa/+p                          "M-p" 5 d)