[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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 72ab6c4f14: Fix setter for hl-line-sticky-flag when hl-line is not loaded,
Po Lu <=