From: tomo <tomo>
Date: Wed, 20 Aug 2003 03:47:00 +0000 (+0000)
Subject: (put_char_table): Modify for inherited coded-charsets in XEmacs CHISE.
X-Git-Tag: r21-4-12-chise-0_21-pre4-for-libchise-b1-word-fix~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3fa25192125cb5453893fa0aff5483b36edd58f3;p=chise%2Fxemacs-chise.git-

(put_char_table): Modify for inherited coded-charsets in XEmacs CHISE.
---

diff --git a/src/chartab.c b/src/chartab.c
index 6f7df43..cd96c92 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -2411,11 +2411,21 @@ put_char_table (Lisp_Char_Table *ct, struct chartab_range *range,
 	*/
 	if ( CHAR_TABLEP (encoding_table) )
 	  {
+	    Lisp_Object mother = XCHARSET_MOTHER (range->charset);
+
 	    char_attribute_table_to_put = ct;
 	    value_to_put = val;
 	    Fmap_char_attribute (Qput_char_table_map_function,
 				 XCHAR_TABLE_NAME (encoding_table),
 				 Qnil);
+	    if ( CHARSETP (mother) )
+	      {
+		struct chartab_range r;
+
+		r.type = CHARTAB_RANGE_CHARSET;
+		r.charset = mother;
+		put_char_table (ct, &r, val);
+	      }
 	  }
 #if 0
 	else