diff options
| author | Gregory Heytings <gregory@heytings.org> | 2021-05-25 06:22:36 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-05-25 06:22:36 +0200 |
| commit | 1fa58c548ae7c00550aef4f49d02dbe93b1ddf5f (patch) | |
| tree | a4224d3163bfcce5c8b23b8a4ce887e462c583d0 /lisp/cedet/pulse.el | |
| parent | 740d424547d3fabefc40e5aabba9bc2d5ba837fc (diff) | |
| download | emacs-1fa58c548ae7c00550aef4f49d02dbe93b1ddf5f.tar.gz | |
Use correct face when pulsing in CEDET
* lisp/cedet/pulse.el (pulse-momentary-highlight-overlay): Use
pulse-highlight-face, not pulse-highlight-start-face (bug#47810).
Diffstat (limited to 'lisp/cedet/pulse.el')
| -rw-r--r-- | lisp/cedet/pulse.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el index 1e4506713ae..62b2072e18c 100644 --- a/lisp/cedet/pulse.el +++ b/lisp/cedet/pulse.el @@ -153,8 +153,7 @@ Optional argument FACE specifies the face to do the highlighting." ;; with a reference face needed for the color. (pulse-reset-face face) (let* ((start (color-name-to-rgb - (face-background 'pulse-highlight-start-face - nil 'default))) + (face-background 'pulse-highlight-face nil 'default))) (stop (color-name-to-rgb (face-background 'default))) (colors (mapcar (apply-partially 'apply 'color-rgb-to-hex) (color-gradient start stop pulse-iterations)))) |