aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Eggert2015-10-15 10:51:25 -0700
committerPaul Eggert2015-10-15 10:52:00 -0700
commitb4c00f9ac9d57eca8f2a4950fca6198065dbdcd0 (patch)
tree46bd79c3ee39cda999f5e90bafc6d8b808fa2007
parent5110c952069e593cb95593f7b3c41d67cb4559d6 (diff)
downloademacs-b4c00f9ac9d57eca8f2a4950fca6198065dbdcd0.tar.gz
emacs-b4c00f9ac9d57eca8f2a4950fca6198065dbdcd0.zip
Fix animation timeout delay calculation
* lisp/image.el (image-animate-timeout): Don’t assume speed is floating-point.
-rw-r--r--lisp/image.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/image.el b/lisp/image.el
index d557e39aac2..295b79f161d 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -735,7 +735,7 @@ for the animation speed. A negative value means to animate in reverse."
735 ;; Subtract off the time we took to load the image from the 735 ;; Subtract off the time we took to load the image from the
736 ;; stated delay time. 736 ;; stated delay time.
737 (delay (max (+ (* (or (cdr animation) image-default-frame-delay) 737 (delay (max (+ (* (or (cdr animation) image-default-frame-delay)
738 (/ 1 (abs speed))) 738 (/ 1.0 (abs speed)))
739 time (- (float-time))) 739 time (- (float-time)))
740 image-minimum-frame-delay)) 740 image-minimum-frame-delay))
741 done) 741 done)