From: Kenichi Handa <handa@m17n.org>
Date: Fri, 31 Jan 2003 06:10:06 +0000 (+0000)
Subject: (copy_category_entry): Fix for the case that RANGE is an integer.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~89
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f4b670efaf52034db7970dfdb7fc69629b56ae9f;p=emacs.git

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

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