diff options
| author | Glenn Morris <rgm@gnu.org> | 2013-05-29 20:24:30 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-05-29 20:24:30 -0700 |
| commit | dd8620de6ec3fc50494f3bba4d324b0f73af4e4b (patch) | |
| tree | d082a65e7c266684d7b0a99d9e5d7ad04cd2405e /lisp/gnus | |
| parent | ceca95b18eea3d3be1ac46df15b98ad846eaa770 (diff) | |
| download | emacs-dd8620de6ec3fc50494f3bba4d324b0f73af4e4b.tar.gz | |
* image.el (image-animated-p): Tweak definition.
* gnus/shr.el (shr-put-image): Silence compiler.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/shr.el | 13 |
2 files changed, 11 insertions, 6 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 3cfca4525f0..b45abb618d8 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2013-05-30 Glenn Morris <rgm@gnu.org> + + * shr.el (shr-put-image): Silence compiler. + 2013-05-29 Glenn Morris <rgm@gnu.org> * gnus-ems.el (set-process-plist): Every supported Emacs has this. diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 2d2272d6c11..9284da4c4b3 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -631,12 +631,13 @@ size, and full-buffer size." (overlay-put overlay 'face 'default))) (insert-image image (or alt "*"))) (put-text-property start (point) 'image-size size) - (when (if (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)) - (image-animated-p image)) + (when (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))) image) (insert alt))) |