From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 3 Oct 1991 20:48:44 +0000 (+0000)
Subject: Fix fencepost error that sometimes caused extra newline to be inserted
X-Git-Tag: 20090517-FFI~10170
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3414b4a944417fd0a4c249899047751e31f7a32d;p=mit-scheme.git

Fix fencepost error that sometimes caused extra newline to be inserted
at end of paragraph being filled.
---

diff --git a/v7/src/edwin/fill.scm b/v7/src/edwin/fill.scm
index 46aa50f0a..bb271be7c 100644
--- a/v7/src/edwin/fill.scm
+++ b/v7/src/edwin/fill.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/fill.scm,v 1.50 1991/05/02 01:13:16 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/fill.scm,v 1.51 1991/10/03 20:48:44 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -205,7 +205,7 @@ Prefix arg means justify as well."
 		(if (mark< point end)
 		    (begin
 		      (delete-horizontal-space point)
-		      (insert-newline point)
+		      (if (mark< point end) (insert-newline point))
 		      (if justify?
 			  (fill:call-with-line-marks (mark-1+ point)
 						     fill-prefix