From 0b2dd81e437b0e7d55fa590964859b55a9bb0543 Mon Sep 17 00:00:00 2001 From: Peng Li Date: Wed, 14 Sep 2016 00:09:12 +0800 Subject: [PATCH] emacs - make download wrap directory completing --- emacs.d/config.org | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/emacs.d/config.org b/emacs.d/config.org index 5fd431a..c33ddb5 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -1479,7 +1479,7 @@ as a http download client tool (interactive) (let ((url (or url (read-string "Enter download URL: "))) - (download-dir (or (read-string "Save to (~/Downloads): ") "~/Downloads"))) + (download-dir (read-directory-name "Save to (~/Downloads): " "~/Downloads" "~/Downloads" 'confirm' nil))) (let ((download-buffer (url-retrieve-synchronously url))) (save-excursion (set-buffer download-buffer) -- 2.11.0