From c28fe1c73233eb9b5c37ec99c1de85d52a150cb6 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 1 Feb 1998 05:13:23 +0000 Subject: [PATCH] Move with-saved-configuration to Edwin proper. This will eliminate unassigned-variable bug in LOAD-PS-COPY-FILE when running in contexts where "floppy.scm" isn't loaded. --- v7/src/6001/floppy.scm | 19 +------------------ 1 file changed, 1 insertion(+), 18 deletions(-) diff --git a/v7/src/6001/floppy.scm b/v7/src/6001/floppy.scm index 9ef64a868..f0e26a6c3 100644 --- a/v7/src/6001/floppy.scm +++ b/v7/src/6001/floppy.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: floppy.scm,v 1.22 1998/01/23 00:04:52 cph Exp $ +$Id: floppy.scm,v 1.23 1998/02/01 05:13:23 cph Exp $ Copyright (c) 1992-98 Massachusetts Institute of Technology @@ -262,23 +262,6 @@ Answer \"no\" if you want to return to the editor without logging out.") default-floppy-abort-handler thunk)))))))))) -(define (with-saved-configuration thunk) - (let ((screen (selected-screen))) - (let ((configuration (screen-window-configuration screen))) - (fluid-let ((restore-saved-continuation? true)) - (dynamic-wind - (lambda () unspecific) - thunk - (lambda () - (if restore-saved-continuation? - (set-screen-window-configuration! screen configuration)))))))) - -(define (dont-restore-saved-configuration) - (set! restore-saved-continuation? false) - unspecific) - -(define restore-saved-continuation?) - (define (append-string string) (insert-string string (buffer-end (current-buffer)))) -- 2.25.1