From: Andreas Schwab <schwab@suse.de>
Date: Wed, 28 May 2003 21:09:45 +0000 (+0000)
Subject: (describe-char): Use `char' instead of
X-Git-Tag: ttn-vms-21-2-B4~9878
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9b5e7a5ca9af0b3f7d4649169499fd8303d24a57;p=emacs.git

(describe-char): Use `char' instead of
`(char-after)'.  Fix display of unicode.
---

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  <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 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)