diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2008-10-14 15:02:05 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2008-10-14 15:02:05 +0000 |
| commit | b1bad9f3d6bcc725d9727c2dc4282c6080447cbf (patch) | |
| tree | ece9448aff6c5ef099b550517a949904f6fc9dfb /lisp/hl-line.el | |
| parent | e234927a7eac7232d837574ba30aa20bbc539f29 (diff) | |
| download | emacs-b1bad9f3d6bcc725d9727c2dc4282c6080447cbf.tar.gz | |
* hl-line.el (hl-line-unload-function): New function.
(hl-line-unhighlight, global-hl-line-unhighlight): Use `when'.
(hl-line-sticky-flag): Remove spurious * in docstring.
Diffstat (limited to 'lisp/hl-line.el')
| -rw-r--r-- | lisp/hl-line.el | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/lisp/hl-line.el b/lisp/hl-line.el index dae21af0b84..b04bda31aaf 100644 --- a/lisp/hl-line.el +++ b/lisp/hl-line.el @@ -94,7 +94,7 @@ (overlay-put global-hl-line-overlay 'face hl-line-face)))) (defcustom hl-line-sticky-flag t - "*Non-nil means highlight the current line in all windows. + "Non-nil means highlight the current line in all windows. Otherwise Hl-Line mode will highlight only in the selected window. Setting this variable takes effect the next time you use the command `hl-line-mode' to turn Hl-Line mode on." @@ -155,8 +155,8 @@ addition to `hl-line-highlight' on `post-command-hook'." (defun hl-line-unhighlight () "Deactivate the Hl-Line overlay on the current line." - (if hl-line-overlay - (delete-overlay hl-line-overlay))) + (when hl-line-overlay + (delete-overlay hl-line-overlay))) ;;;###autoload (define-minor-mode global-hl-line-mode @@ -187,8 +187,8 @@ Global-Hl-Line mode uses the functions `global-hl-line-unhighlight' and (defun global-hl-line-unhighlight () "Deactivate the Global-Hl-Line overlay on the current line." - (if global-hl-line-overlay - (delete-overlay global-hl-line-overlay))) + (when global-hl-line-overlay + (delete-overlay global-hl-line-overlay))) (defun hl-line-move (overlay) "Move the Hl-Line overlay. @@ -207,6 +207,16 @@ the line including the point by OVERLAY." (move-overlay overlay b e) (move-overlay overlay 1 1)))) +(defun hl-line-unload-function () + "Unload the Hl-Line library." + (global-hl-line-mode -1) + (save-current-buffer + (dolist (buffer (buffer-list)) + (set-buffer buffer) + (when hl-line-mode (hl-line-mode -1)))) + ;; continue standard unloading + nil) + (provide 'hl-line) ;; arch-tag: ac806940-0876-4959-8c89-947563ee2833 |