diff options
| -rw-r--r-- | lisp/hl-line.el | 10 |
1 files 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 @@ | |||
| 1 | ;;; hl-line.el --- highlight the current line | 1 | ;;; hl-line.el --- highlight the current line |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 2000 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1998, 2000, 2001 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Dave Love <fx@gnu.org> | 5 | ;; Author: Dave Love <fx@gnu.org> |
| 6 | ;; Created: 1998-09-13 | 6 | ;; Created: 1998-09-13 |
| @@ -81,11 +81,10 @@ | |||
| 81 | 81 | ||
| 82 | ;;;###autoload | 82 | ;;;###autoload |
| 83 | (define-minor-mode hl-line-mode | 83 | (define-minor-mode hl-line-mode |
| 84 | "Global minor mode to highlight the line about point in the current window. | 84 | "Minor mode to highlight the line about point in the current window. |
| 85 | With ARG, turn Hl-Line mode on if ARG is positive, off otherwise. | 85 | With ARG, turn Hl-Line mode on if ARG is positive, off otherwise. |
| 86 | Uses functions `hl-line-unhighlight' and `hl-line-highlight' on | 86 | Uses functions `hl-line-unhighlight' and `hl-line-highlight' on |
| 87 | `pre-command-hook' and `post-command-hook'." | 87 | `pre-command-hook' and `post-command-hook'." |
| 88 | :global t | ||
| 89 | (if hl-line-mode | 88 | (if hl-line-mode |
| 90 | (progn | 89 | (progn |
| 91 | (add-hook 'pre-command-hook #'hl-line-unhighlight) | 90 | (add-hook 'pre-command-hook #'hl-line-unhighlight) |
| @@ -94,6 +93,11 @@ Uses functions `hl-line-unhighlight' and `hl-line-highlight' on | |||
| 94 | (remove-hook 'pre-command-hook #'hl-line-unhighlight) | 93 | (remove-hook 'pre-command-hook #'hl-line-unhighlight) |
| 95 | (remove-hook 'post-command-hook #'hl-line-highlight))) | 94 | (remove-hook 'post-command-hook #'hl-line-highlight))) |
| 96 | 95 | ||
| 96 | ;;;###autoload | ||
| 97 | (easy-mmode-define-global-mode | ||
| 98 | global-hl-line-mode hl-line-mode hl-line-mode | ||
| 99 | :group 'hl-line) | ||
| 100 | |||
| 97 | (provide 'hl-line) | 101 | (provide 'hl-line) |
| 98 | 102 | ||
| 99 | ;;; hl-line.el ends here | 103 | ;;; hl-line.el ends here |