master 631a8ae9ee: Make `C RET' work in archive-mode

[Lars Ingebrigtsen]

branch: master
commit 631a8ae9ee9c79b420cadb188d65503a3eea9b16
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make `C RET' work in archive-mode
    
    * lisp/arc-mode.el (archive-copy-file): Fix the default value
    (when the user hits RET) (bug#55123).
---
 lisp/arc-mode.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index f1a3735d2c..1c5faa1152 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)