From 2cdb2c1c37bce7764d30dacff5984ef9a7c26c6a Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 15 Aug 1994 20:21:23 +0000
Subject: [PATCH] Eliminate prefix spacing for READ input-port operation on
 interaction buffer.

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

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index 962c36ec7..0bbdde9a4 100644
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: intmod.scm,v 1.82 1994/08/15 20:12:06 cph Exp $
+;;;	$Id: intmod.scm,v 1.83 1994/08/15 20:21:23 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -807,7 +807,6 @@ If this is an error, the debugger examines the error condition."
 
 (define (operation/read port parser-table)
   parser-table
-  (standard-prompt-spacing port)
   (read-expression port (nearest-cmdl/level)))
 
 (define read-expression
@@ -914,7 +913,7 @@ If this is an error, the debugger examines the error condition."
 	      (thunk)
 	      (remove-select-buffer-hook buffer hook))))
 	(add-select-buffer-hook buffer hook))))
-
+
 (define (operation/prompt-for-command-expression port prompt level)
   (parse-command-prompt port prompt)
   (read-expression port level))
-- 
2.25.1