diff options
| author | Paul Eggert | 2015-10-15 10:51:25 -0700 |
|---|---|---|
| committer | Paul Eggert | 2015-10-15 10:52:00 -0700 |
| commit | b4c00f9ac9d57eca8f2a4950fca6198065dbdcd0 (patch) | |
| tree | 46bd79c3ee39cda999f5e90bafc6d8b808fa2007 | |
| parent | 5110c952069e593cb95593f7b3c41d67cb4559d6 (diff) | |
| download | emacs-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.el | 2 |
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) |