From 1bd74554970450054c874dbb69837b43f783c6bd Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 27 Jun 2016 22:26:02 +0200 Subject: [PATCH 1/1] 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. --- lisp/net/shr.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 9d42fde075..6b1998362d 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")) -- 2.39.2