]> git.eshelyaron.com Git - emacs.git/commitdiff
Post-review additions
authorDmitry Gutov <dgutov@yandex.ru>
Sat, 4 Jun 2022 00:42:00 +0000 (03:42 +0300)
committerDmitry Gutov <dgutov@yandex.ru>
Sat, 4 Jun 2022 00:42:00 +0000 (03:42 +0300)
* lisp/progmodes/project.el (project-vc-include-untracked):
Add :version.
(project--vc-list-files): Use 'and' instead of 'when'.

lisp/progmodes/project.el

index 60fbb302f7bef9cff03f64a204b9802c52738911..859ad2e047bd29f2f0c0bffba5abe598afe7eb33 100644 (file)
@@ -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