Complete `==ucs@cns' for `==cns11643-1'.

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

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 956d2ef..4f344b6 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 MORIOKA Tomohiko
+;;   2010, 2011, 2012, 2013, 2014 MORIOKA Tomohiko
 
 ;; This file is part of XEmacs.
 
@@ -187,8 +187,11 @@
          =decomposition@hanyo-denshi))
 
   (setq coded-charset-entity-reference-alist
-       '(((=adobe-japan1-6     . isolated)    "I-AJ1-" 5 d)
+       '(((=mj                 . isolated)      "I-MJ" 6 d)
+         ((=adobe-japan1-6     . isolated)    "I-AJ1-" 5 d)
+         ( =mj                                    "MJ" 6 d)
          ( =adobe-japan1-6                      "AJ1-" 5 d)
+         (==mj                                  "R-MJ" 6 d)
          (==adobe-japan1-6                    "R-AJ1-" 5 d)
          ((=adobe-japan1-base  . isolated)    "I-AJ1-" 5 d)
          ( =adobe-japan1-base                 "I-AJ1-" 5 d)
@@ -325,6 +328,7 @@
          (==gt-k                              "R-GT-K" 5 d)
          (==jis-x0208@1983                    "R-J83-" 4 X)
          (==jis-x0208@1978                    "R-J78-" 4 X)
+         ( =koseki                           "KOSEKI-" 6 d)
          ( =cbeta                                 "CB" 5 d)
          ( =hanziku-1                         "HZK01-" 4 X)
          ( =hanziku-2                         "HZK02-" 4 X)
@@ -411,6 +415,8 @@
          ( =>gt-k                             "A-GT-K" 5 d)
          ( =>zinbun-oracle                    "A-ZOB-" 4 d)
          (==>ucs@bucs                          "BUCS+" 4 X)
+         ( =>ucs@hanyo-denshi                 "A-HDU+" 4 X)
+         ( =>ucs@hanyo-denshi              "A-HD-UCS+" 4 X)
          ( =>ucs@iso                           "A-IU+" 4 X)
          ( =>ucs@unicode                       "A-UU+" 4 X)
          ( =>ucs@jis                           "A-JU+" 4 X)
@@ -432,12 +438,6 @@
          (=>>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@iso                               "U-" 8 X)
          ( =ucs@unicode                          "UU+" 4 X)
          ( =ucs@unicode                          "UU-" 8 X)
@@ -478,8 +478,14 @@
          ( =shinjigen@1ed                      "SJG1-" 4 d)
          (==shinjigen@rev                    "R-SJG2-" 4 d)
          (==shinjigen@1ed                    "R-SJG1-" 4 d)
+         (=>>>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@cns                         "g2-CU+" 4 X)
          (=>>>ucs@cns                         "GI-CU+" 4 X)
+         (=>>>ucs@jis                         "g2-JU+" 4 X)
+         (=>>>ucs@jis                         "GI-JU+" 4 X)
          (=>>>ucs@jis/2004                  "g2-J04U+" 4 X)
          (=>>>ucs@jis/2004                  "GI-J04U+" 4 X)
          (=>>>ucs@jis/1990                  "g2-J90U+" 4 X)