Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4abff904
Commit
4abff904
authored
Oct 28, 2010
by
Julien Danjou
Committed by
Katsumi Yamaoka
Oct 28, 2010
Browse files
shr.el (shr-put-image): Use point even if only inserting text; save-excursion on alt text.
parent
cfe94935
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
12 additions
and
6 deletions
+12
-6
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+4
-0
lisp/gnus/shr.el
lisp/gnus/shr.el
+8
-6
No files found.
lisp/gnus/ChangeLog
View file @
4abff904
2010-10-28 Julien Danjou <julien@danjou.info>
* shr.el (shr-put-image): Use point even if only inserting text.
(shr-put-image): Save excursion when inserting alt text on non-graphic
display, so the behaviour is the same when we are on a graphic display.
* nnir.el (nnir-run-swish-e): Remove hyrex support.
2010-10-28 Katsumi Yamaoka <yamaoka@jpl.org>
...
...
lisp/gnus/shr.el
View file @
4abff904
...
...
@@ -373,12 +373,14 @@ redirects somewhere else."
(
kill-buffer
(
current-buffer
)))
(
defun
shr-put-image
(
data
point
alt
)
(
if
(
not
(
display-graphic-p
))
(
insert
alt
)
(
let
((
image
(
ignore-errors
(
shr-rescale-image
data
))))
(
when
image
(
put-image
image
point
alt
)))))
(
if
(
display-graphic-p
)
(
let
((
image
(
ignore-errors
(
shr-rescale-image
data
))))
(
when
image
(
put-image
image
point
alt
)))
(
save-excursion
(
goto-char
point
)
(
insert
alt
))))
(
defun
shr-rescale-image
(
data
)
(
if
(
or
(
not
(
fboundp
'imagemagick-types
))
...
...
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