Mercurial > emacs

diff lisp/descr-text.el @ 51308:67502df21b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 7192dc1bfcf4
children 695cf19ef79e
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)