Mercurial > emacs
changeset 45490:177f92e9f497
(occur-engine): Include all text properties except mouse-face on the
newline at the end of occurences.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Fri, 24 May 2002 00:56:46 +0000 |
| parents | acd9cfbcd177 |
| children | 798c9867ab0c |
| files | lisp/replace.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/replace.el Fri May 24 00:56:33 2002 +0000 +++ b/lisp/replace.el Fri May 24 00:56:46 2002 +0000 @@ -824,10 +824,11 @@ (unless (= nlines 0) (insert "-------\n")) (add-text-properties - beg (1- end) - `(occur-target ,marker - mouse-face highlight help-echo - "mouse-2: go to this occurrence"))))) + beg end + `(occur-target ,marker help-echo "mouse-2: go to this occurrence")) + ;; We don't put `mouse-face' on the newline, + ;; because that loses. + (add-text-properties beg (1- end) '(mouse-face highlight))))) (goto-char endpt)) (if endpt (progn