Mercurial > emacs
comparison lisp/hl-line.el @ 25051:64e3159f0c7b
(hl-line-mode): Add autload cookies.
author | Dave Love <fx@gnu.org> |
---|---|
date | Fri, 23 Jul 1999 23:01:06 +0000 |
parents | 4d9ce81656da |
children | caaa177b2390 |
comparison
equal
deleted
inserted
replaced
25050:1539c0070dd3 | 25051:64e3159f0c7b |
---|---|
46 | 46 |
47 ;;; Code: | 47 ;;; Code: |
48 | 48 |
49 (defgroup hl-line nil | 49 (defgroup hl-line nil |
50 "Highliight the current line." | 50 "Highliight the current line." |
51 :version "20.5" | |
51 :group 'editing) | 52 :group 'editing) |
52 | 53 |
54 ;;;###autoload | |
53 (defcustom hl-line-mode nil | 55 (defcustom hl-line-mode nil |
54 "Non-nil if Hl-Line mode is enabled." | 56 "Non-nil if Hl-Line mode is enabled." |
55 :set (lambda (symbol value) | 57 :set (lambda (symbol value) |
56 (hl-line-mode (or value 0))) | 58 (hl-line-mode (or value 0))) |
57 :initialize 'custom-initialize-default | 59 :initialize 'custom-initialize-default |
81 (defun hl-line-unhighlight () | 83 (defun hl-line-unhighlight () |
82 "Deactivate the Hl-Line overlay on the current line in the current window." | 84 "Deactivate the Hl-Line overlay on the current line in the current window." |
83 (if hl-line-overlay | 85 (if hl-line-overlay |
84 (delete-overlay hl-line-overlay))) | 86 (delete-overlay hl-line-overlay))) |
85 | 87 |
88 ;;;###autoload | |
86 (defun hl-line-mode (&optional arg) | 89 (defun hl-line-mode (&optional arg) |
87 "Global minor mode to highlight the line about point. | 90 "Global minor mode to highlight the line about point. |
88 | 91 |
89 With ARG, turn Hl-Line mode on if ARG is positive, off otherwise. | 92 With ARG, turn Hl-Line mode on if ARG is positive, off otherwise. |
90 Only useful with a windowing system. | 93 Only useful with a windowing system. |