branch: elpa/evil-goggles
commit 70ed667698d7cf04ff1be3e3b784c42cbee896d0
Author: Evgeni Kolev <[email protected]>
Commit: Evgeni Kolev <[email protected]>
Fix compile warnings
---
evil-goggles.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/evil-goggles.el b/evil-goggles.el
index f64fa3381d..9764c826de 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -82,7 +82,7 @@ can't work with input such as (backgound . \"red\")."
This function returns immediately, it doesn't wait for the pulse
animation to end."
(let* ((pulse-delay 0.03)
- (pulse-iterations (round (or dur evil-goggles-duration) pulse-delay)))
+ (pulse-iterations (round dur pulse-delay)))
(ignore pulse-iterations) ;; silence compile warning Unused lexical
variable
(set-face-attribute 'evil-goggles--pulse-face nil :background background)
(pulse-momentary-highlight-overlay ov 'evil-goggles--pulse-face)))
@@ -220,7 +220,7 @@ Running code while the hint is on isn't supported."
beg end nil)
;; TODO add support for pulsing a vertical block
;; (dolist (ov ovs) (evil-goggles--show-or-pulse-overlay ov face
dur))
- (sit-for evil-goggles-duration))
+ (sit-for dur))
(mapcar 'delete-overlay ovs))))
(defun evil-goggles--funcall-interactively (f &rest args)
