From 5a91b679e390b7ae6eda3eddc75092f4c5833d0c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 24 Aug 1999 02:59:37 +0000
Subject: [PATCH] Fix typo.

---
 v7/src/edwin/shell.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/shell.scm b/v7/src/edwin/shell.scm
index df9a71e99..037fba4aa 100644
--- a/v7/src/edwin/shell.scm
+++ b/v7/src/edwin/shell.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: shell.scm,v 1.20 1999/08/20 20:35:42 cph Exp $
+$Id: shell.scm,v 1.21 1999/08/24 02:59:37 cph Exp $
 
 Copyright (c) 1991-1999 Massachusetts Institute of Technology
 
@@ -157,7 +157,7 @@ Otherwise, one argument `-i' is passed to the shell."
 		   (let ((eoc
 			  (let ((r (match command start)))
 			    (and r
-				 (re-match-end-index r)))))
+				 (re-match-end-index 0 r)))))
 		     (cond ((not eoc) #f)
 			   ((match "\\s *\\(\;\\|$\\)" eoc) "")
 			   ((match "\\s +\\([^ \t\;]+\\)\\s *\\(\;\\|$\\)" eoc)
-- 
2.25.1