emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 72ab6c4f14: Fix setter for hl-line-sticky-flag when hl-line is no


From: Po Lu
Subject: master 72ab6c4f14: Fix setter for hl-line-sticky-flag when hl-line is not loaded
Date: Thu, 24 Mar 2022 01:51:41 -0400 (EDT)

branch: master
commit 72ab6c4f141ce249c34933d1ebc91e2491e34b3a
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    Fix setter for hl-line-sticky-flag when hl-line is not loaded
    
    * lisp/hl-line.el (hl-line-sticky-flag): Wrap most of setter
    around (featurep 'hl-line).  Reported by Michael Heerdegen
    <michael_heerdegen@web.de>.
---
 lisp/hl-line.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/lisp/hl-line.el b/lisp/hl-line.el
index e42d1d97d9..e5ca6819f0 100644
--- a/lisp/hl-line.el
+++ b/lisp/hl-line.el
@@ -105,12 +105,13 @@ For that, use `global-hl-line-sticky-flag'."
   :group 'hl-line
   :set (lambda (symbol value)
          (set-default symbol value)
-         (unless value
-           (let ((selected (window-buffer (selected-window))))
-             (dolist (buffer (buffer-list))
-               (unless (eq buffer selected)
-                 (with-current-buffer buffer
-                   (hl-line-unhighlight))))))))
+         (when (featurep 'hl-line)
+           (unless value
+             (let ((selected (window-buffer (selected-window))))
+               (dolist (buffer (buffer-list))
+                 (unless (eq buffer selected)
+                   (with-current-buffer buffer
+                     (hl-line-unhighlight)))))))))
 
 (defcustom global-hl-line-sticky-flag nil
   "Non-nil means the Global HL-Line mode highlight appears in all windows.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]