From e2bef5c3a2fff6cf2b3dd6ba8cbaeb9f135d0a91 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 13 Jul 1994 09:34:01 +0000 Subject: [PATCH] (vc-finish-logentry): Use the value of vc-log-after-operation-hook of *VC-log* buffer instead of vc-parent-buffer. --- lisp/vc.el | 18 ++++++++++-------- 1 file 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'." 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