From bc71ee5cbbfa4ea51d77a8310352572d1d5382f6 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 6 Sep 2000 03:47:55 +0000
Subject: [PATCH] Simplify overly-complex logic.

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

diff --git a/v7/src/edwin/fill.scm b/v7/src/edwin/fill.scm
index dcfb38384..51d4dbebd 100644
--- a/v7/src/edwin/fill.scm
+++ b/v7/src/edwin/fill.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: fill.scm,v 1.67 2000/06/15 03:44:29 cph Exp $
+;;; $Id: fill.scm,v 1.68 2000/09/06 03:47:55 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -308,11 +308,9 @@ 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)
-			    (or (let ((le (line-end point 1 #f)))
-				  (and le
-				       (fill-context-prefix ls le "")))
-				(fill-context-prefix ls (line-end point 0)
-						     "")))
+			    (fill-context-prefix ls
+						 (line-end point 1 'LIMIT)
+						 ""))
 		       (extract-string ls point)))))
 	    (move-mark-to! pend
 			   (or (forward-one-paragraph point end fill-prefix)
-- 
2.25.1