From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Oct 2000 04:01:16 +0000 (+0000)
Subject: Deselect any buffer layout before popping up a new window.
X-Git-Tag: 20090517-FFI~3206
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e1220f1071d96665b9d85671f8bd8848eb73ecec;p=mit-scheme.git

Deselect any buffer layout before popping up a new window.
---

diff --git a/v7/src/edwin/wincom.scm b/v7/src/edwin/wincom.scm
index e41ae4a81..d7ed9c194 100644
--- a/v7/src/edwin/wincom.scm
+++ b/v7/src/edwin/wincom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: wincom.scm,v 1.129 2000/10/26 04:36:47 cph Exp $
+;;; $Id: wincom.scm,v 1.130 2000/10/27 04:01:16 cph Exp $
 ;;;
 ;;; Copyright (c) 1987, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -543,6 +543,7 @@ Also kills any pop up window it may have created."
 	  (let ((limit (* 2 (ref-variable window-min-height))))
 	    (if (< (ref-variable split-height-threshold) limit)
 		(set-variable! split-height-threshold limit))
+	    (maybe-deselect-buffer-layout screen)
 	    (cond ((and (use-multiple-screens?)
 			(other-screen screen 1 #t))
 		   => (lambda (screen)