mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-22 10:26:20 +00:00
Code Issues Releases Activity

* image.el (image-animated-p): When delay between animated images is 0,

Browse Source 
set it to 10 (0.1 sec).  (Bug#6258)
This commit is contained in:
Juri Linkov 2010-05-25 18:54:53 +03:00
parent fa9ba95335
commit fc93792445
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2010-05-25 Juri Linkov <juri@jurta.org>
* image.el (image-animated-p): When delay between animated images
is 0, set it to 10 (0.1 sec). (Bug#6258)
2010-05-25 Christian Lynbech <christian.lynbech@tieto.com> (tiny change)
* net/tramp.el (tramp-handle-insert-directory): Don't use

11
lisp/image.el
View File

@ -685,10 +685,13 @@ shall be displayed."
(let* ((metadata (image-metadata image))
(images (plist-get metadata 'count))
(extdata (plist-get metadata 'extension-data))
(anim (plist-get extdata #xF9)))
(and (integerp images) (> images 1)
(stringp anim) (>= (length anim) 4)
(cons images (+ (aref anim 1) (* (aref anim 2) 256))))))))
(anim (plist-get extdata #xF9))
(tmo (and (integerp images) (> images 1)
(stringp anim) (>= (length anim) 4)
(+ (aref anim 1) (* (aref anim 2) 256)))))
(when tmo
(if (eq tmo 0) (setq tmo 10))
(cons images tmo))))))
(provide 'image)