From: Alain Schneble <a.s@realize.ch>
Date: Thu, 3 Mar 2016 05:31:11 +0000 (+0000)
Subject: Fix issue of inserting images on some systems
X-Git-Tag: emacs-26.0.90~2399
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=887f6126c5ce9084f93083765ac026ca6b28175c;p=emacs.git

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
80852f843e69b81618f29cfb9aa4b074946cb3c4
(bug#22789).
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index c469e699ae8..e463c7edaf2 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -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.