[Emacs-diffs] /srv/bzr/emacs/trunk r105878: Make "C-x =" show display properties from overlays.

[Eli Zaretskii]

------------------------------------------------------------
revno: 105878
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Thu 2011-09-22 19:49:57 +0300
message:
  Make "C-x =" show display properties from overlays.
  
   lisp/simple.el (what-cursor-position): Use get-char-property-change
   and next-single-char-property-change, to be able to show display
   properties that come from overlays as well as text properties.
modified:
  lisp/ChangeLog
  lisp/simple.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-09-22 16:15:52 +0000
+++ b/lisp/ChangeLog    2011-09-22 16:49:57 +0000
@@ -1,3 +1,9 @@
+2011-09-22  Eli Zaretskii  <address@hidden>
+
+       * simple.el (what-cursor-position): Use get-char-property-change
+       and next-single-char-property-change, to be able to show display
+       properties that come from overlays as well as text properties.
+
 2011-09-22  Chong Yidong  <address@hidden>
 
        * window.el (pop-to-buffer-same-window): New (reinstated) fun.

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2011-09-16 17:15:16 +0000
+++ b/lisp/simple.el    2011-09-22 16:49:57 +0000
@@ -1054,9 +1054,9 @@
          ;; Check if the character is displayed with some `display'
          ;; text property.  In that case, set under-display to the
          ;; buffer substring covered by that property.
-         (setq display-prop (get-text-property pos 'display))
+         (setq display-prop (get-char-property pos 'display))
          (if display-prop
-             (let ((to (or (next-single-property-change pos 'display)
+             (let ((to (or (next-single-char-property-change pos 'display)
                            (point-max))))
                (if (< to (+ pos 4))
                    (setq under-display "")