# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 774092041 0
# Node ID 189d7c4eaf68c36bbe23a6694fc5d6df26c9c02a
# Parent  4445019726871768da037b4dd86af6f430af3589
(vc-finish-logentry): Use the value of vc-log-after-operation-hook of
*VC-log* buffer instead of vc-parent-buffer.

diff -r 444501972687 -r 189d7c4eaf68 lisp/vc.el
--- 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