Mercurial > emacs
changeset 89380:9320c2f4f351
(copy_category_entry): Fix for the case that RANGE is an integer.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 31 Jan 2003 06:10:06 +0000 |
| parents | e29bc0557851 |
| children | eaf61dbe44af |
| files | src/category.c |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/category.c Fri Jan 31 06:09:27 2003 +0000 +++ b/src/category.c Fri Jan 31 06:10:06 2003 +0000 @@ -195,8 +195,12 @@ copy_category_entry (table, range, val) Lisp_Object table, range, val; { - char_table_set_range (table, XINT (XCAR (range)), XINT (XCDR (range)), - Fcopy_sequence (val)); + val = Fcopy_sequence (val); + if (CONSP (range)) + char_table_set_range (table, XINT (XCAR (range)), XINT (XCDR (range)), + val); + else + char_table_set (table, XINT (range), val); } /* Return a copy of category table TABLE. We can't simply use the