From 2ddf19dfe0387071066ac2f27ab2e96695083bac Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 17 Jun 2001 11:23:17 +0000 Subject: [PATCH] (occur): Add help-echo to mouse-highlighted text. --- lisp/replace.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/replace.el b/lisp/replace.el index d40ff803464..cc817145ed2 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -749,9 +749,10 @@ the matching is case-sensitive." ;; Add text properties. The `occur' prop is used to ;; store the marker of the matching text in the ;; source buffer. - (put-text-property (marker-position text-beg) - (- (marker-position text-end) 1) - 'mouse-face 'highlight) + (add-text-properties + (marker-position text-beg) (- (marker-position text-end) 1) + '(mouse-face highlight + help-echo "mouse-2: go to this occurence")) (put-text-property (marker-position text-beg) (marker-position text-end) 'occur occur-marker) -- 2.39.2