mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-01 11:20:41 -08:00
Code Issues Projects Releases Wiki Activity

Teach project-current to inhibit the prompt

Browse source 
* lisp/progmodes/project.el:
(project-current-inhibit-prompt): New variable.
(project-current, project-switch-project): Use it.
This commit is contained in:
Dmitry Gutov 2020-05-19 01:00:43 +03:00 • committed by Simen Heggestøyl
parent 0db801a3ad
commit 0b057ca9bc
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/progmodes/project.el
View file

@ -101,6 +101,9 @@ Each functions on this hook is called in turn with one
argument (the directory) and should return either nil to mean
that it is not applicable, or a project instance.")
(defvar project-current-inhibit-prompt nil
"Non-nil to skip prompting the user in `project-current'.")
;;;###autoload
(defun project-current (&optional maybe-prompt dir)
"Return the project instance in DIR or `default-directory'.
@ -110,7 +113,8 @@ the user for a different project to look in."
(let ((pr (project--find-in-directory dir)))
(cond
(pr)
(maybe-prompt
((unless project-current-inhibit-prompt
maybe-prompt)
(setq dir (project-prompt-project-dir)
pr (project--find-in-directory dir))))
(if pr
@ -829,7 +833,8 @@ and presented in a dispatch menu."
(setq choice (read-key-sequence (project--keymap-prompt))))
(if (equal choice (kbd "C-g"))
(message "Quit")
(let ((default-directory dir))
(let ((default-directory dir)
(project-current-inhibit-prompt t))
(call-interactively
(nth 2 (assoc choice project-switch-commands)))))))