From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 18 Oct 1993 23:19:30 +0000 (+0000)
Subject: Don't invoke variable assignment daemons if the editor is not running.
X-Git-Tag: 20090517-FFI~7732
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9a53ee2418464ecf76bfbff1106a609d72be7f6f;p=mit-scheme.git

Don't invoke variable assignment daemons if the editor is not running.
---

diff --git a/v7/src/edwin/comman.scm b/v7/src/edwin/comman.scm
index 66c4c9361..06e88b7a3 100644
--- a/v7/src/edwin/comman.scm
+++ b/v7/src/edwin/comman.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: comman.scm,v 1.76 1993/10/15 02:09:17 cph Exp $
+$Id: comman.scm,v 1.77 1993/10/18 23:19:30 cph Exp $
 
 Copyright (c) 1986, 1989-1993 Massachusetts Institute of Technology
 
@@ -179,9 +179,10 @@ of that license should have been included along with this file.
 	(set-variable-assignment-daemons! variable (cons daemon daemons)))))
 
 (define (invoke-variable-assignment-daemons! buffer variable)
-  (do ((daemons (variable-assignment-daemons variable) (cdr daemons)))
-      ((null? daemons))
-    ((car daemons) buffer variable)))
+  (if within-editor?
+      (do ((daemons (variable-assignment-daemons variable) (cdr daemons)))
+	  ((null? daemons))
+	((car daemons) buffer variable))))
 
 (define editor-variables
   (make-string-table 50))