From 1712dec0c030c6fb64968a9d937b02e3cfe79e87 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov 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.2