leoliu pushed a commit to branch master
in repository elpa.
commit dc09071118d9724ef2a432ba0093aaec08ea70da
Author: Leo Liu <[email protected]>
Date: Mon Oct 7 12:36:28 2013 +0800
Minor tweaks to easy-kill-on-url
---
easy-kill.el | 30 +++++++++++++++---------------
1 files changed, 15 insertions(+), 15 deletions(-)
diff --git a/easy-kill.el b/easy-kill.el
index 64fe96e..5861d09 100644
--- a/easy-kill.el
+++ b/easy-kill.el
@@ -231,21 +231,21 @@ Char properties `help-echo', `shr-url' and
`w3m-href-anchor' are
inspected."
(if (bounds-of-thing-at-point 'url)
(easy-kill-thing 'url nil t)
- (let* ((get-url (lambda (text)
- (when (stringp text)
- (with-temp-buffer
- (insert text)
- (and (bounds-of-thing-at-point 'url)
- (thing-at-point 'url))))))
- (url (dolist (p '(help-echo shr-url w3m-href-anchor))
- (pcase-let* ((`(,text . ,ov)
- (get-char-property-and-overlay (point) p))
- (u (or (funcall get-url text)
- (funcall get-url
- (and ov (overlay-get ov p))))))
- (and u (return u))))))
- (when url
- (easy-kill-adjust-candidate 'url url)))))
+ (let ((get-url (lambda (text)
+ (when (stringp text)
+ (with-temp-buffer
+ (insert text)
+ (and (bounds-of-thing-at-point 'url)
+ (thing-at-point 'url)))))))
+ (dolist (p '(help-echo shr-url w3m-href-anchor))
+ (pcase-let* ((`(,text . ,ov)
+ (get-char-property-and-overlay (point) p))
+ (url (or (funcall get-url text)
+ (funcall get-url
+ (and ov (overlay-get ov p))))))
+ (when url
+ (easy-kill-adjust-candidate 'url url)
+ (return url)))))))
(provide 'easy-kill)
;;; easy-kill.el ends here
