From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 Mar 1994 19:01:15 +0000 (+0000)
Subject: Change OTHER-WINDOW-INTERACTIVE to not use multiple screens unless the
X-Git-Tag: 20090517-FFI~7265
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=64f3c79f225c3f041a5fa06b97ad3e4490a87ede;p=mit-scheme.git

Change OTHER-WINDOW-INTERACTIVE to not use multiple screens unless the
editor variable USE-MULTIPLE-SCREENS is true.  Since the default
setting for this variable is false, the default behavior is like Emacs
19, which I find less confusing and more useful.
---

diff --git a/v7/src/edwin/wincom.scm b/v7/src/edwin/wincom.scm
index fe26c0e6d..2cf4b2743 100644
--- a/v7/src/edwin/wincom.scm
+++ b/v7/src/edwin/wincom.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: wincom.scm,v 1.114 1992/11/14 01:01:25 cph Exp $
+;;;	$Id: wincom.scm,v 1.115 1994/03/07 19:01:15 cph Exp $
 ;;;
-;;;	Copyright (c) 1987, 1989-92 Massachusetts Institute of Technology
+;;;	Copyright (c) 1987, 1989-94 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -356,9 +356,10 @@ ARG lines.  No arg means split equally."
   (let ((window
 	 (let ((window (other-window n)))
 	   (if (current-window? window)
-	       (let ((screen (other-screen (selected-screen) false)))
-		 (and screen
-		      (screen-selected-window screen)))
+	       (and (use-multiple-screens?)
+		    (let ((screen (other-screen (selected-screen) false)))
+		      (and screen
+			   (screen-selected-window screen))))
 	       window))))
     (if (not window)
 	(editor-error "No other window"))