# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 900395480 0
# Node ID 5102cb480cae1afa195aad0730e933b144ace0af
# Parent  4f555df67270eed1dfa1dfea538a42e85709acd5
(do-auto-fill): Always break before any whitespace
so that point ends up at the right place.

diff -r 4f555df67270 -r 5102cb480cae lisp/simple.el
--- a/lisp/simple.el	Mon Jul 13 22:11:54 1998 +0000
+++ b/lisp/simple.el	Tue Jul 14 05:51:20 1998 +0000
@@ -2956,6 +2956,8 @@
 			(kinsoku (save-excursion
 				   (forward-line 0) (point))))
 		    ;; Let fill-point be set to the place where we end up.
+		    ;; But move back before any whitespace here.
+		    (skip-chars-backward " \t")
 		    (point)))))
 
 	  ;; See whether the place we found is any good.