From: Kenichi Handa <handa@m17n.org>
Date: Tue, 23 Jan 2001 01:34:55 +0000 (+0000)
Subject: (Fset_char_table_default): Fix to make sub char-table correctly.
X-Git-Tag: emacs-pretest-21.0.96~155
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1e70fc65bc313da756c8dda63603d94d6d48d088;p=emacs.git

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

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;