(=>ucs-itaiji-002): Use `=ucs-itaiji-002' instead of `=ucs' as its

[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 0c72edb..ea03d2c 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, 2015, 2016 MORIOKA Tomohiko
+;;   2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017 MORIOKA Tomohiko
 
 ;; This file is part of XEmacs.
 
@@ -433,6 +433,7 @@
          ( =ucs-var-002                      "U-v002+" 4 X)
          ( =ucs-var-003                      "U-v003+" 4 X)
          ( =ucs-var-004                      "U-v004+" 4 X)
+         ( =ucs-var-005                      "U-v005+" 4 X)
          ( =ucs-var-006                      "U-v006+" 4 X)
          ( =ucs-var-008                      "U-v008+" 4 X)
          ( =ucs-var-010                      "U-v010+" 4 X)
@@ -446,8 +447,10 @@
          ( =ucs-itaiji-009                   "U-i009+" 4 X)
          ( =ucs-itaiji-084                   "U-i084+" 4 X)
          ( =big5-cdp-itaiji-001            "CDP-i001-" 4 X)
+         (==big5-cdp-itaiji-001         "g2-CDP-i001-" 4 X)
          ( =big5-cdp-itaiji-002            "CDP-i002-" 4 X)
          ( =big5-cdp-itaiji-003            "CDP-i003-" 4 X)
+         ( =big5-cdp-var-002               "CDP-v002-" 4 X)
          ( =big5-cdp-var-003               "CDP-v003-" 4 X)
          ( =big5-cdp-var-004               "CDP-v004-" 4 X)
          ( =big5-cdp-var-005               "CDP-v005-" 4 X)
@@ -494,7 +497,6 @@
          (=>>cns11643-4                        "G-C4-" 4 X)
          (=>>big5-cdp                         "G-CDP-" 4 X)
          (=>>gt-k                             "G-GT-K" 5 d)
-         (=>>ruimoku-v6                      "G-RUI6-" 4 X)
          (=>>cbeta                              "G-CB" 5 d)
          (=+>jis-x0208                         "o-J0-" 4 X)
          (=+>jis-x0213-1                      "o-JX1-" 4 X)
@@ -521,9 +523,11 @@
          ( =>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@jis/2004                    "A-J04U+" 4 X)
+         ( =>ucs@component                  "A-compU+" 4 X)
+         ( =>ruimoku-v6                      "A-RUI6-" 4 X)
          (=+>ucs@iso                           "o-IU+" 4 X)
          (=+>ucs@unicode                       "o-UU+" 4 X)
          (=+>ucs@jis                           "o-JU+" 4 X)
@@ -592,6 +596,8 @@
          (=>cns11643-5                         "A-C5-" 4 X)
          (=>cns11643-7                         "A-C7-" 4 X)
          (=>big5-cdp                          "A-CDP-" 4 X)
+         (=>ucs-itaiji-001                 "A-U-i001+" 4 X)
+         (=>ucs-itaiji-002                 "A-U-i002+" 4 X)
          (=>big5-cdp-itaiji-001          "A-CDP-i001-" 4 X)
          ( =jis-x0208@1978/i1                 "J78i1-" 4 X)
          ( =shinjigen@rev                      "SJG2-" 4 d)