mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

* image.el (image-animated-p): Tweak definition.

Browse Source 
* gnus/shr.el (shr-put-image): Silence compiler.
This commit is contained in:
Glenn Morris 2013-05-29 20:24:30 -07:00
parent ceca95b18e
commit dd8620de6e
4 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,5 +1,7 @@
2013-05-30 Glenn Morris <rgm@gnu.org>
* image.el (image-animated-p): Tweak definition.
* net/rlogin.el (rlogin-program, rlogin-explicit-args): Default to ssh.
(rlogin-process-connection-type): Tweak default. Add set-after.
(rlogin-host): Doc fix.

4
lisp/gnus/ChangeLog
View File

@ -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.

13
lisp/gnus/shr.el
View File

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

7
lisp/image.el
View File

@ -624,7 +624,12 @@ in which case you might want to use `image-default-frame-delay'."
(setq delay image-default-frame-delay))
(cons images delay))))
(define-obsolete-function-alias 'image-animated-p 'image-multi-frame-p "24.4")
(defun image-animated-p (image)
"Like `image-multi-frame-p', but returns nil if no delay is specified."
(let ((multi (image-multi-frame-p image)))
(and (cdr multi) multi)))
(make-obsolete 'image-animated-p 'image-multi-frame-p "24.4")
;; "Destructively"?
(defun image-animate (image &optional index limit)