Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* net/shr.el (shr-put-image): add custom variable

Browse source 
`shr-image-animate' to turn off image animation. It is so slow it
  will render emacs unusable.
This commit is contained in:
Ivan Kanis 2014-02-28 09:49:59 +01:00
parent 5b5774e5d5
commit 8a73034ea9
2 changed files with 18 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2014-02-28 Ivan Kanis <ivan@kanis.fr>
* net/shr.el (shr-put-image): add custom variable
`shr-image-animate' to turn off image animation. It is so slow it
will render emacs unusable.
2014-02-28 Michael Albinus <michael.albinus@gmx.de>
* net/tramp-adb.el (tramp-adb-parse-device-names):

17
lisp/net/shr.el
View file

@ -100,6 +100,12 @@ Alternative suggestions are:
:group 'shr
:type 'function)
(defcustom shr-image-animate t
"If non nil image will be animated."
:version "24.4"
:group 'shr
:type 'boolean)
(defvar shr-content-function nil
"If bound, this should be a function that will return the content.
This is used for cid: URLs, and the function is called with the
@ -765,14 +771,15 @@ element is the data blob and the second element is the content-type."
(insert-sliced-image image (or alt "*") nil 20 1)
(insert-image image (or alt "*")))
(put-text-property start (point) 'image-size size)
(when (cond ((fboundp 'image-multi-frame-p)
(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)))
(image-animate image nil 60)))
(cdr (image-multi-frame-p image)))
((fboundp 'image-animated-p)
(image-animated-p image))))
(image-animate image nil 60)))
image)
(insert alt)))