mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

Slight shr-put-image clean up

Browse Source 
* lisp/net/shr.el (shr-put-image): Use image-multi-frame-p
directly, and remove outdated comments (image-multi-frame-p
returns the delay).
This commit is contained in:
Lars Ingebrigtsen 2019-09-24 19:38:16 +02:00
parent ef0fc0bed1
commit 7823dcf2fb
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/net/shr.el
View File

@ -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 ""))))