Mercurial > emacs
comparison lisp/vc.el @ 5428:e66b058ec9f6
(vc-finish-logentry): Sync the buffer in case the user modified it while
editing the comment.
author | Paul Eggert <eggert@twinsun.com> |
---|---|
date | Mon, 03 Jan 1994 20:53:26 +0000 |
parents | b3a78854c791 |
children | b785c3474b47 |
comparison
equal
deleted
inserted
replaced
5427:cde2cde50796 | 5428:e66b058ec9f6 |
---|---|
666 ;; Record the comment in the comment ring | 666 ;; Record the comment in the comment ring |
667 (if (null vc-comment-ring) | 667 (if (null vc-comment-ring) |
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 |
674 (funcall vc-log-operation | 678 (funcall vc-log-operation |
675 vc-log-file | 679 vc-log-file |