From: tomo <tomo>
Date: Fri, 2 Jun 2000 07:22:39 +0000 (+0000)
Subject: (insert-char-data): If an element of `->decomposition' property is a
X-Git-Tag: r21-2-33-utf-2000-0_16~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a264143e8549b484db57b04966ca9f5bc6cc0c1a;p=chise%2Fxemacs-chise.git-

(insert-char-data): If an element of `->decomposition' property is a
character, print it as same as an integer.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 3b3a4ba..1e4604a 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -337,6 +337,8 @@
 			  (mapconcat (lambda (code)
 				       (cond ((symbolp code)
 					      (symbol-name code))
+					     ((characterp code)
+					      (format "%S" code))
 					     ((integerp code)
 					      (format "#x%04X" code))
 					     (t