diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-06-13 14:49:01 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-06-13 14:49:07 +0200 |
| commit | 00802c0cfeea4218802509693ca0f5d2593f8a7c (patch) | |
| tree | c0e5904a995bb650b682ea1f86a66eab34f55141 /lisp/cedet/pulse.el | |
| parent | 788e5cce4d13db2f8cd942560e810e1fee1fea0d (diff) | |
| download | emacs-00802c0cfeea4218802509693ca0f5d2593f8a7c.tar.gz | |
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).
Diffstat (limited to 'lisp/cedet/pulse.el')
| -rw-r--r-- | lisp/cedet/pulse.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el index 62b2072e18c..54b14c67ed1 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)) |