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).

1 files changed, 1 insertions, 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 ""))))