Mercurial > emacs
changeset 51308:67502df21b92
(describe-char): Use `char' instead of
`(char-after)'. Fix display of unicode.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Wed, 28 May 2003 21:07:24 +0000 |
| parents | 95bf035b1d6e |
| children | 5b88e9170dbb |
| files | lisp/descr-text.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/descr-text.el Wed May 28 20:27:47 2003 +0000 +++ b/lisp/descr-text.el Wed May 28 21:07:24 2003 +0000 @@ -462,7 +462,7 @@ (char-to-string char)) char char char)))) - (if (or (< (char-after) 256) + (if (or (< char 256) (memq 'mule-utf-8 (find-coding-systems-region pos (1+ pos))) (get-char-property pos 'untranslated-utf-8)) (setq unicode (or (get-char-property pos 'untranslated-utf-8) @@ -474,7 +474,7 @@ (char-to-string char)) char char char (if unicode - (format ", U+%04X" (encode-char char 'ucs)) + (format ", U+%04X" unicode) ""))) ("charset" ,(symbol-name charset)