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 c469e699ae8c783e5ff2684fc62d2b57041889d2..e463c7edaf2d3e4b9360bd2e9d3b147f3f8fd620 100644 (file)
--- 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.