From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 Oct 1996 20:17:28 +0000 (+0000)
Subject: When creating a new frame, don't select it -- attempting to do this
X-Git-Tag: 20090517-FFI~5357
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ebb86d5291b91a9716ff8fa0402237d6136c496a;p=mit-scheme.git

When creating a new frame, don't select it -- attempting to do this
causes a race condition that can cause X to signal an error.  Instead,
rely on the window manager to select the window if that is
appropriate.
---

diff --git a/v7/src/edwin/wincom.scm b/v7/src/edwin/wincom.scm
index 0e5bf7fc0..3354df3f7 100644
--- a/v7/src/edwin/wincom.scm
+++ b/v7/src/edwin/wincom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: wincom.scm,v 1.120 1996/05/11 08:44:28 cph Exp $
+;;;	$Id: wincom.scm,v 1.121 1996/10/08 20:17:28 cph Exp $
 ;;;
 ;;;	Copyright (c) 1987, 1989-96 Massachusetts Institute of Technology
 ;;;
@@ -403,15 +403,12 @@ or if the window is the only window of its frame."
 
 (define (select-buffer-other-screen buffer)
   (if (multiple-screens?)
-      (select-screen
-       (let ((screen (other-screen (selected-screen) 1 #t)))
-	 (if screen
-	     (begin
-	       (select-buffer-in-window buffer
-					(screen-selected-window screen)
-					true)
-	       screen)
-	     (make-screen buffer))))
+      (let ((screen (other-screen (selected-screen) 1 #t)))
+	(if screen
+	    (select-buffer-in-window buffer
+				     (screen-selected-window screen)
+				     true)
+	    (make-screen buffer)))
       (editor-error "Display doesn't support multiple screens")))
 
 (define (shrink-window-if-larger-than-buffer window)