summaryrefslogtreecommitdiff
path: root/lisp/gnus/shr.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2013-02-16 11:56:50 -0800
committerGlenn Morris <rgm@gnu.org>2013-02-16 11:56:50 -0800
commited8d7fcaa2965216d44388fd00a757c8d55e7395 (patch)
tree8e04c2457944d8e829c1eacd5eadcf68d0ad0ba6 /lisp/gnus/shr.el
parent783b7b7551b197fdcfd384ac4a3d93302a073eaf (diff)
downloademacs-ed8d7fcaa2965216d44388fd00a757c8d55e7395.tar.gz
emacs-ed8d7fcaa2965216d44388fd00a757c8d55e7395.tar.bz2
emacs-ed8d7fcaa2965216d44388fd00a757c8d55e7395.zip
Generalize "animated" images to "multi-frame" images
* lisp/image.el (image-animated-types): Remove. (image-multi-frame-p): Rename from image-animated-p, and generalize. (image-animated-p): Make obsolete alias. (image-animate, image-nth-frame, image-animate-timeout): Use image-multi-frame-p. (image-animate-timeout): If no delay, use image-default-frame-delay. * lisp/image-mode.el (image-mode, image-toggle-animation): Use image-multi-frame-p. (image-mode): Adjust startup message for a multi-frame image. * lisp/gnus/shr.el (shr-put-image): Only animate images that specify a delay. This is consistent with the old image-animated-p behavior. * etc/NEWS: Add placeholder for this. Fixes: debbugs:10739
Diffstat (limited to 'lisp/gnus/shr.el')
-rw-r--r--lisp/gnus/shr.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index c9bf324b4fa..1294ca7cd69 100644
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -615,7 +615,8 @@ size, and full-buffer size."
(overlay-put overlay 'face 'default)))
(insert-image image (or alt "*")))
(put-text-property start (point) 'image-size size)
- (when (image-animated-p image)
+ ;; Only animate multi-frame things that specify a delay. FIXME?
+ (when (cdr (image-animated-p image))
(image-animate image nil 60)))
image)
(insert alt)))