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