Fix animation timeout delay calculation

* lisp/image.el (image-animate-timeout):
Don’t assume speed is floating-point.
This commit is contained in:
Paul Eggert 2015-10-15 10:51:25 -07:00
parent 5110c95206
commit b4c00f9ac9

View file

@ -735,7 +735,7 @@ for the animation speed. A negative value means to animate in reverse."
;; Subtract off the time we took to load the image from the
;; stated delay time.
(delay (max (+ (* (or (cdr animation) image-default-frame-delay)
(/ 1 (abs speed)))
(/ 1.0 (abs speed)))
time (- (float-time)))
image-minimum-frame-delay))
done)