Mercurial > emacs
changeset 25835:265202db376b
(modify_lower_category_set): Set default value of
TABLE correctly.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 30 Sep 1999 04:18:36 +0000 |
| parents | 61793eeb4b68 |
| children | f540e1508f05 |
| files | src/category.c |
| diffstat | 1 files changed, 5 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/category.c Wed Sep 29 22:08:57 1999 +0000 +++ b/src/category.c Thu Sep 30 04:18:36 1999 +0000 @@ -314,12 +314,11 @@ 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++) {