From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sat, 26 Jul 2025 12:05:44 +0000 (+0100)
Subject: * lisp/vc/vc.el (vc-dir-status-files): Fix filtering on VC status.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6d9ad6b0a64002fb2809ba9de42c3e0e440d5353;p=emacs.git

* lisp/vc/vc.el (vc-dir-status-files): Fix filtering on VC status.

(cherry picked from commit 88337345f51f62d843d34fba98e1f7aedcc79895)
---

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index d46a2c589f1..ae1b3cfafee 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -4353,11 +4353,14 @@ BACKEND is defaulted by calling `vc-responsible-backend' on DIRECTORY."
                        (lambda (entries &optional more-to-come)
                          (let (entry)
                            (while (setq entry (pop entries))
-                             ;; We shouldn't actually get any
-                             ;; `up-to-date' or `ignored' entries back,
-                             ;; but just in case, pass through a filter.
-                             (unless (memq (cadr entry)
-                                           '(up-to-date ignored))
+                             (unless (and (not files)
+                                          ;; In this case we shouldn't
+                                          ;; actually get any
+                                          ;; `up-to-date' or `ignored'
+                                          ;; entries back, but just in
+                                          ;; case, filter them.
+                                          (memq (cadr entry)
+                                                '(up-to-date ignored)))
                                (push entry results))))
                          (setq morep more-to-come)))
       (while morep (accept-process-output)))