From 9b5e7a5ca9af0b3f7d4649169499fd8303d24a57 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Wed, 28 May 2003 21:09:45 +0000 Subject: [PATCH] (describe-char): Use `char' instead of `(char-after)'. Fix display of unicode. --- lisp/ChangeLog | 5 +++++ lisp/descr-text.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c9255335c66..6f45cf2d882 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-05-28 Andreas Schwab + + * descr-text.el (describe-char): Use `char' instead of + `(char-after)'. Fix display of unicode. + 2003-05-28 Nick Roberts * gud.el (gud-gdb-goto-stackframe, gud-gdb-get-stackframe): Add diff --git a/lisp/descr-text.el b/lisp/descr-text.el index b5a8b0d7a96..229e1b57e3f 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -462,7 +462,7 @@ as well as widgets, buttons, overlays, and text properties." (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 @@ as well as widgets, buttons, overlays, and text properties." (char-to-string char)) char char char (if unicode - (format ", U+%04X" (encode-char char 'ucs)) + (format ", U+%04X" unicode) ""))) ("charset" ,(symbol-name charset) -- 2.39.5