procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve directory prompt used by package-vc-checkout

Browse source 
* lisp/emacs-lisp/package-vc.el (package-vc--read-package-name): Use
read-directory-name instead of read-file-name.  (Bug#66114)
This commit is contained in:
Joseph Turner 2024-01-30 00:52:39 -08:00 • committed by Philip Kaludercic
parent 0c7c8210cb
commit 61a1450762
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/package-vc.el
View file

@ -825,8 +825,8 @@ for the last released version of the package."
(interactive (interactive
(let* ((name (package-vc--read-package-name "Fetch package source: "))) (let* ((name (package-vc--read-package-name "Fetch package source: ")))
(list (cadr (assoc name package-archive-contents #'string=)) (list (cadr (assoc name package-archive-contents #'string=))
(read-file-name "Clone into new or empty directory: " nil nil t nil (read-directory-name "Clone into new or empty directory: " nil nil
(lambda (dir) (or (not (file-exists-p dir)) (lambda (dir) (or (not (file-exists-p dir))
(directory-empty-p dir)))) (directory-empty-p dir))))
(and current-prefix-arg :last-release)))) (and current-prefix-arg :last-release))))
(setf directory (expand-file-name directory)) (setf directory (expand-file-name directory))