]> git.eshelyaron.com Git - emacs.git/commitdiff
Reset the pulse face more fully in pulse-reset-face
authorLars Ingebrigtsen <larsi@gnus.org>
Sun, 13 Jun 2021 12:49:01 +0000 (14:49 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Sun, 13 Jun 2021 12:49:07 +0000 (14:49 +0200)
* lisp/cedet/pulse.el (pulse-reset-face): Reset the :extend to nil
if there's no face given (bug#48936).

lisp/cedet/pulse.el

index 62b2072e18c64775ab539d618b53182874c13413..54b14c67ed1a57552b6b2b00e7a3fa8131de459e 100644 (file)
@@ -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))