From 5c6f8be0d2b32f0ba90e24d0b93fab1ec750c794 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Tue, 19 Jul 1994 22:30:06 +0000
Subject: [PATCH] At compile time, require dired. (vc-finish-logentry): Use the
 proper files buffer for vc-buffer-sync.

---
 lisp/vc.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/vc.el b/lisp/vc.el
index 07f37334c65..ca2eda59cf2 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -61,6 +61,7 @@
 
 (require 'vc-hooks)
 (require 'ring)
+(eval-when-compile (require 'dired))	; for dired-map-over-marks macro
 
 (if (not (assoc 'vc-parent-buffer minor-mode-alist))
     (setq minor-mode-alist
@@ -676,8 +677,11 @@ If nil, uses `change-log-default-name'."
 	))
   ;; Sync parent buffer in case the user modified it while editing the comment.
   (save-excursion
-    (set-buffer vc-parent-buffer)
-    (vc-buffer-sync))
+    (let ((buffer (get-file-buffer vc-log-file)))
+      (if buffer
+	  (progn
+	    (set-buffer buffer)
+	    (vc-buffer-sync)))))
   ;; OK, do it to it
   (if vc-log-operation
       (save-excursion
-- 
2.39.5