(coded-charset-entity-reference-alist): Modify some priorities.

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index b532e73..1f7399d 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -350,16 +350,45 @@
          (===ks-x1001                          "R-K0-" 4 X)
          ( =iso-ir165                           "EGB-" 4 X)
          ( =jis-x0208@1983                      "J83-" 4 X)
-         ( =jis-x0208@1978                      "J78-" 4 X)
+         ( =koseki                           "KOSEKI-" 6 d)
+         ( =ucs-var-001                      "U-v001+" 4 X)
+         ( =ucs-var-002                      "U-v002+" 4 X)
+         ( =ucs-var-003                      "U-v003+" 4 X)
+         ( =ucs-var-004                      "U-v004+" 4 X)
+         ( =ucs-var-005                      "U-v005+" 4 X)
+         ( =ucs-var-006                      "U-v006+" 4 X)
+         ( =ucs-var-008                      "U-v008+" 4 X)
+         ( =ucs-var-010                      "U-v010+" 4 X)
+         ( =ucs-itaiji-001                   "U-i001+" 4 X)
+         ( =ucs-itaiji-002                   "U-i002+" 4 X)
+         ( =ucs-itaiji-003                   "U-i003+" 4 X)
+         ( =ucs-itaiji-004                   "U-i004+" 4 X)
+         ( =ucs-itaiji-005                   "U-i005+" 4 X)
+         ( =ucs-itaiji-006                   "U-i006+" 4 X)
+         ( =ucs-itaiji-007                   "U-i007+" 4 X)
+         ( =ucs-itaiji-008                   "U-i008+" 4 X)
+         ( =ucs-itaiji-009                   "U-i009+" 4 X)
+         ( =ucs-itaiji-084                   "U-i084+" 4 X)
+         ( =big5-cdp-var-001               "CDP-v001-" 4 X)
+         ( =big5-cdp-var-002               "CDP-v002-" 4 X)
+         ( =big5-cdp-var-003               "CDP-v003-" 4 X)
+         ( =big5-cdp-var-004               "CDP-v004-" 4 X)
+         ( =big5-cdp-var-005               "CDP-v005-" 4 X)
+         ( =big5-cdp-itaiji-001            "CDP-i001-" 4 X)
+         ( =big5-cdp-itaiji-002            "CDP-i002-" 4 X)
+         ( =big5-cdp-itaiji-003            "CDP-i003-" 4 X)
+         ( =jis-x0208@1978/1pr                  "J78-" 4 X)
          ( =gt-k                                "GT-K" 5 d)
+         (==jis-x0208@1983                   "g2-J83-" 4 X)
+         (==koseki                        "g2-KOSEKI-" 6 d)
+         (==ucs-itaiji-003                "g2-U-i003+" 4 X)
+         (==ucs-itaiji-005                "g2-U-i005+" 4 X)
+         (==big5-cdp-itaiji-001         "g2-CDP-i001-" 4 X)
+         (==jis-x0208@1978/1pr               "g2-J78-" 4 X)
          (==gt-k                             "g2-GT-K" 5 d)
          (===gt-k                             "R-GT-K" 5 d)
-         (==jis-x0208@1983                   "g2-J83-" 4 X)
-         (==jis-x0208@1978                   "g2-J78-" 4 X)
          (===jis-x0208@1983                   "R-J83-" 4 X)
          (===jis-x0208@1978                   "R-J78-" 4 X)
-         ( =koseki                           "KOSEKI-" 6 d)
-         (==koseki                        "g2-KOSEKI-" 6 d)
          ( =cbeta                                 "CB" 5 d)
          (=>cbeta                               "A-CB" 5 d)
          (==cbeta                              "g2-CB" 5 d)
@@ -429,33 +458,6 @@
          ((=hanziku-2          . isolated)   "I-HZK2-" 4 X)
          ( =hanziku-2                          "HZK2-" 4 X)
          ( =hanyo-denshi/ks/mf                 "KSMF-" 5 d)
-         ( =ucs-var-001                      "U-v001+" 4 X)
-         ( =ucs-var-002                      "U-v002+" 4 X)
-         ( =ucs-var-003                      "U-v003+" 4 X)
-         ( =ucs-var-004                      "U-v004+" 4 X)
-         ( =ucs-var-005                      "U-v005+" 4 X)
-         ( =ucs-var-006                      "U-v006+" 4 X)
-         ( =ucs-var-008                      "U-v008+" 4 X)
-         ( =ucs-var-010                      "U-v010+" 4 X)
-         ( =ucs-itaiji-001                   "U-i001+" 4 X)
-         ( =ucs-itaiji-002                   "U-i002+" 4 X)
-         ( =ucs-itaiji-003                   "U-i003+" 4 X)
-         ( =ucs-itaiji-004                   "U-i004+" 4 X)
-         ( =ucs-itaiji-005                   "U-i005+" 4 X)
-         ( =ucs-itaiji-006                   "U-i006+" 4 X)
-         ( =ucs-itaiji-007                   "U-i007+" 4 X)
-         ( =ucs-itaiji-008                   "U-i008+" 4 X)
-         ( =ucs-itaiji-009                   "U-i009+" 4 X)
-         ( =ucs-itaiji-084                   "U-i084+" 4 X)
-         ( =big5-cdp-itaiji-001            "CDP-i001-" 4 X)
-         (==big5-cdp-itaiji-001         "g2-CDP-i001-" 4 X)
-         ( =big5-cdp-itaiji-002            "CDP-i002-" 4 X)
-         ( =big5-cdp-itaiji-003            "CDP-i003-" 4 X)
-         ( =big5-cdp-var-001               "CDP-v001-" 4 X)
-         ( =big5-cdp-var-002               "CDP-v002-" 4 X)
-         ( =big5-cdp-var-003               "CDP-v003-" 4 X)
-         ( =big5-cdp-var-004               "CDP-v004-" 4 X)
-         ( =big5-cdp-var-005               "CDP-v005-" 4 X)
          ( =big5-cdp-var-3                 "CDP-var3-" 4 X)
          ( =big5-cdp-var-5                 "CDP-var5-" 4 X)
          ( latin-iso8859-1                   "LATIN1-" 2 X)
@@ -602,7 +604,6 @@
          (=>ucs-itaiji-001                 "A-U-i001+" 4 X)
          (=>ucs-itaiji-002                 "A-U-i002+" 4 X)
          (=>ucs-itaiji-005                 "A-U-i005+" 4 X)
-         (==ucs-itaiji-005                "g2-U-i005+" 4 X)
          (=>ucs-itaiji-006                 "A-U-i006+" 4 X)
          (=>big5-cdp-itaiji-001          "A-CDP-i001-" 4 X)
          ( =jis-x0208@1978/i1                 "J78i1-" 4 X)