From 3fa25192125cb5453893fa0aff5483b36edd58f3 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Wed, 20 Aug 2003 03:47:00 +0000
Subject: [PATCH] (put_char_table): Modify for inherited coded-charsets in
 XEmacs CHISE.

---
 src/chartab.c |   10 ++++++++++
 1 file changed, 10 insertions(+)

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
-- 
1.7.10.4