From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 9 Apr 2020 16:44:55 +0000 (+0300)
Subject: Fix face extension in pulse.el
X-Git-Tag: emacs-27.0.91~31
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=90321f595c;p=emacs.git

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 <adam@alphapapa.net>.
---

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))