From 631a8ae9ee9c79b420cadb188d65503a3eea9b16 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 26 Apr 2022 13:27:17 +0200 Subject: [PATCH] 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 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) -- 2.39.2