From: tomo <tomo>
Date: Sat, 24 Nov 2001 17:37:02 +0000 (+0000)
Subject: (what-char-definition): Use `decode-char' instead of `make-char' to
X-Git-Tag: r21-2-43-utf-2000-0_18-3~299
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6498a95be33eaca429ad5309cd37a42a698bb5e1;p=chise%2Fxemacs-chise.git

(what-char-definition): Use `decode-char' instead of `make-char' to
display comment for builtin character.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 50996cb..7cd5bf6 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -958,7 +958,13 @@
 	  (insert-char-data-with-variant char 'printable)
 	  (unless (char-attribute-alist char)
 	    (insert (format ";; = %c\n"
-			    (apply #'make-char (split-char char)))))
+			    (let* ((rest (split-char char))
+				   (ccs (pop rest))
+				   (code (pop rest)))
+			      (while rest
+				(setq code (logior (lsh code 8)
+						   (pop rest))))
+			      (decode-char ccs code)))))
           ;; (char-db-update-comment)
 	  (set-buffer-modified-p nil)
 	  (view-mode the-buf (lambda (buf)