(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 6b1d0309bb6ec45a73e65ba7524552944e3dad88..9ce2db1eca484f1388c6e75dd0a089dd333ea83b 100644 (file)
--- 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