[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 7823dcf: Slight shr-put-image clean up

From: Lars Ingebrigtsen
Subject: [Emacs-diffs] master 7823dcf: Slight shr-put-image clean up
Date: Tue, 24 Sep 2019 13:38:34 -0400 (EDT)

branch: master
commit 7823dcf2fb0ac2bd1d0349be683a618d332758ff
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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 63988d0..0cd15dc 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 
            (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)))
     (insert (or alt ""))))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]