(describe-char): Use `char' instead of

`(char-after)'.  Fix display of unicode.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c9255335c665168cce282d1287bcdeaecdd67d30..6f45cf2d882bfecfcad21e76d6b3ce63f454531f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-28  Andreas Schwab  <schwab@suse.de>
+
+       * descr-text.el (describe-char): Use `char' instead of
+       `(char-after)'.  Fix display of unicode.
+
 2003-05-28  Nick Roberts  <nick@nick.uklinux.net>
 
        * gud.el (gud-gdb-goto-stackframe, gud-gdb-get-stackframe): Add

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index b5a8b0d7a96ac056803a890ff2600ad1d63b9e51..229e1b57e3f5c87ea82197ad00fd5266f88b8a1f 100644 (file)
--- 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)