Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Sean Whitton 2025-07-26 13:05:44 +01:00
parent 5bc75585d5
commit 88337345f5
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/vc/vc.el
View file

@ -4358,11 +4358,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)))