diff options
| author | Kenichi Handa <[email protected]> | 2003-01-31 06:10:06 +0000 |
|---|---|---|
| committer | Kenichi Handa <[email protected]> | 2003-01-31 06:10:06 +0000 |
| commit | f4b670efaf52034db7970dfdb7fc69629b56ae9f (patch) | |
| tree | 7ab172baef78e5a263877068135a25d80fb0f929 /src/category.c | |
| parent | d8d032b87c1b3a3ab366893d04b23b926fa7a52b (diff) | |
(copy_category_entry): Fix for the case that RANGE is an integer.
Diffstat (limited to 'src/category.c')
| -rw-r--r-- | src/category.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/category.c b/src/category.c index c31c1961e0..91b015d586 100644 --- a/src/category.c +++ b/src/category.c @@ -195,8 +195,12 @@ static void 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 |