Mercurial > emacs

diff lisp/vc.el @ 8290:f95e050e272f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
At compile time, require dired. (vc-finish-logentry): Use the proper files buffer for vc-buffer-sync.
author Richard M. Stallman <rms@gnu.org>
date Tue, 19 Jul 1994 22:30:06 +0000
parents 189d7c4eaf68
children a61f6295ee0e
line wrap: on
line diff
--- a/lisp/vc.el	Tue Jul 19 22:16:18 1994 +0000
+++ b/lisp/vc.el	Tue Jul 19 22:30:06 1994 +0000
@@ -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 @@
 	))
   ;; 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