[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 439f3c3: Make gif animation work (bug#24004)
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] master 439f3c3: Make gif animation work (bug#24004) |
Date: |
Tue, 19 Jul 2016 07:35:18 +0000 (UTC) |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 439f3c3: Make gif animation work (bug#24004),
Katsumi Yamaoka <=