[Emacs-diffs] master 439f3c3: Make gif animation work (bug#24004)

[Katsumi Yamaoka]

branch: master
commit 439f3c3e567692b6823923d569a06ac206d1c3be
Author: Katsumi Yamaoka <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>

    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).
---
 lisp/image.el |    7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/image.el b/lisp/image.el
index ad21936..08df7d4 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -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))