X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/8f2e6673597e952fc92191f21fe554a5f51242dc..3187ba1c4f28d6d24a4a843ca0166ec868486fc8:/src/fontset.c

diff --git a/src/fontset.c b/src/fontset.c
index c1de33fcf0..828b188e6a 100644
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -353,7 +353,11 @@ fontset_set (fontset, c, newelt)
   for (i = 0; code[i] > 0; i++)
     {
       if (!SUB_CHAR_TABLE_P (*elt))
-	*elt = make_sub_char_table (*elt);
+	{
+	  Lisp_Object val = *elt;
+	  *elt = make_sub_char_table (Qnil);
+	  XCHAR_TABLE (*elt)->defalt = val;
+	}
       elt = &XCHAR_TABLE (*elt)->contents[code[i]];
     }
   if (SUB_CHAR_TABLE_P (*elt))