From 1712dec0c030c6fb64968a9d937b02e3cfe79e87 Mon Sep 17 00:00:00 2001
From: Dmitry Gutov <dgutov@yandex.ru>
Date: Mon, 31 Oct 2022 02:48:16 +0200
Subject: [PATCH] Speed up vc-default-checkin-patch a little
* lisp/vc/vc.el (vc-default-checkin-patch): Drop some
'revert-buffer' calls to speed up the process a little (bug#52349).
---
lisp/vc/vc.el | 3 ---
1 file changed, 3 deletions(-)
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index df51f52bc7c..3e78b8cfe96 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -1715,9 +1715,6 @@ Runs the normal hooks `vc-before-checkin-hook' and `vc-checkin-hook'."
"--no-backup-if-mismatch"
"-i" "-"))
(user-error "Patch failed: %s" (buffer-string))))
- (dolist (f files)
- (with-current-buffer (get-file-buffer f)
- (revert-buffer t t t)))
(vc-call-backend backend 'checkin files comment))
(dolist (f files)
(copy-file (expand-file-name f tmpdir)
--
2.39.5