From 3414b4a944417fd0a4c249899047751e31f7a32d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 3 Oct 1991 20:48:44 +0000
Subject: [PATCH] Fix fencepost error that sometimes caused extra newline to be
 inserted at end of paragraph being filled.

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

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
-- 
2.25.1