mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-21 13:31:37 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
newline at the end of occurences.
This commit is contained in:
Colin Walters 2002-05-24 00:56:46 +00:00
parent b2346b2c52
commit e8e2a88cbd
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/replace.el
View file

@ -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