[elpa] 11/77: Minor tweaks to easy-kill-on-url

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit dc09071118d9724ef2a432ba0093aaec08ea70da
Author: Leo Liu <address@hidden>
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