Fix unloading the hl-line library

* lisp/hl-line.el (hl-line-unload-function): Restore function.
This commit is contained in:
Po Lu 2022-03-22 08:22:41 +08:00
parent f36d929ee7
commit 63a33c3057

View file

@ -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