# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738647268 0
# Node ID f2b1d5cc933765b7b484830b4752e768c9709184
# Parent  8199b2047076647638249052545650c0daa0df8d
(vc-finish-logentry): Use delete-windows-on.

diff -r 8199b2047076 -r f2b1d5cc9337 lisp/vc.el
--- a/lisp/vc.el	Sat May 29 03:29:45 1993 +0000
+++ b/lisp/vc.el	Sat May 29 03:47:48 1993 +0000
@@ -622,8 +622,7 @@
     (error "No log operation is pending."))
   ;; Return to "parent" buffer of this checkin and remove checkin window
   (pop-to-buffer vc-parent-buffer)
-  (vc-error-occurred
-   (delete-window (get-buffer-window "*VC-log*")))
+  (delete-windows-on (get-buffer "*VC-log*"))
   (kill-buffer "*VC-log*")
   ;; Now make sure we see the expanded headers
   (if buffer-file-name