From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 2 Dec 1992 18:08:39 +0000 (+0000)
Subject: Fix fencepost error in paragraph fill.
X-Git-Tag: 20090517-FFI~8686
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6be66007b6aad805e71ffaa19bb94a2fa00f9204;p=mit-scheme.git

Fix fencepost error in paragraph fill.
---

diff --git a/v7/src/edwin/fill.scm b/v7/src/edwin/fill.scm
index 09ac2ee31..d604bbedb 100644
--- a/v7/src/edwin/fill.scm
+++ b/v7/src/edwin/fill.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: fill.scm,v 1.56 1992/11/13 22:15:01 cph Exp $
+;;;	$Id: fill.scm,v 1.57 1992/12/02 18:08:39 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -200,10 +200,12 @@ Prefix arg means justify as well."
 	      (begin
 		(move-mark-to!
 		 point
-		 (let ((m (skip-chars-backward "^ \n" target point)))
-		   (if (mark> m point)
-		       m
-		       (skip-chars-forward "^ \n" target end))))
+		 (if (char=? #\space (extract-right-char target))
+		     target
+		     (let ((m (skip-chars-backward "^ \n" target point)))
+		       (if (mark> m point)
+			   m
+			   (skip-chars-forward "^ \n" target end)))))
 		(if (mark< point end)
 		    (begin
 		      (delete-horizontal-space point)