From 6d9ad6b0a64002fb2809ba9de42c3e0e440d5353 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 26 Jul 2025 13:05:44 +0100 Subject: [PATCH] * lisp/vc/vc.el (vc-dir-status-files): Fix filtering on VC status. (cherry picked from commit 88337345f51f62d843d34fba98e1f7aedcc79895) --- lisp/vc/vc.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) 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))) -- 2.39.5