branch: master
commit c651ba8711b23725052bfc6b572cbf4e83449893
Author: Artur Malabarba <bruce.connor...@gmail.com>
Commit: Artur Malabarba <bruce.connor...@gmail.com>
Allow floating-point delays
---
spinner.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/spinner.el b/spinner.el
index df59e10..0a0dd50 100644
--- a/spinner.el
+++ b/spinner.el
@@ -255,8 +255,8 @@ stop the SPINNER's timer."
(unless (ignore-errors (> (spinner--fps spinner) 0))
(error "A spinner's FPS must be a positive number"))
- (setf (spinner--counter spinner) (- (* (or (spinner--delay spinner) 0)
- (spinner--fps spinner))))
+ (setf (spinner--counter spinner) (round (- (* (or (spinner--delay spinner)
0)
+ (spinner--fps spinner)))))
;; Create timer.
(let* ((repeat (/ 1.0 (spinner--fps spinner)))
(time (timer-next-integral-multiple-of-time (current-time) repeat))
