From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 13 Jul 1994 09:34:01 +0000 (+0000)
Subject: (vc-finish-logentry): Use the value of vc-log-after-operation-hook of
X-Git-Tag: emacs-19.34~7616
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e2bef5c3a2fff6cf2b3dd6ba8cbaeb9f135d0a91;p=emacs.git

(vc-finish-logentry): Use the value of vc-log-after-operation-hook of
*VC-log* buffer instead of vc-parent-buffer.
---

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