From c7d7c6048863f1c4ba55fba3892fb9528907bc7b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 12 May 1996 02:34:30 +0000 Subject: [PATCH] Wrap debugger extent with CLEANUP-POP-UP-BUFFERS. This allows the debugger to be called at times when there are active popped-up buffers. Previously, quitting from the debugger in this situation would cause the previously popped-up buffer to be hidden. --- v7/src/edwin/debug.scm | 26 ++++++++++++++------------ 1 file changed, 14 insertions(+), 12 deletions(-) diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm index 9b9b32ce9..69b34f255 100644 --- a/v7/src/edwin/debug.scm +++ b/v7/src/edwin/debug.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: debug.scm,v 1.37 1996/04/24 18:35:06 cph Exp $ +;;; $Id: debug.scm,v 1.38 1996/05/12 02:34:30 cph Exp $ ;;; ;;; Copyright (c) 1992-96 Massachusetts Institute of Technology ;;; @@ -977,17 +977,19 @@ The buffer below describes the current subproblem or reduction. "Another debugger buffer exists. Delete it") (ref-variable debugger-one-at-a-time?))) (kill-buffer (car buffers)))) - (let ((buffer (continuation-browser-buffer object))) - (let ((thread (and (not (default-object? thread)) thread))) - (if thread - (buffer-put! buffer 'THREAD thread))) - (let ((screen (make-debug-screen buffer))) - (if screen - (let ((window (screen-window0 screen))) - (select-buffer-in-window buffer window #t) - (select-window window)) - (select-buffer buffer)))) - ((ref-command browser-select-line))) + (cleanup-pop-up-buffers + (lambda () + (let ((buffer (continuation-browser-buffer object))) + (let ((thread (and (not (default-object? thread)) thread))) + (if thread + (buffer-put! buffer 'THREAD thread))) + (let ((screen (make-debug-screen buffer))) + (if screen + (let ((window (screen-window0 screen))) + (select-buffer-in-window buffer window #t) + (select-window window)) + (select-buffer buffer)))) + ((ref-command browser-select-line))))) (define (make-debug-screen buffer) (and (multiple-screens?) -- 2.25.1