From d296bfb1d91dcdaaaa32e7022096dfa6c086ea39 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Jun 2000 03:43:46 +0000
Subject: [PATCH] Fix fencepost error.

---
 v7/src/edwin/fill.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/fill.scm b/v7/src/edwin/fill.scm
index 9da518b18..5c6aa8c2d 100644
--- a/v7/src/edwin/fill.scm
+++ b/v7/src/edwin/fill.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: fill.scm,v 1.65 2000/06/15 03:17:57 cph Exp $
+;;; $Id: fill.scm,v 1.66 2000/06/15 03:43:46 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -544,13 +544,13 @@ With argument, turn auto-fill mode on iff argument is positive."
 		 (v
 		  (group-column->index group
 				       ls-index
-				       end-index
+				       index
 				       0
 				       target-column
 				       tab-width
 				       image-strings)))
 	    (if (and (fix:>= (vector-ref v 1) target-column)
-		     (fix:< (vector-ref v 0) end-index)
+		     (fix:<= (vector-ref v 0) index)
 		     (re-search-backward "[^ \t][ \t]+"
 					 (make-mark group (vector-ref v 0))
 					 (make-mark group ls-index)))
-- 
2.25.1