From d4ef2b502ceec1fce8b839ececcb7e781a237880 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 22 Sep 2011 19:49:57 +0300 Subject: [PATCH] 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. --- lisp/ChangeLog | 6 ++++++ lisp/simple.el | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8017e711203..cfa2035db91 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2011-09-22 Eli Zaretskii + + * 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 * window.el (pop-to-buffer-same-window): New (reinstated) fun. 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 "") -- 2.39.5