Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
dd8620de
Commit
dd8620de
authored
May 29, 2013
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* image.el (image-animated-p): Tweak definition.
* gnus/shr.el (shr-put-image): Silence compiler.
parent
ceca95b1
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
19 additions
and
7 deletions
+19
-7
lisp/ChangeLog
lisp/ChangeLog
+2
-0
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+4
-0
lisp/gnus/shr.el
lisp/gnus/shr.el
+7
-6
lisp/image.el
lisp/image.el
+6
-1
No files found.
lisp/ChangeLog
View file @
dd8620de
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.
...
...
lisp/gnus/ChangeLog
View file @
dd8620de
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.
...
...
lisp/gnus/shr.el
View file @
dd8620de
...
...
@@ -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
)))
...
...
lisp/image.el
View file @
dd8620de
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment