(coded-charset-entity-reference-alist): Add setting for

[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 497489c..15ee30d 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -5,7 +5,7 @@
 ;; Copyright (C) 1995 Amdahl Corporation.
 ;; Copyright (C) 1995 Sun Microsystems.
 ;; Copyright (C) 1997, 1999, 2002, 2003, 2004, 2005, 2006, 2008, 2009,
-;;   2010, 2011, 2012, 2013, 2014 MORIOKA Tomohiko
+;;   2010, 2011, 2012, 2013, 2014, 2015 MORIOKA Tomohiko
 
 ;; This file is part of XEmacs.
 
@@ -289,11 +289,14 @@
          (==hanyo-denshi/ip                "g2-HD-IP-" 4 X)
          (==hanyo-denshi/jt                "g2-HD-JT-" 4 X)
          (==hanyo-denshi/ks                "g2-HD-KS-" 6 d)
+         (===hanyo-denshi/jb                "R-HD-JB-" 4 X)
          (===hanyo-denshi/ft                "R-HD-FT-" 4 X)
          (===hanyo-denshi/ia                "R-HD-IA-" 4 X)
          (===hanyo-denshi/ib                "R-HD-IB-" 4 X)
+         (===hanyo-denshi/hg                "R-HD-HG-" 4 X)
          (===hanyo-denshi/ip                "R-HD-IP-" 4 X)
          (===hanyo-denshi/jt                "R-HD-JT-" 4 X)
+         (===hanyo-denshi/ks                "R-HD-KS-" 6 d)
          ( =gt                                   "GT-" 5 d)
          (==gt                                "g2-GT-" 5 d)
          (===gt                                "R-GT-" 5 d)
@@ -304,14 +307,16 @@
          ( =jis-x0212                           "JSP-" 4 X)
          (==jis-x0208@1990                   "g2-J90-" 4 X)
          (===jis-x0208@1990                   "R-J90-" 4 X)
+         (===jis-x0208                         "R-J0-" 4 X)
          (==jis-x0212                        "g2-JSP-" 4 X)
          (==jis-x0213-1@2000                 "g2-JX1-" 4 X)
          (==jis-x0213-2                      "g2-JX2-" 4 X)
          (==jis-x0213-1@2004                 "g2-JX3-" 4 X)
-         (===jis-x0213-1@2000                 "R-JX1-" 4 X)
+         (===jis-x0213-1                      "R-JX1-" 4 X)
          (===jis-x0213-2                      "R-JX2-" 4 X)
          (===jis-x0213-1@2004                 "R-JX3-" 4 X)
          (===jis-x0212                        "R-JSP-" 4 X)
+         (===jis-x0213-1@2000               "R-J00X1-" 4 X)
          ( =cns11643-1                           "C1-" 4 X)
          ( chinese-cns11643-2                    "C2-" 4 X)
          ( chinese-cns11643-3                    "C3-" 4 X)
@@ -319,7 +324,8 @@
          ( chinese-cns11643-5                    "C5-" 4 X)
          ( chinese-cns11643-6                    "C6-" 4 X)
          ( chinese-cns11643-7                    "C7-" 4 X)
-         ( chinese-gb2312                        "G0-" 4 X)
+         ( =gb2312                               "G0-" 4 X)
+          ;; (==gb2312                         "g2-G0-" 4 X)
          ( =big5-cdp                            "CDP-" 4 X)
          (==big5-cdp                         "g2-CDP-" 4 X)
          (===big5-cdp                         "R-CDP-" 4 X)
@@ -372,6 +378,9 @@
          ((=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-itaiji-084                   "U-i084+" 4 X)
          ( =big5-cdp-var-3                 "CDP-var3-" 4 X)
          ( =big5-cdp-var-5                 "CDP-var5-" 4 X)
@@ -435,6 +444,7 @@
          ( =>gt-k                             "A-GT-K" 5 d)
          ( =>zinbun-oracle                    "A-ZOB-" 4 d)
          (==>ucs@bucs                          "BUCS+" 4 X)
+         ( =>iwds-1                           "IWDS1-" 3 d)
          ( =>ucs@hanyo-denshi                 "A-HDU+" 4 X)
          ( =>ucs@hanyo-denshi              "A-HD-UCS+" 4 X)
          ( =>ucs@iso                           "A-IU+" 4 X)
@@ -449,15 +459,6 @@
          (=+>ucs@jis/1990                    "o-J90U+" 4 X)
          (=+>ucs@cns                           "o-CU+" 4 X)
          (=+>ucs@ks                            "o-KU+" 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@JP                           "G-dJU+" 4 X)
          ( =ucs@iso                               "U-" 8 X)
          ( =ucs@unicode                          "UU+" 4 X)
          ( =ucs@unicode                          "UU-" 8 X)
@@ -472,12 +473,23 @@
          ( =ucs@ks                               "KU-" 8 X)
          ( =ucs@JP                              "dJU+" 4 X)
          ( =ucs@JP/hanazono                  "hanaJU+" 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@JP                           "G-dJU+" 4 X)
          (==ucs@iso                           "g2-IU-" 8 X)
          (==ucs@unicode                       "g2-UU+" 4 X)
+         (==ucs@gb                            "g2-GU+" 4 X)
          (==ucs@cns                           "g2-CU+" 4 X)
          (==ucs@ks                            "g2-KU+" 4 X)
          (===ucs@iso                            "R-U-" 8 X)
          (===ucs@unicode                       "R-UU+" 4 X)
+         (===ucs@gb                            "R-GU+" 4 X)
          (===ucs@ks                            "R-KU+" 4 X)
          (==cns11643-1                        "g2-C1-" 4 X)
          (==cns11643-2                        "g2-C2-" 4 X)