Mercurial > emacs

changeset 18186:8704dc91a5b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Faset): Inherit default value correctly while creating sub char table.
author Kenichi Handa <handa@m17n.org>
date Mon, 09 Jun 1997 13:00:07 +0000
parents d84dde1fad16
children 14058b650d98
files src/data.c
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/data.c	Mon Jun 09 12:59:52 1997 +0000
+++ b/src/data.c	Mon Jun 09 13:00:07 1997 +0000
@@ -1701,9 +1701,12 @@
 		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;
 	}