X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/5bc3263303bde93db32b0799ecee0cfa9fe40e9a..90fb0b2d13d0f44ecb9606587681cb4d8a6f0225:/lisp/net/shr.el

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 9d42fde075..68972020db 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -37,6 +37,7 @@
 (require 'dom)
 (require 'seq)
 (require 'svg)
+(require 'image)
 
 (defgroup shr nil
   "Simple HTML Renderer"
@@ -296,8 +297,10 @@ image under point instead.
 If called twice, then try to fetch the URL and see whether it
 redirects somewhere else."
   (interactive "P")
-  (let ((url (or (get-text-property (point) 'shr-url)
-		 (get-text-property (point) 'image-url))))
+  (let ((url (if image-url
+                 (get-text-property (point) 'image-url)
+               (or (get-text-property (point) 'shr-url)
+                   (get-text-property (point) 'image-url)))))
     (cond
      ((not url)
       (message "No URL under point"))