* 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 d46a2c589f1b5a7c7a76c26c83eb8472cf974712..ae1b3cfafee8f6f8305324a9bcad1504f9b4ee44 100644 (file)
--- 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)))