[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 7fed00f9ba: Post-review additions
From: |
Dmitry Gutov |
Subject: |
master 7fed00f9ba: Post-review additions |
Date: |
Fri, 3 Jun 2022 20:42:09 -0400 (EDT) |
branch: master
commit 7fed00f9ba9f4838633009037a156aa439a6b069
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>
Post-review additions
* lisp/progmodes/project.el (project-vc-include-untracked):
Add :version.
(project--vc-list-files): Use 'and' instead of 'when'.
---
lisp/progmodes/project.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 60fbb302f7..859ad2e047 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -385,6 +385,7 @@ you might have to restart Emacs to see the effect."
(defcustom project-vc-include-untracked t
"When non-nil, the VC project backend includes untracked files."
:type 'boolean
+ :version "29.1"
:safe #'booleanp)
;; FIXME: Using the current approach, major modes are supposed to set
@@ -519,7 +520,7 @@ backend implementation of `project-external-roots'.")
files)
(setq args (append args
'("-c" "--exclude-standard")
- (when project-vc-include-untracked '("-o"))))
+ (and project-vc-include-untracked '("-o"))))
(when extra-ignores
(setq args (append args
(cons "--"
@@ -571,7 +572,7 @@ backend implementation of `project-external-roots'.")
(delete-consecutive-dups files)))
(`Hg
(let ((default-directory (expand-file-name (file-name-as-directory dir)))
- (args (list (concat "-mcard" (when project-vc-include-untracked
"u"))
+ (args (list (concat "-mcard" (and project-vc-include-untracked "u"))
"--no-status"
"-0")))
(when extra-ignores
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 7fed00f9ba: Post-review additions,
Dmitry Gutov <=