mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
`(char-after)'.  Fix display of unicode.
This commit is contained in:
Andreas Schwab 2003-05-28 21:09:45 +00:00
parent 6dc62ce17e
commit 9b5e7a5ca9
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

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

4
lisp/descr-text.el
View file

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