Commit f4b670ef authored by Kenichi Handa's avatar Kenichi Handa

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

parent d8d032b8
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment