Try harder to restore the window configuration to what it was before

the log buffer was popped up.

diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm
index 490ca60eb6534f3e765aaa3fb32f06243e86d492..57fde56e6b63818669063abc693746e6a0a83fa1 100644 (file)
--- a/v7/src/edwin/vc.scm
+++ b/v7/src/edwin/vc.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: vc.scm,v 1.64 2000/04/07 19:54:21 cph Exp $
+;;; $Id: vc.scm,v 1.65 2000/04/07 19:57:55 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-2000 Massachusetts Institute of Technology
 ;;;
@@ -1064,7 +1064,8 @@ There is a special command, `*l', to mark all files currently locked.
            ;; the comment.
            (if (not (vc-dired-buffer? parent-buffer))
                (vc-save-buffer parent-buffer #t))
-           (pop-up-buffer parent-buffer #t)))
+           (if (not (buffer-visible? parent-buffer))
+               (pop-up-buffer parent-buffer #t))))
       ;; If a new window was created to hold the log buffer, and the log
       ;; buffer is still selected in that window, delete it.
       (let ((log-window (weak-car log-window)))