diff options
| author | Richard M. Stallman | 1994-07-13 09:34:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-07-13 09:34:01 +0000 |
| commit | e2bef5c3a2fff6cf2b3dd6ba8cbaeb9f135d0a91 (patch) | |
| tree | 17f30094e0f0b221a22d7154b315750972aa7bc9 | |
| parent | 123ec94d833c7aff24a0ee081abc62dfc0f892a6 (diff) | |
| download | emacs-e2bef5c3a2fff6cf2b3dd6ba8cbaeb9f135d0a91.tar.gz emacs-e2bef5c3a2fff6cf2b3dd6ba8cbaeb9f135d0a91.zip | |
(vc-finish-logentry): Use the value of vc-log-after-operation-hook of
*VC-log* buffer instead of vc-parent-buffer.
| -rw-r--r-- | lisp/vc.el | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 9ce870752be..07f37334c65 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -686,15 +686,17 @@ If nil, uses `change-log-default-name'." | |||
| 686 | vc-log-version | 686 | vc-log-version |
| 687 | (buffer-string))) | 687 | (buffer-string))) |
| 688 | (error "No log operation is pending")) | 688 | (error "No log operation is pending")) |
| 689 | ;; Return to "parent" buffer of this checkin and remove checkin window | 689 | ;; save the vc-log-after-operation-hook of log buffer |
| 690 | (pop-to-buffer vc-parent-buffer) | 690 | (let ((after-hook vc-log-after-operation-hook)) |
| 691 | (let ((logbuf (get-buffer "*VC-log*"))) | 691 | ;; Return to "parent" buffer of this checkin and remove checkin window |
| 692 | (delete-windows-on logbuf) | 692 | (pop-to-buffer vc-parent-buffer) |
| 693 | (kill-buffer logbuf)) | 693 | (let ((logbuf (get-buffer "*VC-log*"))) |
| 694 | ;; Now make sure we see the expanded headers | 694 | (delete-windows-on logbuf) |
| 695 | (if buffer-file-name | 695 | (kill-buffer logbuf)) |
| 696 | ;; Now make sure we see the expanded headers | ||
| 697 | (if buffer-file-name | ||
| 696 | (vc-resynch-window buffer-file-name vc-keep-workfiles t)) | 698 | (vc-resynch-window buffer-file-name vc-keep-workfiles t)) |
| 697 | (run-hooks vc-log-after-operation-hook)) | 699 | (run-hooks after-hook))) |
| 698 | 700 | ||
| 699 | ;; Code for access to the comment ring | 701 | ;; Code for access to the comment ring |
| 700 | 702 | ||