1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00

Fix issue of inserting images on some systems

* lisp/net/shr.el (shr-tag-img): Construct a non-empty range
to pass to shr-image-fetched, to indicate where to insert the
image.  Fixes the issue introduced with commit
80852f843e
(bug#22789).
This commit is contained in:
Alain Schneble 2016-03-03 05:31:11 +00:00 committed by Lars Ingebrigtsen
parent 0c5c04d58e
commit 887f6126c5

View File

@ -1499,7 +1499,7 @@ The preference is a float determined from `shr-prefer-media-type'."
(insert " ")
(url-queue-retrieve
(shr-encode-url url) 'shr-image-fetched
(list (current-buffer) start (set-marker (make-marker) (1- (point)))
(list (current-buffer) start (set-marker (make-marker) (point))
(list :width width :height height))
t t)))
(when (zerop shr-table-depth) ;; We are not in a table.