diff options
| author | Joseph Turner <joseph@breatheoutbreathe.in> | 2024-01-30 00:52:39 -0800 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2024-02-14 17:51:59 +0100 |
| commit | 61a145076275a9da79d0372d50def4aaf5117587 (patch) | |
| tree | be2eaa873e48ab00c10be9373d6e0e3771677ef0 /lisp | |
| parent | 0c7c8210cb6a87a06b61451d19f3601975569946 (diff) | |
| download | emacs-61a145076275a9da79d0372d50def4aaf5117587.tar.gz emacs-61a145076275a9da79d0372d50def4aaf5117587.tar.bz2 emacs-61a145076275a9da79d0372d50def4aaf5117587.zip | |
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)
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/package-vc.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el index e89ead89d4b..5c5486de290 100644 --- a/lisp/emacs-lisp/package-vc.el +++ b/lisp/emacs-lisp/package-vc.el @@ -825,8 +825,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)))) (setf directory (expand-file-name directory)) |