From e1220f1071d96665b9d85671f8bd8848eb73ecec Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Oct 2000 04:01:16 +0000
Subject: [PATCH] Deselect any buffer layout before popping up a new window.

---
 v7/src/edwin/wincom.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)
-- 
2.25.1