diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2012-01-28 11:52:24 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2012-01-28 11:52:24 +0200 |
| commit | e0da685ab9eccd5a4e2c5114c980b4ac34ec7675 (patch) | |
| tree | 99ba26f823153457e161f2d6fd9f412c34aa1724 | |
| parent | 80ed530414e6e2a3812e33e06b3ee1aab00700aa (diff) | |
| download | emacs-e0da685ab9eccd5a4e2c5114c980b4ac34ec7675.tar.gz | |
Fix character display by "C-u C-x =" in presence of display properties.
lisp/descr-text.el (describe-char): Show the raw character, not only
its display form at POS. Suggested by Kenichi Handa <handa@m17n.org>.
See http://lists.gnu.org/archive/html/emacs-devel/2012-01/msg00760.html
for the reasons.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/descr-text.el | 3 |
2 files changed, 9 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f4598a5e70e..0b629637a79 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2012-01-28 Eli Zaretskii <eliz@gnu.org> + + * descr-text.el (describe-char): Show the raw character, not only + its display form at POS. Suggested by Kenichi Handa <handa@m17n.org>. + See http://lists.gnu.org/archive/html/emacs-devel/2012-01/msg00760.html + for the reasons. + 2012-01-28 Phil Hagelberg <phil@hagelb.org> * emacs-lisp/package.el (package-install): Run diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 0ab72d414e0..9aa061be57b 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -512,7 +512,8 @@ as well as widgets, buttons, overlays, and text properties." (setq item-list `(("character" - ,(format "%s (%d, #o%o, #x%x)" + ,(format "%s (displayed as %s) (codepoint %d, #o%o, #x%x)" + char-description (apply 'propertize char-description (text-properties-at pos)) char char char)) |