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

diff --git a/src/category.c b/src/category.c
index c31c1961e048819989d68d55e629c3214bae7658..91b015d58687063d491b69cae68b929008c3c40b 100644 (file)
--- 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