(coded-charset-entity-reference-alist):

- Use "&g2-*;" as entity-references for `=>>>*'.
- Omit "&a{GT|JX1|JX2|JX3}-*;".

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index c680845..a5cc9e2 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -334,18 +334,17 @@
          ( arabic-2-column                "MULE-ARB2-" 2 X)
          ( arabic-digit                   "MULE-ARBD-" 2 X)
          ( ipa                             "MULE-IPA-" 2 X)
+         (=>>>jis-x0208                       "g2-J0-" 4 X)
          (=>>>jis-x0208                       "GI-J0-" 4 X)
+         (=>>>jis-x0213-1                    "g2-JX1-" 4 X)
          (=>>>jis-x0213-1                    "GI-JX1-" 4 X)
+         (=>>>jis-x0213-1@2004               "g2-JX3-" 4 X)
          (=>>>jis-x0213-1@2004               "GI-JX3-" 4 X)
          (=>>gt                                "G-GT-" 5 d)
-         (=>>gt                                 "aGT-" 5 d)
          (=>>jis-x0208                         "G-J0-" 4 X)
          (=>>jis-x0213-1@2000                 "G-JX1-" 4 X)
-         (=>>jis-x0213-2                      "G-JX2-" 4 X)
+         (=>>jis-x0213-2                      "G-JX2-" 4 X)
          (=>>jis-x0213-1@2004                 "G-JX3-" 4 X)
-         (=>>jis-x0213-1@2000                  "aJX1-" 4 X)
-         (=>>jis-x0213-2                       "aJX2-" 4 X)
-         (=>>jis-x0213-1@2004                  "aJX3-" 4 X)
          (=>>jis-x0208@1978                   "G-J78-" 4 X)
          (=>>big5-cdp                         "G-CDP-" 4 X)
          (=>>gt-k                             "G-GT-K" 5 d)
@@ -379,11 +378,17 @@
          (=>>ucs@jis/2000                    "G-J00U+" 4 X)
          (=>>ucs@jis/1990                    "G-J90U+" 4 X)
          (=>>ucs@JP                           "G-dJU+" 4 X)
+         (=>>>ucs@iso                         "g2-IU+" 4 X)
          (=>>>ucs@iso                         "GI-IU+" 4 X)
+         (=>>>ucs@unicode                     "g2-UU+" 4 X)
          (=>>>ucs@unicode                     "GI-UU+" 4 X)
+         (=>>>ucs@jis                         "g2-JU+" 4 X)
          (=>>>ucs@jis                         "GI-JU+" 4 X)
+         (=>>>ucs@ks                          "g2-KU+" 4 X)
          (=>>>ucs@ks                          "GI-KU+" 4 X)
+         (=>>>ucs@cns                         "g2-CU+" 4 X)
          (=>>>ucs@cns                         "GI-CU+" 4 X)
+         (=>>>ucs@jis/2004                  "g2-J04U+" 4 X)
          (=>>>ucs@jis/2004                  "GI-J04U+" 4 X)
          ( =ucs@iso                               "U-" 8 X)
          ( =ucs@unicode                          "UU+" 4 X)