1 files changed, 20 insertions, 0 deletions

diff --git a/editors/emacs/patches/patch-lisp_vc_vc_el b/editors/emacs/patches/patch-lisp_vc_vc_el
new file mode 100644
index 0000000..93cf9d1
--- /dev/null
+++ b/editors/emacs/patches/patch-lisp_vc_vc_el
@@ -0,0 +1,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