From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 18 Nov 1993 15:11:42 +0000 (+0000)
Subject: Split calls to add-gc-daemon! into calls to add-gc-daemon!/no-restore
X-Git-Tag: 20090517-FFI~7477
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1af7f6815ea679417548b157c88fdc6cbbebc31b;p=mit-scheme.git

Split calls to add-gc-daemon! into calls to add-gc-daemon!/no-restore
and add-event-receiver! event:after-restore ...
---

diff --git a/v7/src/edwin/editor.scm b/v7/src/edwin/editor.scm
index e3ad79a50..3fd012cb9 100644
--- a/v7/src/edwin/editor.scm
+++ b/v7/src/edwin/editor.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: editor.scm,v 1.233 1993/10/27 23:29:05 cph Exp $
+;;;	$Id: editor.scm,v 1.234 1993/11/18 15:11:36 gjr Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-1993 Massachusetts Institute of Technology
 ;;;
@@ -276,7 +276,8 @@ with the contents of the startup message."
 	    ((null? buffers))
 	  (clean-group-marks! (buffer-group (car buffers)))))))
 
-(add-gc-daemon! editor-gc-daemon)
+(add-gc-daemon!/no-restore editor-gc-daemon)
+(add-event-receiver! event:after-restore editor-gc-daemon)
 
 (define (internal-error-handler condition)
   (cond ((and (eq? condition-type:primitive-procedure-error
diff --git a/v7/src/edwin/undo.scm b/v7/src/edwin/undo.scm
index e01c8cc24..6ba2bd277 100644
--- a/v7/src/edwin/undo.scm
+++ b/v7/src/edwin/undo.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: undo.scm,v 1.56 1993/10/05 23:05:35 cph Exp $
+;;;	$Id: undo.scm,v 1.57 1993/11/18 15:11:42 gjr Exp $
 ;;;
 ;;;	Copyright (c) 1985, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -201,7 +201,8 @@ which includes both the saved text and other data."
 	     (words->bytes (ref-variable undo-limit buffer))
 	     (words->bytes (ref-variable undo-strong-limit buffer)))))))))
 
-(add-gc-daemon! truncate-buffer-undo-lists!)
+(add-gc-daemon!/no-restore truncate-buffer-undo-lists!)
+(add-event-receiver! event:after-restore truncate-buffer-undo-lists!)
 
 (define (truncate-undo-data! undo-data min-size max-size)
   (letrec