From 7013279cb37dde47bc0a8981f1e883aeea01c709 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 18 Jul 2000 11:51:43 +0000 Subject: [PATCH] (hl-line-highlight): Check hl-line-mode. --- lisp/hl-line.el | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/lisp/hl-line.el b/lisp/hl-line.el index 641f1fc931e..a3d66135c44 100644 --- a/lisp/hl-line.el +++ b/lisp/hl-line.el @@ -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." -- 2.39.2