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

1 files 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