From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Mon, 27 Jun 2016 20:26:02 +0000 (+0200)
Subject: Fix the prefix action of shr-copy-url
X-Git-Tag: emacs-26.0.90~1840^2~152
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1bd74554970450054c874dbb69837b43f783c6bd;p=emacs.git

Fix the prefix action of shr-copy-url

* lisp/net/shr.el (shr-copy-url): Make the command really copy
the image url if given a prefix.
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 9d42fde0756..6b1998362d9 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -296,8 +296,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"))