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 e3ad79a50e668c65209f3cff91bd07bf2b2d5abc..3fd012cb950154aa5dad940a2c14329407920b58 100644 (file)
--- 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)
 \f
 (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 e01c8cc244045832a9248e09637dda5f06f19e3d..6ba2bd277579f87058d2146f7070739c4e97d330 100644 (file)
--- 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!)
 \f
 (define (truncate-undo-data! undo-data min-size max-size)
   (letrec