(Fset_char_table_default): Fix to make sub char-table correctly.

diff --git a/src/fns.c b/src/fns.c
index 4656c41a9f3a9e771d2dc14a1e375146611c861d..26a03f56ef18ababe962f5961e7aa59d274f12f7 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -2352,10 +2352,11 @@ See also the documentation of make-char.")
        XCHAR_TABLE (char_table)->contents[charset + 128] = value;
       return value;
     }
-  char_table = temp;
-  if (! SUB_CHAR_TABLE_P (char_table))
+  if (SUB_CHAR_TABLE_P (temp))
+    char_table = temp;
+  else
     char_table = (XCHAR_TABLE (char_table)->contents[charset + 128]
-           = make_sub_char_table (temp));
+                 = make_sub_char_table (temp));
   temp = XCHAR_TABLE (char_table)->contents[code1];
   if (SUB_CHAR_TABLE_P (temp))
     XCHAR_TABLE (temp)->defalt = value;