Commit e8e2a88c authored by Colin Walters's avatar Colin Walters
Browse files

(occur-engine): Include all text properties except mouse-face on the

newline at the end of occurences.
parent b2346b2c
...@@ -824,10 +824,11 @@ See also `multi-occur'." ...@@ -824,10 +824,11 @@ See also `multi-occur'."
(unless (= nlines 0) (unless (= nlines 0)
(insert "-------\n")) (insert "-------\n"))
(add-text-properties (add-text-properties
beg (1- end) beg end
`(occur-target ,marker `(occur-target ,marker help-echo "mouse-2: go to this occurrence"))
mouse-face highlight help-echo ;; We don't put `mouse-face' on the newline,
"mouse-2: go to this occurrence"))))) ;; because that loses.
(add-text-properties beg (1- end) '(mouse-face highlight)))))
(goto-char endpt)) (goto-char endpt))
(if endpt (if endpt
(progn (progn
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment