; Relocate comment along with the relocated code.HEADmaster

The code was moved, but without its comment, in this change:

    Author:     Dmitry Gutov <dgutov@yandex.ru>
    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).

1 files changed, 1 insertions, 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