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

[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 b8d3fd4..c57cd99 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 MORIOKA Tomohiko
+;;   2010, 2011, 2012 MORIOKA Tomohiko
 
 ;; This file is part of XEmacs.
 
@@ -343,6 +343,7 @@
          (=>>>jis-x0213-2                    "g2-JX2-" 4 X)
          (=>>>jis-x0213-1@2004               "g2-JX3-" 4 X)
          (=>>>jis-x0213-1@2004               "GI-JX3-" 4 X)
+         (=>>>adobe-japan1                   "g2-AJ1-" 5 d)
          (=>>>hanyo-denshi/jt              "g2-HD-JT-" 4 X)
          (=>>>gt                              "g2-GT-" 5 d)
          (=>>gt                                "G-GT-" 5 d)
@@ -361,9 +362,12 @@
          (=>>hanyo-denshi/jt                "G-HD-JT-" 4 X)
          (=>>hanyo-denshi/ks                "G-HD-KS-" 4 X)
          (=>>cbeta                              "G-CB" 5 d)
-         ( =>jis-x0208@usual                   "o-J0-" 4 X)
+         (=+>jis-x0208                         "o-J0-" 4 X)
+         (=+>jis-x0213-1                      "o-JX1-" 4 X)
+         (=+>jis-x0213-2                      "o-JX2-" 4 X)
          (=+>jis-x0208@1978                   "o-J78-" 4 X)
-         ( =>jis-x0213-2@usual                "o-JX2-" 4 X)
+         (=+>adobe-japan1                     "o-AJ1-" 5 d)
+         (=+>gt                                "o-GT-" 5 d)
          ( =>jis-x0208@1997                     "J97-" 4 X)
          ( =>jis-x0208@1997                    "A-J0-" 4 X)
          ( =>jis-x0213-1@2000                 "A-JX1-" 4 X)
@@ -376,10 +380,15 @@
          ( =>ucs@iso                           "A-IU+" 4 X)
          ( =>ucs@unicode                       "A-UU+" 4 X)
          ( =>ucs@jis                           "A-JU+" 4 X)
+         ( =>ucs@jis/2004                    "A-J04U+" 4 X)
          ( =>ucs@cns                           "A-CU+" 4 X)
+         ( =>ucs@ks                            "A-KU+" 4 X)
          (=+>ucs@iso                           "o-IU+" 4 X)
+         (=+>ucs@unicode                       "o-UU+" 4 X)
          (=+>ucs@jis                           "o-JU+" 4 X)
          (=+>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)
@@ -420,8 +429,10 @@
          ( =big5                                  "B-" 4 X)
          ( =big5                                 "C0-" 4 X)
          ( =big5-eten                            "BE-" 4 X)
-         ( =>big5-cdp                         "A-CDP-" 4 X)
-         ( =>daikanwa                           "A-M-" 5 d)
+         (=>>daikanwa                           "G-M-" 5 d)
+         (=>daikanwa                            "A-M-" 5 d)
+         (=>cns11643-7                         "A-C7-" 4 X)
+         (=>big5-cdp                          "A-CDP-" 4 X)
          ( =jis-x0208@1978/i1                 "J78i1-" 4 X)
          ( =shinjigen@rev                      "SJG2-" 4 d)
          ( =shinjigen@1ed                      "SJG1-" 4 d)