From 9a53ee2418464ecf76bfbff1106a609d72be7f6f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 18 Oct 1993 23:19:30 +0000 Subject: [PATCH] Don't invoke variable assignment daemons if the editor is not running. --- v7/src/edwin/comman.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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)) -- 2.25.1