From: Colin Walters <walters@gnu.org>
Date: Fri, 24 May 2002 00:56:46 +0000 (+0000)
Subject: (occur-engine): Include all text properties except mouse-face on the
X-Git-Tag: ttn-vms-21-2-B4~14897
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e8e2a88cbdb21cc20840395319ee5b28ec306dc2;p=emacs.git

(occur-engine): Include all text properties except mouse-face on the
newline at the end of occurences.
---

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