Simplify overly-complex logic.

diff --git a/v7/src/edwin/fill.scm b/v7/src/edwin/fill.scm
index dcfb3838461d4922b085faa4398e8fec98664dda..51d4dbebdb7c14671674bd2eb34b9332543d65a6 100644 (file)
--- 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)