Mercurial > emacs
changeset 38080:be5236e1efc7
(occur): Add help-echo to mouse-highlighted text.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 17 Jun 2001 11:23:17 +0000 |
| parents | 7563c3b44130 |
| children | fecdcc18b027 |
| files | lisp/replace.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/replace.el Sun Jun 17 11:22:35 2001 +0000 +++ b/lisp/replace.el Sun Jun 17 11:23:17 2001 +0000 @@ -749,9 +749,10 @@ ;; 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)