From 632cc76fb58a6d07ed55bbef650d0c6bc1edb475 Mon Sep 17 00:00:00 2001 From: Gautier Ponsinet Date: Thu, 15 Aug 2024 09:17:42 +0200 Subject: [PATCH] Allow using pulse.el with a single color without pulsation * 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) --- lisp/cedet/pulse.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el index d9f6a40865a..53256ba3a81 100644 --- a/lisp/cedet/pulse.el +++ b/lisp/cedet/pulse.el @@ -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