Mercurial > emacs
changeset 30274:428e9eb82841
(hl-line-highlight): Check hl-line-mode.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 18 Jul 2000 11:51:43 +0000 |
| parents | dad74ad87ac2 |
| children | 009d92ce6f6c |
| files | lisp/hl-line.el |
| diffstat | 1 files changed, 11 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/hl-line.el Tue Jul 18 11:50:42 2000 +0000 +++ b/lisp/hl-line.el Tue Jul 18 11:51:43 2000 +0000 @@ -44,6 +44,9 @@ ;; `hl-line-highlight', on `post-command-hook', activates it again ;; across the window width. +;; You could make variable `hl-line-mode' buffer-local to avoid +;; highlighting specific buffers. + ;;; Code: (defgroup hl-line nil @@ -63,13 +66,14 @@ (defun hl-line-highlight () "Active the Hl-Line overlay on the current line in the current window. \(Unless it's a minibuffer window.)" - (unless (window-minibuffer-p (selected-window)) ; silly in minibuffer - (unless hl-line-overlay ; new overlay for this buffer - (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))))) + (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 + (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)))))) (defun hl-line-unhighlight () "Deactivate the Hl-Line overlay on the current line in the current window."