diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2020-04-09 19:44:55 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2020-04-09 19:44:55 +0300 |
| commit | 90321f595c88324cccaa820add096e5d1c3deac5 (patch) | |
| tree | 83f0fe7c3c7ec5afa7337c882531e141a6d08873 | |
| parent | 36c42d2a30e7a02fc363b5ec3bd000530c705715 (diff) | |
| download | emacs-90321f595c88324cccaa820add096e5d1c3deac5.tar.gz | |
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>.
| -rw-r--r-- | lisp/cedet/pulse.el | 3 |
1 files changed, 3 insertions, 0 deletions
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)) |