mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(hl-line-overlay): Don't make it buffer-local.

Browse source 
(hl-line-highlight): Specify buffer when moving overlay.
This commit is contained in:
Dave Love 2000-09-22 17:16:31 +00:00
parent 0bca89401a
commit e6f6401af4
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/hl-line.el
View file

@ -60,20 +60,19 @@
:group 'hl-line)
(defvar hl-line-overlay nil)
(make-variable-buffer-local 'hl-line-overlay)
(put 'hl-line-overlay 'permanent-local t)
(defun hl-line-highlight ()
"Active the Hl-Line overlay on the current line in the current window.
\(Unless it's a minibuffer window.)"
(when hl-line-mode ; Could be made buffer-local.
(unless (window-minibuffer-p (selected-window)) ; silly in minibuffer
(unless hl-line-overlay ; new overlay for this buffer
(unless hl-line-overlay
(setq hl-line-overlay (make-overlay 1 1)) ; to be moved
(overlay-put hl-line-overlay 'face hl-line-face))
(overlay-put hl-line-overlay 'window (selected-window))
(move-overlay hl-line-overlay
(line-beginning-position) (1+ (line-end-position))))))
(line-beginning-position) (1+ (line-end-position))
(current-buffer)))))
(defun hl-line-unhighlight ()
"Deactivate the Hl-Line overlay on the current line in the current window."