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 fe26c0e6d364f0291ff61094f28223424f1d80a8..2cf4b2743d08c9290d6c3c6a3d256747316d87f2 100644 (file)
--- 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"))