From e8e2a88cbdb21cc20840395319ee5b28ec306dc2 Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Fri, 24 May 2002 00:56:46 +0000 Subject: [PATCH] (occur-engine): Include all text properties except mouse-face on the newline at the end of occurences. --- lisp/replace.el | 9 +++++---- 1 file 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'." (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 -- 2.39.2