From: Dmitry Gutov <dgutov@yandex.ru>
Date: Mon, 31 Oct 2022 00:48:16 +0000 (+0200)
Subject: Speed up vc-default-checkin-patch a little
X-Git-Tag: emacs-29.0.90~1616^2~370
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1712dec0c030c6fb64968a9d937b02e3cfe79e87;p=emacs.git

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).
---

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)