diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2016-07-19 07:34:54 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2016-07-19 07:34:54 +0000 |
| commit | 439f3c3e567692b6823923d569a06ac206d1c3be (patch) | |
| tree | 082a9d165257cadb0c1b8ccf00df6d2ab0bdb5b7 /lisp/image.el | |
| parent | 99fe98d37a39d26f5dea424926d0e0a082655fe5 (diff) | |
| download | emacs-439f3c3e567692b6823923d569a06ac206d1c3be.tar.gz emacs-439f3c3e567692b6823923d569a06ac206d1c3be.tar.bz2 emacs-439f3c3e567692b6823923d569a06ac206d1c3be.zip | |
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).
Diffstat (limited to 'lisp/image.el')
| -rw-r--r-- | lisp/image.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/image.el b/lisp/image.el index ad219361366..08df7d4aa1a 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)) |