martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

vc-file-tree-walk: Stop emitting messages

Browse Source 
* lisp/vc/vc.el (vc-file-tree-walk, vc-file-tree-walk-internal):
Stop emitting messages about traversing directories.
This commit is contained in:
Sean Whitton
2026-04-16 16:50:32 -04:00
parent 2259c116ae
commit f6bb77270f
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/vc/vc.el
View File

@@ -6057,13 +6057,11 @@ except that this command works only in file-visiting buffers."
(defun vc-file-tree-walk (dirname func &rest args)
"Walk recursively through DIRNAME.
Invoke FUNC f ARGS on each VC-managed file f underneath it."
(vc-file-tree-walk-internal (expand-file-name dirname) func args)
(message "Traversing directory %s...done" dirname))
(vc-file-tree-walk-internal (expand-file-name dirname) func args))
(defun vc-file-tree-walk-internal (file func args)
(if (not (file-directory-p file))
(when (vc-registered file) (apply func file args))
(message "Traversing directory %s..." (abbreviate-file-name file))
(let ((dir (file-name-as-directory file)))
(mapcar
(lambda (f) (or