diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-24 19:38:16 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-24 19:38:21 +0200 |
| commit | 7823dcf2fb0ac2bd1d0349be683a618d332758ff (patch) | |
| tree | 39c6ee44e76ce49064912a983f6868607bd9c7c5 /lisp/net/shr.el | |
| parent | ef0fc0bed1c97a1c803fa83bee438ca9cfd238b0 (diff) | |
| download | emacs-7823dcf2fb0ac2bd1d0349be683a618d332758ff.tar.gz | |
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).
Diffstat (limited to 'lisp/net/shr.el')
| -rw-r--r-- | lisp/net/shr.el | 8 |
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 "")))) |