From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 6 Sep 2000 03:47:55 +0000 (+0000)
Subject: Simplify overly-complex logic.
X-Git-Tag: 20090517-FFI~3290
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bc71ee5cbbfa4ea51d77a8310352572d1d5382f6;p=mit-scheme.git

Simplify overly-complex logic.
---

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)