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

1 files changed, 4 insertions, 3 deletions

diff --git a/src/fns.c b/src/fns.c
index 4656c41a9f3..26a03f56ef1 100644
--- 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;