From 06226ca389970abb5319d72bfb48e7f77e74d724 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 Jun 2005 01:51:23 +0000
Subject: [PATCH] When processing "Eval" bindings, make sure buffer is
 selected.

---
 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 b3a5af258..7fac8ac0b 100644
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,10 +1,10 @@
 #| -*-Scheme-*-
 
-$Id: fileio.scm,v 1.165 2004/02/17 04:59:29 cph Exp $
+$Id: fileio.scm,v 1.166 2005/06/10 01:51:23 cph Exp $
 
 Copyright 1986,1989,1991,1992,1993,1994 Massachusetts Institute of Technology
 Copyright 1995,1997,1999,2000,2001,2002 Massachusetts Institute of Technology
-Copyright 2003,2004 Massachusetts Institute of Technology
+Copyright 2003,2004,2005 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -446,7 +446,9 @@ after you find a file.  If you explicitly request such a scan with
 				   (continuation #f))
 			       (lambda ()
 				 (if (string-ci=? var "Eval")
-				     (evaluate val)
+				     (with-selected-buffer buffer
+				       (lambda ()
+					 (evaluate val)))
 				     (define-variable-local-value! buffer
 					 (name->variable (intern var))
 				       (evaluate val))))))))
-- 
2.25.1