diff options
| author | Kenichi Handa | 1999-09-30 04:18:36 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1999-09-30 04:18:36 +0000 |
| commit | 54e67cf7406f72c590c31714ccadf012e0203974 (patch) | |
| tree | b46e94604507ae315c684a57c3f249eadf2328fa /src | |
| parent | 863c15b6e762fbe1da302fc9b6e3515f9f1769e6 (diff) | |
| download | emacs-54e67cf7406f72c590c31714ccadf012e0203974.tar.gz emacs-54e67cf7406f72c590c31714ccadf012e0203974.zip | |
(modify_lower_category_set): Set default value of
TABLE correctly.
Diffstat (limited to 'src')
| -rw-r--r-- | src/category.c | 11 |
1 files 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) | |||
| 314 | Lisp_Object val; | 314 | Lisp_Object val; |
| 315 | int i; | 315 | int i; |
| 316 | 316 | ||
| 317 | if (NILP (XCHAR_TABLE (table)->defalt)) | 317 | val = XCHAR_TABLE (table)->defalt; |
| 318 | { | 318 | if (!CATEGORY_SET_P (val)) |
| 319 | val = MAKE_CATEGORY_SET; | 319 | val = MAKE_CATEGORY_SET; |
| 320 | SET_CATEGORY_SET (val, category, set_value); | 320 | SET_CATEGORY_SET (val, category, set_value); |
| 321 | XCHAR_TABLE (table)->defalt = val; | 321 | XCHAR_TABLE (table)->defalt = val; |
| 322 | } | ||
| 323 | 322 | ||
| 324 | for (i = 32; i < SUB_CHAR_TABLE_ORDINARY_SLOTS; i++) | 323 | for (i = 32; i < SUB_CHAR_TABLE_ORDINARY_SLOTS; i++) |
| 325 | { | 324 | { |