diff options
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 6b1d0309bb6..9ce2db1eca4 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -824,10 +824,11 @@ See also `multi-occur'." | |||
| 824 | (unless (= nlines 0) | 824 | (unless (= nlines 0) |
| 825 | (insert "-------\n")) | 825 | (insert "-------\n")) |
| 826 | (add-text-properties | 826 | (add-text-properties |
| 827 | beg (1- end) | 827 | beg end |
| 828 | `(occur-target ,marker | 828 | `(occur-target ,marker help-echo "mouse-2: go to this occurrence")) |
| 829 | mouse-face highlight help-echo | 829 | ;; We don't put `mouse-face' on the newline, |
| 830 | "mouse-2: go to this occurrence"))))) | 830 | ;; because that loses. |
| 831 | (add-text-properties beg (1- end) '(mouse-face highlight))))) | ||
| 831 | (goto-char endpt)) | 832 | (goto-char endpt)) |
| 832 | (if endpt | 833 | (if endpt |
| 833 | (progn | 834 | (progn |