mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-01 19:30:45 -08:00
Code Issues Projects Releases Wiki Activity

(copy_category_entry): Fix for the case that RANGE is an integer.

Browse source
This commit is contained in:
Kenichi Handa 2003-01-31 06:10:06 +00:00
parent d8d032b87c
commit f4b670efaf
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/category.c
View file

@ -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