From d36301447c2d60f50171f381af2f56c11829ffcf Mon Sep 17 00:00:00 2001
From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Tue, 17 Sep 1991 14:05:09 +0000
Subject: [PATCH] Change NORMAL-MODE to evaluate variables in "Edwin
 Variables:" section of a buffer in the (edwin) package.

---
 v7/src/edwin/fileio.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index b8f266e59..c076f4fce 100644
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/fileio.scm,v 1.101 1991/05/16 23:13:21 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/fileio.scm,v 1.102 1991/09/17 14:05:09 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -218,9 +218,11 @@ after you find a file.  If you explicitly request such a scan with
 			  (pathname-name-string (buffer-pathname buffer)))))
 		    (parse-local-variables buffer start end)))))))))
 
+(define edwin-environment (->environment '(edwin)))
+
 (define (evaluate sexp)
-  (scode-eval (syntax sexp system-global-syntax-table)
-	      system-global-environment))
+  (scode-eval (syntax sexp edwin-syntax-table)
+	      edwin-environment))
 
 (define (parse-local-variables buffer start end)
   (let ((prefix (extract-string (line-start start 0) start))
-- 
2.25.1