diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2026-03-02 23:52:16 +0100 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2026-03-02 23:55:37 +0100 |
| commit | 63a58857bd9668eb5353df8efad8e650b3e0c631 (patch) | |
| tree | 0fdf8be68e27875bede23f11871c0b20bdef7e20 | |
| parent | 44a0918caacd5d3a3800ca9c565f914d6290e5c9 (diff) | |
Remove unnecessary sharp-quoting of a lambda expression
| -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)) |