diff options
| author | Dave Love <fx@gnu.org> | 2000-09-22 17:16:31 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-09-22 17:16:31 +0000 |
| commit | e6f6401af4a766f1810b2854f87268bb7d955635 (patch) | |
| tree | 3eb0f7807634ef4ac9e93262a5358a7d19069cd5 /lisp/hl-line.el | |
| parent | 0bca89401acf4c0978be2fa72685b5ce1f319255 (diff) | |
| download | emacs-e6f6401af4a766f1810b2854f87268bb7d955635.tar.gz | |
(hl-line-overlay): Don't make it buffer-local.
(hl-line-highlight): Specify buffer when moving overlay.
Diffstat (limited to 'lisp/hl-line.el')
| -rw-r--r-- | lisp/hl-line.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/hl-line.el b/lisp/hl-line.el index a3d66135c44..22d4719fae7 100644 --- a/lisp/hl-line.el +++ b/lisp/hl-line.el @@ -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." |