diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/arc-mode.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index f1a3735d2c6..1c5faa1152b 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -1063,7 +1063,8 @@ NEW-NAME." #'archive--file-desc-ext-file-name (or (archive-get-marked ?*) (list (archive-get-descr)))))) (list names - (read-file-name (format "Copy %s to: " (string-join names ", ")))))) + (read-file-name (format "Copy %s to: " (string-join names ", ")) + nil default-directory)))) (unless (consp files) (setq files (list files))) (when (and (> (length files) 1) |