From 64f3c79f225c3f041a5fa06b97ad3e4490a87ede Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 7 Mar 1994 19:01:15 +0000 Subject: [PATCH] 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. --- v7/src/edwin/wincom.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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")) -- 2.25.1