[Emacs-diffs] Changes to emacs/lisp/hl-line.el,v

[Juanma Barranquero]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      08/10/14 15:02:09

Index: hl-line.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/hl-line.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- hl-line.el  27 Jun 2008 02:23:31 -0000      1.38
+++ hl-line.el  14 Oct 2008 15:02:09 -0000      1.39
@@ -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,7 +155,7 @@
 
 (defun hl-line-unhighlight ()
   "Deactivate the Hl-Line overlay on the current line."
-  (if hl-line-overlay
+  (when hl-line-overlay
       (delete-overlay hl-line-overlay)))
 
 ;;;###autoload
@@ -187,7 +187,7 @@
 
 (defun global-hl-line-unhighlight ()
   "Deactivate the Global-Hl-Line overlay on the current line."
-  (if global-hl-line-overlay
+  (when global-hl-line-overlay
       (delete-overlay global-hl-line-overlay)))
 
 (defun hl-line-move (overlay)
@@ -207,6 +207,16 @@
        (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