mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

Make "C-x =" show display properties from overlays.

Browse Source 
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.
This commit is contained in:
Eli Zaretskii 2011-09-22 19:49:57 +03:00
parent 72258fe584
commit d4ef2b502c
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2011-09-22 Eli Zaretskii <eliz@gnu.org>
* 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 <cyd@stupidchicken.com>
* window.el (pop-to-buffer-same-window): New (reinstated) fun.

4
lisp/simple.el
View File

@ -1054,9 +1054,9 @@ in *Help* buffer. See also the command `describe-char'."
;; 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 "")