From a0fa87d799e1064b318509c645c0f6189a50e021 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 7 Apr 2000 19:57:55 +0000 Subject: [PATCH] Try harder to restore the window configuration to what it was before the log buffer was popped up. --- v7/src/edwin/vc.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm index 490ca60eb..57fde56e6 100644 --- 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))) -- 2.25.1