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 bdc348f7719b5c044f47055697ecd09b9f0ff44f..bb8444db683e0e1d139337476cb7cb31f274397b 100644 (file)
--- 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))))))
 \f
 (define-variable enable-recursive-minibuffers
   "True means allow minibuffers to invoke commands that use recursive minibuffers."