X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-coding.el;h=9196c1fd02c710f3297e94ef3335ef055ef2ec1a;hb=3809a096e53008752480f857d2126c4c974d7017;hp=b682de2cd46a5d855bfa04674ca4b018f240c32d;hpb=bf33df1f6aa37af45a198610fd61d20b56775b7e;p=chise%2Fxemacs-chise.git

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index b682de2..9196c1f 100644
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -181,6 +181,11 @@
    ))
 
 (when (featurep 'utf-2000)
+  (setq decomposition-feature-list
+	'(=decomposition
+	  =decomposition@cid
+	  =decomposition@hanyo-denshi))
+
   (setq coded-charset-entity-reference-alist
 	'(((=adobe-japan1-base	. isolated)    "I-AJ1-" 5 d)
 	  ((=adobe-japan1-6	. isolated)    "I-AJ1-" 5 d)
@@ -329,6 +334,9 @@
 	  ( arabic-2-column                "MULE-ARB2-" 2 X)
 	  ( arabic-digit		   "MULE-ARBD-" 2 X)
 	  ( ipa                             "MULE-IPA-" 2 X)
+	  (=>>>jis-x0208		       "GI-J0-" 4 X)
+	  (=>>>jis-x0213-1		      "GI-JX1-" 4 X)
+	  (=>>>jis-x0213-1@2004		      "GI-JX3-" 4 X)
 	  (=>>gt				"G-GT-" 5 d)
 	  (=>>gt				 "aGT-" 5 d)
 	  (=>>jis-x0208				"G-J0-" 4 X)
@@ -343,6 +351,7 @@
 	  (=>>gt-k			       "G-GT-K" 5 d)
 	  (=>>ruimoku-v6		      "G-RUI6-" 4 X)
 	  (=>>hanyo-denshi/ft		     "G-HD-FT-" 4 X)
+	  (=>>hanyo-denshi/jt		     "G-HD-JT-" 4 X)
 	  (=>>hanyo-denshi/ks		     "G-HD-KS-" 4 X)
 	  ( =>jis-x0208@usual			"o-J0-" 4 X)
 	  ( =>jis-x0208@1997			 "J97-" 4 X)
@@ -352,6 +361,7 @@
 	  ( =>jis-x0213-2		       "A-JX2-" 4 X)
 	  ( =>jis-x0213-1@2004		       "A-JX3-" 4 X)
 	  ( =>gt				"A-GT-" 5 d)
+	  ( =>gt-k			       "A-GT-K" 5 d)
 	  ( =>zinbun-oracle		       "A-ZOB-" 4 d)
 	  (==>ucs@bucs				"BUCS+" 4 X)
 	  ( =>ucs@iso				"A-IU+" 4 X)
@@ -367,6 +377,9 @@
 	  (=>>ucs@jis/2004		      "G-J04U+" 4 X)
 	  (=>>ucs@jis/2000		      "G-J00U+" 4 X)
 	  (=>>ucs@jis/1990		      "G-J90U+" 4 X)
+	  (=>>>ucs@iso			       "GI-IU+" 4 X)
+	  (=>>>ucs@unicode		       "GI-UU+" 4 X)
+	  (=>>>ucs@jis			       "GI-JU+" 4 X)
 	  ( =ucs@iso				   "U-" 8 X)
 	  ( =ucs@unicode			  "UU+" 4 X)
 	  ( =ucs@unicode			  "UU-" 8 X)