From b184b2ddbbc967d330dd53ff19e279f32c105207 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 24 Aug 2001 11:19:44 +0000 Subject: [PATCH] (hl-line-mode): Don't be a global mode. (global-hl-line-mode): New definition. --- lisp/hl-line.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/hl-line.el b/lisp/hl-line.el index 2b2af4d5fdc..3107b2ac451 100644 --- a/lisp/hl-line.el +++ b/lisp/hl-line.el @@ -1,6 +1,6 @@ ;;; hl-line.el --- highlight the current line -;; Copyright (C) 1998, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1998, 2000, 2001 Free Software Foundation, Inc. ;; Author: Dave Love ;; Created: 1998-09-13 @@ -81,11 +81,10 @@ ;;;###autoload (define-minor-mode hl-line-mode - "Global minor mode to highlight the line about point in the current window. + "Minor mode to highlight the line about point in the current window. With ARG, turn Hl-Line mode on if ARG is positive, off otherwise. Uses functions `hl-line-unhighlight' and `hl-line-highlight' on `pre-command-hook' and `post-command-hook'." - :global t (if hl-line-mode (progn (add-hook 'pre-command-hook #'hl-line-unhighlight) @@ -94,6 +93,11 @@ Uses functions `hl-line-unhighlight' and `hl-line-highlight' on (remove-hook 'pre-command-hook #'hl-line-unhighlight) (remove-hook 'post-command-hook #'hl-line-highlight))) +;;;###autoload +(easy-mmode-define-global-mode + global-hl-line-mode hl-line-mode hl-line-mode + :group 'hl-line) + (provide 'hl-line) ;;; hl-line.el ends here -- 2.39.5