[Emacs-diffs] /srv/bzr/emacs/trunk r106974: Fix character display by "C-u C-x =" in presence of display properties.

[Eli Zaretskii]

------------------------------------------------------------
revno: 106974
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Sat 2012-01-28 11:52:24 +0200
message:
  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 <address@hidden>.
   See http://lists.gnu.org/archive/html/emacs-devel/2012-01/msg00760.html
   for the reasons.
modified:
  lisp/ChangeLog
  lisp/descr-text.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-01-28 09:50:52 +0000
+++ b/lisp/ChangeLog    2012-01-28 09:52:24 +0000
@@ -1,3 +1,10 @@
+2012-01-28  Eli Zaretskii  <address@hidden>
+
+       * descr-text.el (describe-char): Show the raw character, not only
+       its display form at POS.  Suggested by Kenichi Handa <address@hidden>.
+       See http://lists.gnu.org/archive/html/emacs-devel/2012-01/msg00760.html
+       for the reasons.
+
 2012-01-28  Phil Hagelberg  <address@hidden>
 
        * emacs-lisp/package.el (package-install): Run

=== modified file 'lisp/descr-text.el'
--- a/lisp/descr-text.el        2012-01-19 07:21:25 +0000
+++ b/lisp/descr-text.el        2012-01-28 09:52:24 +0000
@@ -512,7 +512,8 @@
 
       (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))