branch: elpa/hyperdrive
commit d9afef8f5086ce638324562b226edde7a3ec8040
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@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)
