From f4b670efaf52034db7970dfdb7fc69629b56ae9f Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 31 Jan 2003 06:10:06 +0000 Subject: [PATCH] (copy_category_entry): Fix for the case that RANGE is an integer. --- src/category.c | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/category.c b/src/category.c index c31c1961e04..91b015d5868 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 -- 2.39.5