From cd30cccbea76bbe964508aee315f2086fed4604e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 6 Sep 2000 04:01:05 +0000
Subject: [PATCH] Undo previous change -- it wasn't equivalent code.

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

diff --git a/v7/src/edwin/fill.scm b/v7/src/edwin/fill.scm
index 51d4dbebd..0dfb33e04 100644
--- a/v7/src/edwin/fill.scm
+++ b/v7/src/edwin/fill.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: fill.scm,v 1.68 2000/09/06 03:47:55 cph Exp $
+;;; $Id: fill.scm,v 1.69 2000/09/06 04:01:05 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -308,9 +308,11 @@ the distance between the end of the text and `fill-column'."
 	  (let ((fill-prefix
 		 (let ((ls (line-start point 0)))
 		   (or (and (ref-variable adaptive-fill-mode point)
-			    (fill-context-prefix ls
-						 (line-end point 1 'LIMIT)
-						 ""))
+			    (or (let ((le (line-end point 1 #f)))
+				  (and le
+				       (fill-context-prefix ls le "")))
+				(fill-context-prefix ls (line-end point 0)
+						     "")))
 		       (extract-string ls point)))))
 	    (move-mark-to! pend
 			   (or (forward-one-paragraph point end fill-prefix)
-- 
2.25.1