From: Kenichi Handa <handa@m17n.org>
Date: Thu, 30 Sep 1999 04:18:36 +0000 (+0000)
Subject: (modify_lower_category_set): Set default value of
X-Git-Tag: emacs-pretest-21.0.90~6607
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=54e67cf7406f72c590c31714ccadf012e0203974;p=emacs.git

(modify_lower_category_set): Set default value of
TABLE correctly.
---

diff --git a/src/category.c b/src/category.c
index 99f8a5a3bf2..eb1e8c9afaf 100644
--- a/src/category.c
+++ b/src/category.c
@@ -314,12 +314,11 @@ modify_lower_category_set (table, category, set_value)
   Lisp_Object val;
   int i;
 
-  if (NILP (XCHAR_TABLE (table)->defalt))
-    {
-      val = MAKE_CATEGORY_SET;
-      SET_CATEGORY_SET (val, category, set_value);
-      XCHAR_TABLE (table)->defalt = val;
-    }
+  val = XCHAR_TABLE (table)->defalt;
+  if (!CATEGORY_SET_P (val))
+    val = MAKE_CATEGORY_SET;
+  SET_CATEGORY_SET (val, category, set_value);
+  XCHAR_TABLE (table)->defalt = val;
 
   for (i = 32; i < SUB_CHAR_TABLE_ORDINARY_SLOTS; i++)
     {