(coded-charset-entity-reference-alist): Add settings 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 6614a96..eef9c5b 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, 2022 MORIOKA Tomohiko
+;;   2021, 2022, 2023 MORIOKA Tomohiko
 
 ;; This file is part of XEmacs.
 
@@ -388,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)
@@ -400,9 +401,11 @@
          (==koseki                        "g2-KOSEKI-" 6 d)
          (==ucs-var-001                   "g2-U-v001+" 4 X)
          (==ucs-var-002                   "g2-U-v002+" 4 X)
+         (==ucs-var-003                   "g2-U-v003+" 4 X)
          (==ucs-itaiji-001                "g2-U-i001+" 4 X)
          (==ucs-itaiji-002                "g2-U-i002+" 4 X)
          (==ucs-itaiji-003                "g2-U-i003+" 4 X)
+         (==ucs-itaiji-004                "g2-U-i004+" 4 X)
          (==ucs-itaiji-005                "g2-U-i005+" 4 X)
          (==ucs-itaiji-006                "g2-U-i006+" 4 X)
          (==big5-cdp-itaiji-001         "g2-CDP-i001-" 4 X)
@@ -421,6 +424,7 @@
          (  =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)
+         (===chise-hdic-ktb-seal   "R-CHISE-HDIC-KTBS" 4 X)
          (===hng-jou                         "HNG001-" 5 d)
          (===hng-keg                         "HNG002-" 5 d)
          (===hng-dng                         "HNG003-" 5 d)
@@ -483,8 +487,10 @@
          (===hng-sts                         "HNG078-" 5 d)
          (===hng-kkd                         "HNG079-" 5 d)
          (=shuowen-jiguge                 "SW-JIGUGE-" 5 d)
+         (=>shuowen-jiguge              "A-SW-JIGUGE-" 5 d)
          (===shuowen-jiguge4             "SW-JIGUGE4-" 5 d)
          (===shuowen-jiguge5             "SW-JIGUGE5-" 5 d)
+         (===shuowen-jiguge-A30         "SW-JIGUGE30-" 5 d)
          ( =hanziku-1                         "HZK01-" 4 X)
          ( =hanziku-2                         "HZK02-" 4 X)
          ( =hanziku-3                         "HZK03-" 4 X)
@@ -663,12 +669,15 @@
          (=>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)
          (=>big5-cdp-itaiji-004          "A-CDP-i004-" 4 X)
+         (=>big5-cdp-itaiji-005          "A-CDP-i005-" 4 X)
+         (=>big5-cdp-itaiji-006          "A-CDP-i006-" 4 X)
          (=>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)