From: Joseph Turner <joseph@breatheoutbreathe.in>
Date: Tue, 30 Jan 2024 08:52:39 +0000 (-0800)
Subject: Improve directory prompt used by package-vc-checkout
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69195e0f08b4c89cbee19ff89a679c78da25fd59;p=emacs.git

Improve directory prompt used by package-vc-checkout

* lisp/emacs-lisp/package-vc.el (package-vc--read-package-name): Use
read-directory-name instead of read-file-name.  (Bug#66114)

(cherry picked from commit 61a145076275a9da79d0372d50def4aaf5117587)
---

diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index 37980c28b02..ef056c7909b 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -939,8 +939,8 @@ for the last released version of the package."
   (interactive
    (let* ((name (package-vc--read-package-name "Fetch package source: ")))
      (list (cadr (assoc name package-archive-contents #'string=))
-           (read-file-name "Clone into new or empty directory: " nil nil t nil
-                           (lambda (dir) (or (not (file-exists-p dir))
+           (read-directory-name "Clone into new or empty directory: " nil nil
+                                (lambda (dir) (or (not (file-exists-p dir))
                                              (directory-empty-p dir))))
            (and current-prefix-arg :last-release))))
   (package-vc--archives-initialize)