[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 00802c0: Reset the pulse face more fully in pulse-reset-face
From: |
Lars Ingebrigtsen |
Subject: |
master 00802c0: Reset the pulse face more fully in pulse-reset-face |
Date: |
Sun, 13 Jun 2021 08:49:11 -0400 (EDT) |
branch: master
commit 00802c0cfeea4218802509693ca0f5d2593f8a7c
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Reset the pulse face more fully in pulse-reset-face
* lisp/cedet/pulse.el (pulse-reset-face): Reset the :extend to nil
if there's no face given (bug#48936).
---
lisp/cedet/pulse.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el
index 62b2072..54b14c6 100644
--- a/lisp/cedet/pulse.el
+++ b/lisp/cedet/pulse.el
@@ -120,9 +120,10 @@ Face used for temporary highlighting of tags for effect."
(face-background face nil t)
(face-background 'pulse-highlight-start-face)
))
- (and face
- (set-face-extend 'pulse-highlight-face
- (face-extend-p face nil t)))
+ (set-face-extend 'pulse-highlight-face
+ ;; If there's a face, use the :extend from that.
+ ;; Otherwise, set it to nil.
+ (and face (face-extend-p face nil t)))
(put 'pulse-highlight-face :startface (or face
'pulse-highlight-start-face))
(setq pulse-momentary-iteration 0))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 00802c0: Reset the pulse face more fully in pulse-reset-face,
Lars Ingebrigtsen <=