diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2011-09-22 19:49:57 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2011-09-22 19:49:57 +0300 |
| commit | d4ef2b502ceec1fce8b839ececcb7e781a237880 (patch) | |
| tree | d8310d287292ea5a1db02bdae00e25849e733d63 /lisp/simple.el | |
| parent | 72258fe58401a16ab2ff671601c6d6068eb8b799 (diff) | |
| download | emacs-d4ef2b502ceec1fce8b839ececcb7e781a237880.tar.gz | |
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.
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 4db0aae25ad..3cd46bf284c 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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 "") |