diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2016-06-27 22:26:02 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2016-06-27 22:26:02 +0200 |
| commit | 1bd74554970450054c874dbb69837b43f783c6bd (patch) | |
| tree | a7948f553dc4932cb7ef3ddcfb69063528034756 /lisp/net | |
| parent | f7ea7aa11f6211b5142bbcfc41c580d75485ca56 (diff) | |
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.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/shr.el | 6 |
1 files 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")) |