From: Peng Li <seudut@gmail.com>
Date: Tue, 13 Sep 2016 16:09:12 +0000 (+0800)
Subject: emacs - make download wrap directory completing
X-Git-Url: http://47.100.26.94:8080/?a=commitdiff_plain;h=0b2dd81e437b0e7d55fa590964859b55a9bb0543;p=dotfiles.git

emacs - make download wrap directory completing
---

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)