(coded-charset-entity-reference-alist): Prefer `chinese-big5-cdp' to

`ideograph-daikanwa' and `ideograph-gt-k'; prefer `ideograph-daikanwa'
to `ideograph-gt-k'; add setting for HZK0[12]-xxxx.

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 481e116..803d12a 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -175,14 +175,18 @@
   (setq coded-charset-entity-reference-alist
        '(((ideograph-gt . isolated)            "I-GT-" 5 d)
          ( ideograph-gt                          "GT-" 5 d)
-         ((ideograph-gt-k . isolated)         "I-GT-K" 5 d)
-         ( ideograph-gt-k                       "GT-K" 5 d)
+         ((chinese-big5-cdp . isolated)       "I-CDP-" 4 X)
+         ( chinese-big5-cdp                     "CDP-" 4 X)
          ((ideograph-daikanwa . isolated)       "I-M-" 5 d)
          ( ideograph-daikanwa                     "M-" 5 d)
+         ((ideograph-gt-k . isolated)         "I-GT-K" 5 d)
+         ( ideograph-gt-k                       "GT-K" 5 d)
          ((ideograph-cbeta . isolated)          "I-CB" 5 d)
          ( ideograph-cbeta                        "CB" 5 d)
-         ((chinese-big5-cdp . isolated)       "I-CDP-" 4 X)
-         ( chinese-big5-cdp                     "CDP-" 4 X)
+         ((ideograph-hanziku-1 . isolated)  "I-HZK01-" 4 X)
+         ( ideograph-hanziku-1                "HZK01-" 4 X)
+         ((ideograph-hanziku-2 . isolated)  "I-HZK02-" 4 X)
+         ( ideograph-hanziku-2                "HZK02-" 4 X)
          ((ideograph-hanziku-1 . isolated)   "I-HZK1-" 4 X)
          ( ideograph-hanziku-1                 "HZK1-" 4 X)
          ((ideograph-hanziku-2 . isolated)   "I-HZK2-" 4 X)