From f6bb77270f01b10931782152a02253f55626bf62 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 16 Apr 2026 16:50:32 -0400 Subject: [PATCH] vc-file-tree-walk: Stop emitting messages * lisp/vc/vc.el (vc-file-tree-walk, vc-file-tree-walk-internal): Stop emitting messages about traversing directories. --- lisp/vc/vc.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 176620b1aba..54ab49a9032 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -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