diff options
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." | |||
| 749 | ;; Add text properties. The `occur' prop is used to | 749 | ;; Add text properties. The `occur' prop is used to |
| 750 | ;; store the marker of the matching text in the | 750 | ;; store the marker of the matching text in the |
| 751 | ;; source buffer. | 751 | ;; source buffer. |
| 752 | (put-text-property (marker-position text-beg) | 752 | (add-text-properties |
| 753 | (- (marker-position text-end) 1) | 753 | (marker-position text-beg) (- (marker-position text-end) 1) |
| 754 | 'mouse-face 'highlight) | 754 | '(mouse-face highlight |
| 755 | help-echo "mouse-2: go to this occurence")) | ||
| 755 | (put-text-property (marker-position text-beg) | 756 | (put-text-property (marker-position text-beg) |
| 756 | (marker-position text-end) | 757 | (marker-position text-end) |
| 757 | 'occur occur-marker) | 758 | 'occur occur-marker) |