Fix fencepost error in paragraph fill.

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