# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 885094025 0
# Node ID e3498221274f01b94789cb03de728b6a2feca65f
# Parent  deb167dcda0b2aabb34f8d61ca52cd8ba4a600e7
(vc-finish-logentry): Move killing the log buffer after
the operation in case that fails.

diff -r deb167dcda0b -r e3498221274f lisp/vc.el
--- a/lisp/vc.el	Sun Jan 18 03:21:25 1998 +0000
+++ b/lisp/vc.el	Sun Jan 18 03:27:05 1998 +0000
@@ -1182,17 +1182,18 @@
 	(log-version vc-log-version)
 	(log-entry (buffer-string))
 	(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))
     ;; OK, do it to it
     (save-excursion
       (funcall log-operation 
 	       log-file
 	       log-version
 	       log-entry))
+    ;; Remove checkin window (after the checkin so that if that fails
+    ;; we don't zap the *VC-log* buffer and the typing therein).
+    (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))