mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-16 09:50:25 +00:00
Code Issues Releases Activity

shr.el (shr-tag-img): Add a space at the end of an ALT image text to make asynchronous adjacent image insertion work better.

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen 2011-10-02 22:03:55 +00:00 committed by Katsumi Yamaoka
parent 32c1fffd72
commit 6452208631
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -1,3 +1,8 @@
2011-10-02 Lars Magne Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-tag-img): Add a space at the end of an ALT image text to
make asynchronous adjacent image insertion work better.
2011-09-27 Daiki Ueno <ueno@unixuser.org>
* plstore.el (plstore-select-keys, plstore-encrypt-to): Clarify

4
lisp/gnus/shr.el
View File

@ -901,7 +901,7 @@ ones, in case fg and bg are nil."
(url-is-cached (shr-encode-url url)))
(funcall shr-put-image-function (shr-get-image-data url) alt))
(t
(insert alt)
(insert alt " ")
(when (and shr-ignore-cache
(url-is-cached (shr-encode-url url)))
(let ((file (url-cache-create-filename (shr-encode-url url))))
@ -912,7 +912,7 @@ ones, in case fg and bg are nil."
'url-queue-retrieve
'url-retrieve)
(shr-encode-url url) 'shr-image-fetched
(list (current-buffer) start (point-marker))
(list (current-buffer) start (set-marker (make-marker) (1- (point))))
t)))
(put-text-property start (point) 'keymap shr-map)
(put-text-property start (point) 'shr-alt alt)