blob: 93cf9d119dddb28a840118dfc467614b6372b8e2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Drop messages that slow down VC with big repositories.
Index: lisp/vc/vc.el
--- lisp/vc/vc.el.orig
+++ lisp/vc/vc.el
@@ -3193,13 +3193,11 @@ to provide the `find-revision' operation instead."
(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-backend file) (apply func file args))
- (message "Traversing directory %s..." (abbreviate-file-name file))
(let ((dir (file-name-as-directory file)))
(mapcar
(lambda (f) (or
|
