From: Kenichi Handa <handa@m17n.org>
Date: Mon, 9 Jun 1997 13:00:07 +0000 (+0000)
Subject: (Faset): Inherit default value correctly while creating
X-Git-Tag: emacs-20.1~1760
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8823c61e4a5c9f0e175474a1d9c91aabdfdeeab;p=emacs.git

(Faset): Inherit default value correctly while creating
sub char table.
---

diff --git a/src/data.c b/src/data.c
index 9a0788ae719..5fb57407cba 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1701,9 +1701,12 @@ IDX starts at 0.")
 		array = val;
 	      else
 		/* VAL is a leaf.  Create a sub char table with the
-		   default value VAL here and look into it.  */
+		   default value VAL or XCHAR_TABLE (array)->defalt
+		   and look into it.  */
 		array = (XCHAR_TABLE (array)->contents[code[i]]
-			 = make_sub_char_table (val));
+			 = make_sub_char_table (NILP (val)
+						? XCHAR_TABLE (array)->defalt
+						: val));
 	    }
 	  XCHAR_TABLE (array)->contents[code[i]] = newelt;
 	}