From 6498a95be33eaca429ad5309cd37a42a698bb5e1 Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 24 Nov 2001 17:37:02 +0000 Subject: [PATCH] (what-char-definition): Use `decode-char' instead of `make-char' to display comment for builtin character. --- lisp/utf-2000/char-db-util.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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) -- 1.7.10.4