emacs - make download wrap directory completing

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 5fd431a..c33ddb5 100644 (file)
--- 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)