Commit 439f3c3e authored by Katsumi Yamaoka's avatar Katsumi Yamaoka

Make gif animation work (bug#24004)

* lisp/image.el (image-animate-timeout): Fix the logic that tests if
an animation is too big (bug#24004).
parent 99fe98d3
......@@ -792,9 +792,10 @@ If the image has a non-nil :speed property, it acts as a multiplier
for the animation speed. A negative value means to animate in reverse."
(when (and (buffer-live-p (plist-get (cdr image) :animate-buffer))
;; Delayed more than two seconds more than expected.
(when (> (- (float-time) target-time) 2)
(message "Stopping animation; animation possibly too big")
nil))
(or (<= (- (float-time) target-time) 2)
(progn
(message "Stopping animation; animation possibly too big")
nil)))
(image-show-frame image n t)
(let* ((speed (image-animate-get-speed image))
(time (float-time))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment