diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2001-06-17 11:23:17 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2001-06-17 11:23:17 +0000 |
| commit | 2ddf19dfe0387071066ac2f27ab2e96695083bac (patch) | |
| tree | fa46a47d0e97dd8107898951af340c2878b58862 /lisp/replace.el | |
| parent | 06d74900424e431f480045aafbf13573cea7020e (diff) | |
| download | emacs-2ddf19dfe0387071066ac2f27ab2e96695083bac.tar.gz emacs-2ddf19dfe0387071066ac2f27ab2e96695083bac.tar.bz2 emacs-2ddf19dfe0387071066ac2f27ab2e96695083bac.zip | |
(occur): Add help-echo to mouse-highlighted text.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 7 |
1 files 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) |