From 90321f595c88324cccaa820add096e5d1c3deac5 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 9 Apr 2020 19:44:55 +0300 Subject: [PATCH] Fix face extension in pulse.el * lisp/cedet/pulse.el (pulse-reset-face): Propagate the :extend attribute of FACE to the face used for displaying the pulse. Reported by Adam Porter . --- lisp/cedet/pulse.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el index 16243e16b45..8649254aedd 100644 --- a/lisp/cedet/pulse.el +++ b/lisp/cedet/pulse.el @@ -161,6 +161,9 @@ Return t if there is more drift to do, nil if completed." (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))) (put 'pulse-highlight-face :startface (or face 'pulse-highlight-start-face)) (put 'pulse-highlight-face :iteration 0)) -- 2.39.2