Commit b1bad9f3 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

* 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.
parent e234927a
2008-10-14 Juanma Barranquero <lekktu@gmail.com>
* 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.
2008-10-14 Eric Hanchrow <offby1@blarg.net> (tiny change)
 
* vc-git.el (vc-git-show-log-entry): Include the revision in the
......@@ -152,8 +158,8 @@
 
2008-10-09 Eli Zaretskii <eliz@gnu.org>
 
* frame.el (make-frame-on-tty): Use "F" inside interactive. Support
`pc' ``window-system''.
* frame.el (make-frame-on-tty): Use "F" inside interactive.
Support `pc' ``window-system''.
 
* progmodes/compile.el (compilation-start): Resurrect the version
for systems that don't support asynchronous subprocesses.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment