X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=emu.el;h=8b91770c72828893363681cd3805c8d975b6db0c;hb=dfd2f7162fe8801265f2a62e66567e00ea0ffe97;hp=7ce3e44708765e81a0f609608a96b07d552f1118;hpb=24a998b8c391b1af8b9e28dc405603b4a28fdcca;p=elisp%2Fapel.git

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)
 			   ""))
 	      )