(coded-charset-entity-reference-alist): Prefer `=>jis-x0213-2@usual'

to `=>jis-x0208@1997' and `=>jis-x0213-1@2000'; add settings for
`=>>>ucs@ks' and `=>>>ucs@jis/2004'.

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index db5e296..98b334d 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -354,10 +354,10 @@
          (=>>hanyo-denshi/jt                "G-HD-JT-" 4 X)
          (=>>hanyo-denshi/ks                "G-HD-KS-" 4 X)
          ( =>jis-x0208@usual                   "o-J0-" 4 X)
+         ( =>jis-x0213-2@usual                "o-JX2-" 4 X)
          ( =>jis-x0208@1997                     "J97-" 4 X)
          ( =>jis-x0208@1997                    "A-J0-" 4 X)
          ( =>jis-x0213-1@2000                 "A-JX1-" 4 X)
-         ( =>jis-x0213-2@usual                "o-JX2-" 4 X)
          ( =>jis-x0213-2                      "A-JX2-" 4 X)
          ( =>jis-x0213-1@2004                 "A-JX3-" 4 X)
          ( =>gt                                "A-GT-" 5 d)
@@ -381,7 +381,9 @@
          (=>>>ucs@iso                         "GI-IU+" 4 X)
          (=>>>ucs@unicode                     "GI-UU+" 4 X)
          (=>>>ucs@jis                         "GI-JU+" 4 X)
+         (=>>>ucs@ks                          "GI-KU+" 4 X)
          (=>>>ucs@cns                         "GI-CU+" 4 X)
+         (=>>>ucs@jis/2004                  "GI-J04U+" 4 X)
          ( =ucs@iso                               "U-" 8 X)
          ( =ucs@unicode                          "UU+" 4 X)
          ( =ucs@unicode                          "UU-" 8 X)