mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

* lisp/gnus/shr.el (shr-put-image): Use image-multi-frame-p if available.

Browse Source
This commit is contained in:
Glenn Morris 2013-02-16 16:38:03 -08:00
parent ed8d7fcaa2
commit bfc58a84b2
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View File

@ -1,3 +1,7 @@
2013-02-17 Glenn Morris <rgm@gnu.org>
* shr.el (shr-put-image): Use image-multi-frame-p if available.
2013-02-16 Glenn Morris <rgm@gnu.org>
* shr.el (shr-put-image): Only animate images that specify a delay.

8
lisp/gnus/shr.el
View File

@ -615,8 +615,12 @@ size, and full-buffer size."
(overlay-put overlay 'face 'default)))
(insert-image image (or alt "*")))
(put-text-property start (point) 'image-size size)
;; Only animate multi-frame things that specify a delay. FIXME?
(when (cdr (image-animated-p image))
(when (if (fboundp 'image-multi-frame-p)
;; Only animate multi-frame things that specify a
;; delay; eg animated gifs as opposed to
;; multi-page tiffs. FIXME?
(cdr (image-multi-frame-p image))
(image-animated-p image))
(image-animate image nil 60)))
image)
(insert alt)))