branch: externals/do-at-point
commit 63a58857bd9668eb5353df8efad8e650b3e0c631
Author: Philip Kaludercic <[email protected]>
Commit: Philip Kaludercic <[email protected]>
Remove unnecessary sharp-quoting of a lambda expression
---
do-at-point.el | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/do-at-point.el b/do-at-point.el
index 43aa07ac19..008f1f76ed 100644
--- a/do-at-point.el
+++ b/do-at-point.el
@@ -153,15 +153,15 @@ of this variable.")
(gnus-dired-attach (list path)))))
(url
(?b "Browse" ,#'browse-url)
- (?d "Download" ,#'(lambda (url)
- (cond
- ((executable-find "wget")
- (start-process "*Download*" nil "wget" "-q" "-c"
url))
- ((executable-find "wcurl")
- (start-process "*Download*" nil "wcurl" url))
- ;; FIXME: We should also try falling back to
- ;; `url-retrieve'.
- ((error "Failed to find external executable for
downloads")))))
+ (?d "Download" ,(lambda (url)
+ (cond
+ ((executable-find "wget")
+ (start-process "*Download*" nil "wget" "-q" "-c" url))
+ ((executable-find "wcurl")
+ (start-process "*Download*" nil "wcurl" url))
+ ;; FIXME: We should also try falling back to
+ ;; `url-retrieve'.
+ ((error "Failed to find external executable for
downloads")))))
(?g "git-clone into temp"
,(lambda (url)
(let ((dir (make-temp-file (file-name-base url) t))
