From 54e67cf7406f72c590c31714ccadf012e0203974 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 30 Sep 1999 04:18:36 +0000 Subject: [PATCH] (modify_lower_category_set): Set default value of TABLE correctly. --- src/category.c | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) 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++) { -- 2.39.5