emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 15:56:35 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

VC-Dir: Fix removing empty directory entries

Browse source 
* lisp/vc/vc-dir.el (vc-dir-refresh-files): Do another pass to
remove directory entries with no children.  Do not merge to
master.
This commit is contained in:
Sean Whitton 2026-06-25 18:25:20 +01:00
parent 5d15b4522b
commit f2c4c1029d
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/vc/vc-dir.el
View file

@ -1520,7 +1520,19 @@ specific headers."
'up-to-date))
(setf (vc-dir-fileinfo->state info) nil))
(not (vc-dir-fileinfo->needs-update info))))))))))))
(not (vc-dir-fileinfo->needs-update info))))
;; One more pass to remove directory entries with no children.
(let ((inhibit-read-only t)
(crt (ewoc-nth vc-ewoc -1))
(first (ewoc-nth vc-ewoc 0)))
(while (not (eq crt first))
(let ((prev (ewoc-prev vc-ewoc crt)))
(when (and (vc-dir-fileinfo->directory (ewoc-data crt))
(let ((next (ewoc-next vc-ewoc crt)))
(or (null next)
(vc-dir-fileinfo->directory (ewoc-data next)))))
(ewoc-delete vc-ewoc crt))
(setq crt prev))))))))))))
(defun vc-dir-revert-buffer-function (&optional _ignore-auto _noconfirm)
(vc-dir-refresh)