From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 26 Apr 2022 11:27:17 +0000 (+0200)
Subject: Make `C RET' work in archive-mode
X-Git-Tag: emacs-29.0.90~1931^2~297
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=631a8ae9ee9c79b420cadb188d65503a3eea9b16;p=emacs.git

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).
---

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)