From: yamaoka <yamaoka>
Date: Fri, 23 Feb 2001 01:03:32 +0000 (+0000)
Subject: * emu.el (char-category for XEmacs): Don't use `int-char' when the function
X-Git-Tag: apel-10_3-1~23
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a28bd2cf8a18a82d6bc79d107c362faf46e3817c;p=elisp%2Fapel.git

* emu.el (char-category for XEmacs): Don't use `int-char' when the function
 `char-category-list' returns a list of characters.
---

diff --git a/ChangeLog b/ChangeLog
index 7e50eef..b21926d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-23  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* emu.el (char-category for XEmacs): Don't use `int-char' when the
+	function `char-category-list' returns a list of characters.
+
 2001-02-01  NAKAJIMA Mikio  <minakaji@osaka.email.ne.jp>
 
 	* README.ja: Updated as to MAKEIT.BAT and MAKE1.BAT.
diff --git a/emu.el b/emu.el
index 7ce3e44..8b91770 100644
--- a/emu.el
+++ b/emu.el
@@ -98,7 +98,12 @@
 CHAR can be any multilingual character
 TABLE defaults to the current buffer's category table."
 		(mapconcat (lambda (chr)
-			     (char-to-string (int-char chr)))
+			     (if (integerp chr)
+				 (char-to-string (int-char chr))
+			       (char-to-string chr)))
+			   ;; `char-category-list' returns a list of
+			   ;; characters in XEmacs 21.2.25 and later,
+			   ;; otherwise integers.
 			   (char-category-list character)
 			   ""))
 	      )