diff options
Diffstat (limited to 'do-at-point.el')
| -rw-r--r-- | do-at-point.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/do-at-point.el b/do-at-point.el index 43aa07a..008f1f7 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)) |