(coded-charset-entity-reference-alist): Add setting for `=>ucs@jis'.

[chise/xemacs-chise.git.1] / lisp / mule / mule-coding.el

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 5bbec77..5899d81 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -243,17 +243,11 @@
          ( =adobe-japan1-6                      "AJ1-" 5 d)
          ( =adobe-japan1-base                 "I-AJ1-" 5 d)
          ( =gt                                   "GT-" 5 d)
-         (=>>gt                                "G-GT-" 5 d)
-         (=>>gt                                 "aGT-" 5 d)
-         (=>gt                                 "A-GT-" 5 d)
          ( =zinbun-oracle                       "ZOB-" 4 d)
-         (=>zinbun-oracle                     "A-ZOB-" 4 d)
          ( =ruimoku-v6                         "RUI6-" 4 X)
          ( =big5-cdp                            "CDP-" 4 X)
-         (=>>big5-cdp                         "G-CDP-" 4 X)
-         ( ideograph-daikanwa                     "M-" 5 d)
+         ( =daikanwa                              "M-" 5 d)
          ( =gt-k                                "GT-K" 5 d)
-         (=>>gt-k                             "G-GT-K" 5 d)
          ( ideograph-cbeta                        "CB" 5 d)
          ( ideograph-hanziku-1                "HZK01-" 4 X)
          ( ideograph-hanziku-2                "HZK02-" 4 X)
@@ -309,28 +303,9 @@
          ( arabic-2-column                "MULE-ARB2-" 2 X)
          ( arabic-digit                   "MULE-ARBD-" 2 X)
          ( ipa                             "MULE-IPA-" 2 X)
-         ( china3-jef                           "JC3-" 4 X)
-         ( chinese-big5                           "B-" 4 X)
-         ( chinese-big5                          "C0-" 4 X)
-         ( =ucs@iso                               "U-" 8 X)
-         ( =ucs@unicode                          "UU+" 4 X)
-         ( =ucs@unicode                          "UU-" 8 X)
-         ( =ucs@iso                               "U+" 4 X)
-         ( =ucs@gb                               "GU+" 4 X)
-         ( =ucs@gb                               "GU-" 8 X)
-         ( =ucs@jis                              "JU+" 4 X)
-         ( =ucs@jis                              "JU-" 8 X)
-         ( =ucs@cns                              "CU+" 4 X)
-         ( =ucs@cns                              "CU-" 8 X)
-         ( =ucs@ks                               "KU+" 4 X)
-         ( =ucs@ks                               "KU-" 8 X)
-         (=>>ucs@unicode                       "G-UU+" 4 X)
-         (=>>ucs@jis                           "G-JU+" 4 X)
-         (=>>ucs@cns                           "G-CU+" 4 X)
-         (=>>ucs@jis/2004                    "G-J04U+" 4 X)
-         (=>>ucs@jis/2000                    "G-J00U+" 4 X)
-         (=>>ucs@jis/1990                    "G-J90U+" 4 X)
-         (=>>jis-x0208@1990                   "G-J90-" 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-1@2004                 "G-JX3-" 4 X)
@@ -338,14 +313,49 @@
          (=>>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)
+         ( =>jis-x0208@usual                   "o-J0-" 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                      "A-JX2-" 4 X)
          ( =>jis-x0213-1@2004                 "A-JX3-" 4 X)
-         ( =jis-x0208@1978/i1                 "J78i1-" 4 X)
-         ( =shinjigen@rev                      "SJG2-" 4 d)
-         ( =shinjigen@1ed                      "SJG1-" 4 d)
+         ( =>gt                                "A-GT-" 5 d)
+         ( =>zinbun-oracle                    "A-ZOB-" 4 d)
+         (==>ucs@bucs                          "BUCS+" 4 X)
+         ( =>ucs@iso                           "A-IU+" 4 X)
+         ( =>ucs@unicode                       "A-UU+" 4 X)
+         ( =>ucs@jis                           "A-JU+" 4 X)
+         ( =>ucs@cns                           "A-CU+" 4 X)
+         (=>>ucs@iso                           "G-IU+" 4 X)
+         (=>>ucs@unicode                       "G-UU+" 4 X)
+         (=>>ucs@jis                           "G-JU+" 4 X)
+         (=>>ucs@ks                            "G-KU+" 4 X)
+         (=>>ucs@cns                           "G-CU+" 4 X)
+         (=>>ucs@jis/2004                    "G-J04U+" 4 X)
+         (=>>ucs@jis/2000                    "G-J00U+" 4 X)
+         (=>>ucs@jis/1990                    "G-J90U+" 4 X)
+         ( =ucs@iso                               "U-" 8 X)
+         ( =ucs@unicode                          "UU+" 4 X)
+         ( =ucs@unicode                          "UU-" 8 X)
+         ( =ucs@iso                               "U+" 4 X)
+         ( =ucs@gb                               "GU+" 4 X)
+         ( =ucs@gb                               "GU-" 8 X)
+         ( =ucs@jis                              "JU+" 4 X)
+         ( =ucs@jis                              "JU-" 8 X)
+         ( =ucs@cns                              "CU+" 4 X)
+         ( =ucs@cns                              "CU-" 8 X)
+         ( =ucs@ks                               "KU+" 4 X)
+         ( =ucs@ks                               "KU-" 8 X)
+         ( china3-jef                           "JC3-" 4 X)
+         ( chinese-big5                           "B-" 4 X)
+         ( chinese-big5                          "C0-" 4 X)
+         ( =>big5-cdp                         "A-CDP-" 4 X)
+         ( =>daikanwa                           "A-M-" 5 d)
+         ( =jis-x0208@1978/i1                 "J78i1-" 4 X)
+         ( =shinjigen@rev                      "SJG2-" 4 d)
+         ( =shinjigen@1ed                      "SJG1-" 4 d)
          ))
 
   (make-coding-system