Mercurial > emacs
changeset 8237:189d7c4eaf68
(vc-finish-logentry): Use the value of vc-log-after-operation-hook of
*VC-log* buffer instead of vc-parent-buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 13 Jul 1994 09:34:01 +0000 |
| parents | 444501972687 |
| children | 3b4a76dcecf6 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 10 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Wed Jul 13 05:10:06 1994 +0000 +++ b/lisp/vc.el Wed Jul 13 09:34:01 1994 +0000 @@ -686,15 +686,17 @@ vc-log-version (buffer-string))) (error "No log operation is pending")) - ;; Return to "parent" buffer of this checkin and remove checkin window - (pop-to-buffer vc-parent-buffer) - (let ((logbuf (get-buffer "*VC-log*"))) - (delete-windows-on logbuf) - (kill-buffer logbuf)) - ;; Now make sure we see the expanded headers - (if buffer-file-name + ;; save the vc-log-after-operation-hook of log buffer + (let ((after-hook vc-log-after-operation-hook)) + ;; Return to "parent" buffer of this checkin and remove checkin window + (pop-to-buffer vc-parent-buffer) + (let ((logbuf (get-buffer "*VC-log*"))) + (delete-windows-on logbuf) + (kill-buffer logbuf)) + ;; Now make sure we see the expanded headers + (if buffer-file-name (vc-resynch-window buffer-file-name vc-keep-workfiles t)) - (run-hooks vc-log-after-operation-hook)) + (run-hooks after-hook))) ;; Code for access to the comment ring