[elpa] master c651ba8 3/9: Allow floating-point delays

[Artur Malabarba]

branch: master
commit c651ba8711b23725052bfc6b572cbf4e83449893
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    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))