Mercurial > emacs
changeset 89963:c355a39d02c5
(describe-char): Fix for the case CODE is a cons of integers.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 17 Aug 2004 12:12:57 +0000 |
| parents | 77df4a7f419a |
| children | 6491b455697c |
| files | lisp/descr-text.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/descr-text.el Tue Aug 17 11:49:18 2004 +0000 +++ b/lisp/descr-text.el Tue Aug 17 12:12:57 2004 +0000 @@ -494,7 +494,9 @@ ,(symbol-name charset) ,(format "(%s)" (charset-description charset))) ("code point" - ,(format (if (< code 256) "0x%02X" "0x%04X") code)) + ,(if (integerp code) + (format (if (< code 256) "0x%02X" "0x%04X") code) + (format "0x%04X%04X" (car code) (cdr code)))) ("syntax" ,(let ((syntax (syntax-after pos))) (with-temp-buffer