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 |