mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Tweak mouse-face highlighting of Occur buffers

Browse source 
* lisp/replace.el (occur-engine): Ensure that the mouse highlight
is done over the entire line (bug#27846).
This commit is contained in:
Lars Ingebrigtsen 2019-07-15 20:13:48 +02:00
parent b7946afe25
commit 6cd3b7a62b
1 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/replace.el
View file

@ -1751,7 +1751,7 @@ See also `multi-occur'."
(append
(when prefix-face
`(font-lock-face ,prefix-face))
`(occur-prefix t mouse-face (highlight)
`(occur-prefix t
;; Allow insertion of text
;; at the end of the prefix
;; (for Occur Edit mode).
@ -1764,23 +1764,26 @@ See also `multi-occur'."
;; We don't put `mouse-face' on the newline,
;; because that loses. And don't put it
;; on context lines to reduce flicker.
(propertize curstring 'mouse-face (list 'highlight)
(propertize curstring
'occur-target marker
'follow-link t
'help-echo
"mouse-2: go to this occurrence"))
(out-line
(concat
match-prefix
;; Add non-numeric prefix to all non-first lines
;; of multi-line matches.
;; Add non-numeric prefix to all non-first lines
;; of multi-line matches.
(concat
(replace-regexp-in-string
"\n"
(if prefix-face
(propertize
"\n :" 'font-lock-face prefix-face)
"\n :")
match-str)
;; Add mouse face in one section to
;; ensure the prefix and the string
;; get a contiguous highlight.
(propertize (concat match-prefix match-str)
'mouse-face 'highlight))
;; Add marker at eol, but no mouse props.
(propertize "\n" 'occur-target marker)))
(data