mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-14 03:37:38 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/hl-line.el: Various fixes (bug#64993).

Browse source 
(hl-line-face): Move 'global-hl-line-overlay' updates
to the loop over buffers since it's a buffer-local variable.
(global-hl-line-maybe-unhighlight): Remove obsolete overlays
from 'global-hl-line-overlays'.
This commit is contained in:
Juri Linkov 2025-09-17 19:20:18 +03:00
parent de4ca2bdb1
commit eacaae8123
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/hl-line.el
View file

@ -88,9 +88,9 @@ when `global-hl-line-sticky-flag' is non-nil.")
(dolist (buffer (buffer-list))
(with-current-buffer buffer
(when (overlayp hl-line-overlay)
(overlay-put hl-line-overlay 'face hl-line-face))))
(when (overlayp global-hl-line-overlay)
(overlay-put global-hl-line-overlay 'face hl-line-face))))
(overlay-put hl-line-overlay 'face hl-line-face))
(when (overlayp global-hl-line-overlay)
(overlay-put global-hl-line-overlay 'face hl-line-face))))))
(defcustom hl-line-sticky-flag t
"Non-nil means the HL-Line mode highlight appears in all windows.
@ -310,10 +310,12 @@ on `post-command-hook'."
"Maybe deactivate the Global-Hl-Line overlay on the current line.
Specifically, when `global-hl-line-sticky-flag' is nil deactivate
all such overlays in all buffers except the current one."
(setq global-hl-line-overlays
(seq-remove (lambda (ov) (not (overlay-buffer ov)))
global-hl-line-overlays))
(mapc (lambda (ov)
(let ((ovb (overlay-buffer ov)))
(when (and (not global-hl-line-sticky-flag)
(bufferp ovb)
(not (eq ovb (current-buffer)))
(not (minibufferp)))
(with-current-buffer ovb