From: Dmitry Gutov <dmitry@gutov.dev>
Date: Sun, 5 May 2024 17:19:48 +0000 (+0300)
Subject: project--vc-list-files: Use vc-git-command for better error reporting
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~1638
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=8d3e4e823f21d5a70f7e6c51e161b2322f1bccc3;p=emacs.git

project--vc-list-files: Use vc-git-command for better error reporting

* lisp/progmodes/project.el (project--vc-list-files):
Use 'vc-git-command' for better error reporting
(https://lists.gnu.org/archive/html/emacs-devel/2024-05/msg00399.html).
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index a3181340411..52fe4df9080 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -648,7 +648,7 @@ See `project-vc-extra-root-markers' for the marker value format.")
        (list (project-root project)))))
 
 (declare-function vc-git--program-version "vc-git")
-(declare-function vc-git--run-command-string "vc-git")
+(declare-function vc-git-command "vc-git")
 (declare-function vc-hg-command "vc-hg")
 
 (defun project--vc-list-files (dir backend extra-ignores)
@@ -701,7 +701,8 @@ See `project-vc-extra-root-markers' for the marker value format.")
                             file
                           (concat default-directory file))))
                     (split-string
-                     (apply #'vc-git--run-command-string nil "ls-files" args)
+                     (with-output-to-string
+                       (apply #'vc-git-command standard-output 0 nil "ls-files" args))
                      "\0" t))))
        (when (project--vc-merge-submodules-p default-directory)
          ;; Unfortunately, 'ls-files --recurse-submodules' conflicts with '-o'.