From b7dedde7aa1d2765f09fbee54cf1cded29f40b86 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 28 Feb 2026 21:16:49 +0000 Subject: [PATCH] ; Relocate comment along with the relocated code. The code was moved, but without its comment, in this change: Author: Dmitry Gutov AuthorDate: Thu May 28 02:16:00 2015 +0300 Delete the old process in vc-setup-buffer * lisp/vc/vc-dispatcher.el (vc-setup-buffer): Delete the old process here. (vc-do-command): Rather than here (bug#20608). --- lisp/vc/vc-dispatcher.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el index 9baf85bd5b2..13ee1101a3b 100644 --- a/lisp/vc/vc-dispatcher.el +++ b/lisp/vc/vc-dispatcher.el @@ -188,6 +188,7 @@ Another is that undo information is not kept." (olddir default-directory) (buf (get-buffer-create buf))) (set-buffer buf) + ;; If there's some previous async process still running, just kill it. (let ((oldproc (get-buffer-process (current-buffer)))) ;; If we wanted to wait for oldproc to finish before doing ;; something, we'd have used vc-eval-after. @@ -488,8 +489,6 @@ that is inserted into the command line before the filename." (squeezed (remq nil flags)) (inhibit-read-only t) (status 0)) - ;; If there's some previous async process still running, - ;; just kill it. (when files (setq squeezed (nconc squeezed files))) (let (;; Since some functions need to parse the output