From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 Apr 2000 19:53:16 +0000 (+0000)
Subject: POP-UP-BUFFER could return a window that wasn't popped up.
X-Git-Tag: 20090517-FFI~4084
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bd553dc661c996ff5e176009b3bfe92bc5d895d7;p=mit-scheme.git

POP-UP-BUFFER could return a window that wasn't popped up.
---

diff --git a/v7/src/edwin/wincom.scm b/v7/src/edwin/wincom.scm
index df09158b2..4de840ae4 100644
--- a/v7/src/edwin/wincom.scm
+++ b/v7/src/edwin/wincom.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: wincom.scm,v 1.124 2000/04/03 16:55:33 cph Exp $
+;;; $Id: wincom.scm,v 1.125 2000/04/07 19:53:16 cph Exp $
 ;;;
-;;; Copyright (c) 1987, 1989-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1987, 1989-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -497,8 +497,7 @@ Also kills any pop up window it may have created."
     (define (maybe-record-window window)
       (weak-set-car! *minibuffer-scroll-window* window)
       (if select? (select-window window))
-      (and (eq? window (weak-car *previous-popped-up-window*))
-	   window))
+      #f)
 
     (define (find-visible-window buffer)
       (let loop ((windows (buffer-windows buffer)))