summaryrefslogtreecommitdiff
path: root/editors/emacs/patches/patch-lisp_vc_vc_el
diff options
context:
space:
mode:
Diffstat (limited to 'editors/emacs/patches/patch-lisp_vc_vc_el')
-rw-r--r--editors/emacs/patches/patch-lisp_vc_vc_el20
1 files changed, 0 insertions, 20 deletions
diff --git a/editors/emacs/patches/patch-lisp_vc_vc_el b/editors/emacs/patches/patch-lisp_vc_vc_el
deleted file mode 100644
index 93cf9d1..0000000
--- a/editors/emacs/patches/patch-lisp_vc_vc_el
+++ /dev/null
@@ -1,20 +0,0 @@
1Drop messages that slow down VC with big repositories.
2
3Index: lisp/vc/vc.el
4--- lisp/vc/vc.el.orig
5+++ lisp/vc/vc.el
6@@ -3193,13 +3193,11 @@ to provide the `find-revision' operation instead."
7 (defun vc-file-tree-walk (dirname func &rest args)
8 "Walk recursively through DIRNAME.
9 Invoke FUNC f ARGS on each VC-managed file f underneath it."
10- (vc-file-tree-walk-internal (expand-file-name dirname) func args)
11- (message "Traversing directory %s...done" dirname))
12+ (vc-file-tree-walk-internal (expand-file-name dirname) func args))
13
14 (defun vc-file-tree-walk-internal (file func args)
15 (if (not (file-directory-p file))
16 (when (vc-backend file) (apply func file args))
17- (message "Traversing directory %s..." (abbreviate-file-name file))
18 (let ((dir (file-name-as-directory file)))
19 (mapcar
20 (lambda (f) (or