# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1054156044 0
# Node ID 67502df21b9241a5048f01f1d41f5754add0c2c5
# Parent  95bf035b1d6e8e07b87ffee46e9f08034061d4c8
(describe-char): Use `char' instead of
`(char-after)'.  Fix display of unicode.

diff -r 95bf035b1d6e -r 67502df21b92 lisp/descr-text.el
--- 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)