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

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

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 0e5006a..d6eed96 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -6,7 +6,7 @@
 ;; Copyright (C) 1995 Sun Microsystems.
 ;; Copyright (C) 1997, 1999, 2002, 2003, 2004, 2005, 2006, 2008, 2009,
 ;;   2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020,
-;;   2021 MORIOKA Tomohiko
+;;   2021, 2022 MORIOKA Tomohiko
 
 ;; This file is part of XEmacs.
 
@@ -281,6 +281,7 @@
          ( =hanyo-denshi/jt                   "HD-JT-" 4 X)
          ( =hanyo-denshi/ks                   "HD-KS-" 6 d)
          ( =hanyo-denshi/tk                   "HD-TK-" 8 d)
+         (=>hanyo-denshi/tk                 "A-HD-TK-" 8 d)
          (==hanyo-denshi/ja                "g2-HD-JA-" 4 X)
          (==hanyo-denshi/jb                "g2-HD-JB-" 4 X)
          (==hanyo-denshi/jc                "g2-HD-JC-" 4 X)
@@ -342,9 +343,10 @@
          ( =daikanwa@rev2                      "r2M-"  5 d)
          ( =daikanwa@rev1                      "r1M-"  5 d)
          ( =daijiten                           "DJT-"  5 d)
-         (==daikanwa/ho                       "g2-M-H" 4 d)
-         (==daikanwa/+p                       "g2-M-p" 5 d)
-         (==daikanwa                           "g2-M-" 5 d)
+         (==daikanwa/ho                      "g2-M-H"  4 d)
+         (==daikanwa/+p                      "g2-M-p"  5 d)
+         (==daikanwa/+2p                     "g2-M-2p" 5 d)
+         (==daikanwa                         "g2-M-"   5 d)
          (==daijiten                         "g2-DJT-" 5 d)
          (===daikanwa/ho                       "R-M-H" 4 d)
          (===daikanwa/+p                       "R-M-p" 5 d)
@@ -377,6 +379,8 @@
          ( =ucs-itaiji-010                   "U-i010+" 4 X)
          ( =ucs-itaiji-011                   "U-i011+" 4 X)
          ( =ucs-itaiji-012                   "U-i012+" 4 X)
+         ( =ucs-itaiji-014                   "U-i014+" 4 X)
+         ( =ucs-itaiji-016                   "U-i016+" 4 X)
          ( =ucs-itaiji-084                   "U-i084+" 4 X)
          ( =big5-cdp-var-001               "CDP-v001-" 4 X)
          ( =big5-cdp-var-002               "CDP-v002-" 4 X)
@@ -384,6 +388,7 @@
          ( =big5-cdp-var-004               "CDP-v004-" 4 X)
          ( =big5-cdp-var-005               "CDP-v005-" 4 X)
          ( =big5-cdp-var-007               "CDP-v007-" 4 X)
+         ( =big5-cdp-var-008               "CDP-v008-" 4 X)
          ( =big5-cdp-var-010               "CDP-v010-" 4 X)
          ( =big5-cdp-itaiji-001            "CDP-i001-" 4 X)
          ( =big5-cdp-itaiji-002            "CDP-i002-" 4 X)
@@ -411,6 +416,12 @@
          (=>cbeta                               "A-CB" 5 d)
          (==cbeta                              "g2-CB" 5 d)
          (===cbeta                              "R-CB" 5 d)
+         (===chise-hdic-tsj         "R-CHISE-HDIC-TSJ" 4 X)
+         (  =chise-hdic-tsj           "CHISE-HDIC-TSJ" 4 X)
+         (===chise-hdic-syp         "R-CHISE-HDIC-SYP" 4 X)
+         (  =chise-hdic-syp           "CHISE-HDIC-SYP" 4 X)
+         (===chise-hdic-ktb         "R-CHISE-HDIC-KTB" 4 X)
+         (  =chise-hdic-ktb           "CHISE-HDIC-KTB" 4 X)
          (===hng-jou                         "HNG001-" 5 d)
          (===hng-keg                         "HNG002-" 5 d)
          (===hng-dng                         "HNG003-" 5 d)
@@ -653,6 +664,9 @@
          (=>ucs-itaiji-009                 "A-U-i009+" 4 X)
          (=>ucs-itaiji-010                 "A-U-i010+" 4 X)
          (=>ucs-itaiji-011                 "A-U-i011+" 4 X)
+         (=>ucs-itaiji-012                 "A-U-i012+" 4 X)
+         (=>ucs-itaiji-014                 "A-U-i014+" 4 X)
+         (=>ucs-itaiji-016                 "A-U-i016+" 4 X)
          (=>big5-cdp-itaiji-001          "A-CDP-i001-" 4 X)
          (=>big5-cdp-itaiji-002          "A-CDP-i002-" 4 X)
          (=>big5-cdp-itaiji-003          "A-CDP-i003-" 4 X)
@@ -660,6 +674,7 @@
          (=>big5-cdp-var-001             "A-CDP-v001-" 4 X)
          (=>ucs-itaiji-001@iwds-1      "A-IWDSU-i001+" 4 X)
          (=>ucs-itaiji-002@iwds-1      "A-IWDSU-i002+" 4 X)
+         (=>ucs-itaiji-003@iwds-1      "A-IWDSU-i003+" 4 X)
          (=>ucs-itaiji-006@iwds-1      "A-IWDSU-i006+" 4 X)
          (=>big5-cdp@iwds-1               "A-IWDSCDP-" 4 X)
          (=>big5-cdp@component            "A-compCDP-" 4 X)