From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 17 Sep 1992 23:18:04 +0000 (+0000)
Subject: In TYPEIN-EDIT-OTHER-WINDOW, don't return a window that has been
X-Git-Tag: 20090517-FFI~8953
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b211559c81e4ac305d6b46e11f984aa97496d913;p=mit-scheme.git

In TYPEIN-EDIT-OTHER-WINDOW, don't return a window that has been
deleted.  Always return *some* window, even if all of the saved
windows has been deleted.
---

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index bdc348f77..bb8444db6 100644
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/prompt.scm,v 1.154 1992/04/06 20:14:08 bal Exp $
+;;;	$Id: prompt.scm,v 1.155 1992/09/17 23:18:04 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -114,10 +114,13 @@
 
 (define (typein-edit-other-window)
   (let loop ((windows typein-saved-windows))
-    (and (not (null? windows))
-	 (if (typein-window? (car windows))
-	     (loop (cdr windows))
-	     (car windows)))))
+    (cond ((null? windows)
+	   (window0))
+	  ((and (not (typein-window? (car windows)))
+		(window-visible? (car windows)))
+	   (car windows))
+	  (else
+	   (loop (cdr windows))))))
 
 (define-variable enable-recursive-minibuffers
   "True means allow minibuffers to invoke commands that use recursive minibuffers."