X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-coding.el;h=eef9c5b14303a3df3270952c459fbaa4db301f7b;hb=10be20d7d5d9d4fd3507de4935e7e175fd0d4f71;hp=ff51ce9240e663d22a8f873a44baff34014de678;hpb=8f488716b1696fcfa0de0e2e1423ffcb29ac0e6b;p=chise%2Fxemacs-chise.git

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index ff51ce9..eef9c5b 100644
--- 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)
@@ -419,6 +422,9 @@
 	  (  =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)
+	  (===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)
@@ -481,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)
@@ -661,11 +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)