diff options
author | Colin Walters <[email protected]> | 2002-05-24 00:56:46 +0000 |
---|---|---|
committer | Colin Walters <[email protected]> | 2002-05-24 00:56:46 +0000 |
commit | e8e2a88cbdb21cc20840395319ee5b28ec306dc2 (patch) | |
tree | 5038ae3a9199e11c97f4d4f6deca5e9423fe286e | |
parent | b2346b2c522a7170488056ed11004e76dd941086 (diff) |
(occur-engine): Include all text properties except mouse-face on the
newline at the end of occurences.
-rw-r--r-- | lisp/replace.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 6b1d0309bb..9ce2db1eca 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 |