Commit e2d0ba98 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

shr.el (shr-image-displayer): Work for images lined side by side.

parent 28d5de72
2010-12-09 Katsumi Yamaoka <yamaoka@jpl.org>
* shr.el (shr-image-displayer): Work for images lined side by side.
2010-12-08 Robert Pluim <rpluim@gmail.com> 2010-12-08 Robert Pluim <rpluim@gmail.com>
   
* gnus-demon.el (gnus-demon-init): Call run-with-timer with an integer * gnus-demon.el (gnus-demon-init): Call run-with-timer with an integer
......
...@@ -524,7 +524,7 @@ Return a string with image data." ...@@ -524,7 +524,7 @@ Return a string with image data."
"Return a function to display an image. "Return a function to display an image.
CONTENT-FUNCTION is a function to retrieve an image for a cid url that CONTENT-FUNCTION is a function to retrieve an image for a cid url that
is an argument. The function to be returned takes three arguments URL, is an argument. The function to be returned takes three arguments URL,
START, and END." START, and END. Note that START and END should be merkers."
`(lambda (url start end) `(lambda (url start end)
(when url (when url
(if (string-match "\\`cid:" url) (if (string-match "\\`cid:" url)
...@@ -534,9 +534,8 @@ START, and END." ...@@ -534,9 +534,8 @@ START, and END."
(when image (when image
(goto-char start) (goto-char start)
(shr-put-image image (shr-put-image image
(prog1 (buffer-substring-no-properties start end))
(buffer-substring-no-properties start end) (delete-region (point) end))))
(delete-region start end))))))
(url-retrieve url 'shr-image-fetched (url-retrieve url 'shr-image-fetched
(list (current-buffer) start end) (list (current-buffer) start end)
t))))) t)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment