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

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

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 5f24b35..412c8fb 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -5,7 +5,8 @@
 ;; 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, 2017, 2018, 2019 MORIOKA Tomohiko
+;;   2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020,
+;;   2021 MORIOKA Tomohiko
 
 ;; This file is part of XEmacs.
 
@@ -361,6 +362,7 @@
          ( =ucs-var-004                      "U-v004+" 4 X)
          ( =ucs-var-005                      "U-v005+" 4 X)
          ( =ucs-var-006                      "U-v006+" 4 X)
+         ( =ucs-var-007                      "U-v007+" 4 X)
          ( =ucs-var-008                      "U-v008+" 4 X)
          ( =ucs-var-010                      "U-v010+" 4 X)
          ( =ucs-itaiji-001                   "U-i001+" 4 X)
@@ -381,14 +383,18 @@
          ( =big5-cdp-var-003               "CDP-v003-" 4 X)
          ( =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-010               "CDP-v010-" 4 X)
          ( =big5-cdp-itaiji-001            "CDP-i001-" 4 X)
          ( =big5-cdp-itaiji-002            "CDP-i002-" 4 X)
          ( =big5-cdp-itaiji-003            "CDP-i003-" 4 X)
+         ( =big5-cdp-itaiji-004            "CDP-i004-" 4 X)
+         ( =big5-cdp-itaiji-005            "CDP-i005-" 4 X)
          ( =jis-x0208@1978/1pr                  "J78-" 4 X)
          ( =gt-k                                "GT-K" 5 d)
          (==jis-x0208@1983                   "g2-J83-" 4 X)
          (==koseki                        "g2-KOSEKI-" 6 d)
+         (==ucs-var-001                   "g2-U-v001+" 4 X)
          (==ucs-var-002                   "g2-U-v002+" 4 X)
          (==ucs-itaiji-001                "g2-U-i001+" 4 X)
          (==ucs-itaiji-002                "g2-U-i002+" 4 X)
@@ -465,6 +471,7 @@
          (===hng-smk                         "HNG074-" 5 d)
          (===hng-sgs                         "HNG077-" 5 d)
          (===hng-sts                         "HNG078-" 5 d)
+         (===hng-kkd                         "HNG079-" 5 d)
          (=shuowen-jiguge                 "SW-JIGUGE-" 5 d)
          (===shuowen-jiguge4             "SW-JIGUGE4-" 5 d)
          (===shuowen-jiguge5             "SW-JIGUGE5-" 5 d)
@@ -530,6 +537,7 @@
          (=>>big5-cdp                         "G-CDP-" 4 X)
          (=>>gt-k                             "G-GT-K" 5 d)
          (=>>cbeta                              "G-CB" 5 d)
+         (=>>ruimoku-v6                      "G-RUI6-" 4 X)
          (=+>jis-x0208                         "o-J0-" 4 X)
          (=+>jis-x0213-1                      "o-JX1-" 4 X)
          (=+>jis-x0213-2                      "o-JX2-" 4 X)
@@ -633,6 +641,7 @@
          (=>cns11643-5                         "A-C5-" 4 X)
          (=>cns11643-7                         "A-C7-" 4 X)
          (=>big5-cdp                          "A-CDP-" 4 X)
+         (=+>ucs-var-003                   "o-U-v003+" 4 X)
          (=>ucs-itaiji-001                 "A-U-i001+" 4 X)
          (=>ucs-itaiji-002                 "A-U-i002+" 4 X)
          (=>ucs-itaiji-003                 "A-U-i003+" 4 X)
@@ -640,13 +649,17 @@
          (=>ucs-itaiji-005                 "A-U-i005+" 4 X)
          (=>ucs-itaiji-006                 "A-U-i006+" 4 X)
          (=>ucs-itaiji-007                 "A-U-i007+" 4 X)
+         (=>ucs-itaiji-008                 "A-U-i008+" 4 X)
          (=>ucs-itaiji-009                 "A-U-i009+" 4 X)
          (=>ucs-itaiji-010                 "A-U-i010+" 4 X)
          (=>ucs-itaiji-011                 "A-U-i011+" 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-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)
          (=>big5-cdp@iwds-1               "A-IWDSCDP-" 4 X)
          (=>big5-cdp@component            "A-compCDP-" 4 X)
          (=>big5-cdp@cognate               "A-cgnCDP-" 4 X)