diff options
| -rw-r--r-- | lisp/vc.el | 4 |
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 |