mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

Allow using pulse.el with a single color without pulsation

Browse Source 
* lisp/cedet/pulse.el (pulse-momentary-highlight-overlay): Add
the start color to the list of colors used for the pulsation
effect, to allow its use when 'pulse-iterations' is 1.
(Bug#72636)
This commit is contained in:
Gautier Ponsinet 2024-08-15 09:17:42 +02:00 committed by Eli Zaretskii
parent c1181975ef
commit 632cc76fb5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/cedet/pulse.el
View File

@ -158,7 +158,7 @@ Optional argument FACE specifies the face to do the highlighting."
(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))))
(cons start (color-gradient start stop (1- pulse-iterations))))))
(setq pulse-momentary-timer
(run-with-timer 0 pulse-delay #'pulse-tick
colors