From: Po Lu <luangruo@yahoo.com>
Date: Tue, 22 Mar 2022 00:22:41 +0000 (+0800)
Subject: Fix unloading the hl-line library
X-Git-Tag: emacs-29.0.90~1931^2~1005
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=63a33c3057321a4d2fddbbfe34e11e87ef99b6ad;p=emacs.git

Fix unloading the hl-line library

* lisp/hl-line.el (hl-line-unload-function): Restore function.
---

diff --git a/lisp/hl-line.el b/lisp/hl-line.el
index 47d5b0f247e..70ba0fcfc28 100644
--- a/lisp/hl-line.el
+++ b/lisp/hl-line.el
@@ -127,6 +127,16 @@ Currently used in calendar/todo-mode."
     (let (inhibit-quit)
       (hl-line-mode 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)
+
 ;;;###autoload
 (define-globalized-minor-mode global-hl-line-mode
   hl-line-mode hl-line-turn-on