From 7823dcf2fb0ac2bd1d0349be683a618d332758ff Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 24 Sep 2019 19:38:16 +0200 Subject: [PATCH] Slight shr-put-image clean up * lisp/net/shr.el (shr-put-image): Use image-multi-frame-p directly, and remove outdated comments (image-multi-frame-p returns the delay). --- lisp/net/shr.el | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 63988d01c88..0cd15dcfe07 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -1088,13 +1088,7 @@ element is the data blob and the second element is the content-type." (insert-image image (or alt "*"))) (put-text-property start (point) 'image-size size) (when (and shr-image-animate - (cond ((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))) - ((fboundp 'image-animated-p) - (image-animated-p image)))) + (cdr (image-multi-frame-p image))) (image-animate image nil 60))) image) (insert (or alt ""))))