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 9d42fde0756fe7398f1f54253292b7bfb6df3e7e..6b1998362d99697b7ba274844567bac7a255d73e 100644 (file)
--- 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")
 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"))
     (cond
      ((not url)
       (message "No URL under point"))