From b211559c81e4ac305d6b46e11f984aa97496d913 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 17 Sep 1992 23:18:04 +0000 Subject: [PATCH] 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. --- v7/src/edwin/prompt.scm | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) 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." -- 2.25.1