[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 780f674: Don't return transient projects with MAYBE-PROMPT=nil
From: |
Dmitry Gutov |
Subject: |
master 780f674: Don't return transient projects with MAYBE-PROMPT=nil |
Date: |
Sat, 30 May 2020 13:03:50 -0400 (EDT) |
branch: master
commit 780f674a82a90c4e3e32583059b498bfa57e4a06
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>
Don't return transient projects with MAYBE-PROMPT=nil
* lisp/progmodes/project.el (project-current): Only return
transient projects when called with non-nil MAYBE-PROMPT.
Also only update the known projects lists in this case.
(https://lists.gnu.org/archive/html/emacs-devel/2020-05/msg03375.html).
---
lisp/progmodes/project.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 1f2a4e8..2d0b6c4 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -115,10 +115,11 @@ the user for a different project to look in."
maybe-prompt)
(setq dir (project-prompt-project-dir)
pr (project--find-in-directory dir))))
- (if pr
- (project--add-to-project-list-front pr)
- (project--remove-from-project-list dir)
- (setq pr (cons 'transient dir)))
+ (when maybe-prompt
+ (if pr
+ (project--add-to-project-list-front pr)
+ (project--remove-from-project-list dir)
+ (setq pr (cons 'transient dir))))
pr))
(defun project--find-in-directory (dir)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 780f674: Don't return transient projects with MAYBE-PROMPT=nil,
Dmitry Gutov <=