From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 1 Feb 1998 05:13:23 +0000 (+0000)
Subject: Move with-saved-configuration to Edwin proper.  This will eliminate
X-Git-Tag: 20090517-FFI~4877
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c28fe1c73233eb9b5c37ec99c1de85d52a150cb6;p=mit-scheme.git

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.
---

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))))