2019-04-22 16:34:45 +00:00
|
|
|
$OpenBSD: patch-lisp_vc_vc_el,v 1.4 2019/04/22 16:34:46 jca Exp $
|
2016-10-13 15:57:24 +00:00
|
|
|
|
|
|
|
|
Drop messages that slow down VC with big repositories.
|
|
|
|
|
|
2018-06-08 22:19:20 +00:00
|
|
|
Index: lisp/vc/vc.el
|
|
|
|
|
--- lisp/vc/vc.el.orig
|
|
|
|
|
+++ lisp/vc/vc.el
|
2019-04-22 16:34:45 +00:00
|
|
|
@@ -2940,13 +2940,11 @@ to provide the `find-revision' operation instead."
|
2016-10-13 15:57:24 +00:00
|
|
|
(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
|
