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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f4598a5e70efb27a666f25c24b8b498e585cf7b3..0b629637a790fce324f65c534a60f7453ea83cd9 100644 (file)
--- 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 0ab72d414e0f87660f24a08891b78a75d5da0ea2..9aa061be57bedefb13e4c3f8aaff22c42198c594 100644 (file)
--- 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))