# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1043993406 0
# Node ID 9320c2f4f351a65e257bd7712da91cf6dea6a761
# Parent  e29bc0557851d7be855dff0cb75b554bdd88d184
(copy_category_entry): Fix for the case that RANGE is an integer.

diff -r e29bc0557851 -r 9320c2f4f351 src/category.c
--- a/src/category.c	Fri Jan 31 06:09:27 2003 +0000
+++ b/src/category.c	Fri Jan 31 06:10:06 2003 +0000
@@ -195,8 +195,12 @@
 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