[nongnu] elpa/hyperdrive d9afef8f50 1/3: Change: (h/upload-file) Read filename must match existing file

[ELPA Syncer]

branch: elpa/hyperdrive
commit d9afef8f5086ce638324562b226edde7a3ec8040
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (h/upload-file) Read filename must match existing file
---
 hyperdrive.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index 379e8b593a..a5e0a7c4c1 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -702,7 +702,7 @@ Works in `hyperdrive-mode' and `hyperdrive-dir-mode' 
buffers."
 Interactively, read FILENAME and ENTRY from the user.
 After successful upload, call THEN.  When QUEUE, use it."
   (declare (indent defun))
-  (interactive (let ((filename (read-file-name "Upload file: ")))
+  (interactive (let ((filename (read-file-name "Upload file: " nil nil t)))
                  (list filename
                        (h/read-entry :predicate #'h/writablep
                                      :default-path (file-name-nondirectory 
filename)