aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Eggert1994-01-03 20:53:26 +0000
committerPaul Eggert1994-01-03 20:53:26 +0000
commitb2396d1f39fc4fa43a21893d050b7013e619d91e (patch)
treeaeeed5d8afad3814bc6caae7ae8b681ea3f346b4
parent2e0b53ad3d326c42ec059ac2411ebd083fe66b60 (diff)
downloademacs-b2396d1f39fc4fa43a21893d050b7013e619d91e.tar.gz
emacs-b2396d1f39fc4fa43a21893d050b7013e619d91e.zip
(vc-finish-logentry): Sync the buffer in case the user modified it while
editing the comment.
-rw-r--r--lisp/vc.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/vc.el b/lisp/vc.el
index c469c7ca189..3439b354b24 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -668,6 +668,10 @@ If nil, uses `change-log-default-name'."
668 (setq vc-comment-ring (make-ring vc-maximum-comment-ring-size))) 668 (setq vc-comment-ring (make-ring vc-maximum-comment-ring-size)))
669 (ring-insert vc-comment-ring (buffer-string)) 669 (ring-insert vc-comment-ring (buffer-string))
670 )) 670 ))
671 ;; Sync parent buffer in case the user modified it while editing the comment.
672 (save-excursion
673 (set-buffer vc-parent-buffer)
674 (vc-buffer-sync))
671 ;; OK, do it to it 675 ;; OK, do it to it
672 (if vc-log-operation 676 (if vc-log-operation
673 (save-excursion 677 (save-excursion