mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Fix project-prompt-project-name with (choose a dir)

Browse source 
* lisp/progmodes/project.el (project-prompt-project-name):
Use correct equality check (bug#79894).
This commit is contained in:
Dmitry Gutov 2025-11-27 12:26:55 +02:00
parent 26bd33c853
commit 702b16f999
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/progmodes/project.el
View file

@ -2279,8 +2279,8 @@ If ALLOW-EMPTY is non-nil, it is possible to exit with no input."
while (and (not allow-empty) (equal pr-name ""))) while (and (not allow-empty) (equal pr-name "")))
(pcase pr-name (pcase pr-name
("" "") ("" "")
('dir-choice (read-directory-name "Select directory: " ((pred (equal dir-choice)) (read-directory-name "Select directory: "
default-directory nil t)) default-directory nil t))
(_ (let ((proj (assoc pr-name choices))) (_ (let ((proj (assoc pr-name choices)))
(if (stringp proj) proj (project-root (cdr proj)))))))) (if (stringp proj) proj (project-root (cdr proj))))))))