# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1177078116 0
# Node ID d7737931073cb90d1fff78502886edc6f9346ca7
# Parent  f5c64104e6bea8a4dfa787d016098bef5dc060d3
Revert last change.

diff -r f5c64104e6be -r d7737931073c lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Apr 20 14:02:28 2007 +0000
+++ b/lisp/ChangeLog	Fri Apr 20 14:08:36 2007 +0000
@@ -1,8 +1,3 @@
-2007-04-20  Stefan Monnier  <monnier@iro.umontreal.ca>
-
-	* textmodes/fill.el (fill-move-to-break-point): Don't bind
-	fill-nobreak-predicate.
-
 2007-04-20  Francesco Potort=8ec  <pot@gnu.org>
 
 	* locate.el (locate): Output from shell-command should go in the
diff -r f5c64104e6be -r d7737931073c lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Fri Apr 20 14:02:28 2007 +0000
+++ b/lisp/textmodes/fill.el	Fri Apr 20 14:08:36 2007 +0000
@@ -521,6 +521,7 @@
       ;; Ok, skip at least one word or one \c| character.
       ;; Meanwhile, don't stop at a period followed by one space.
       (let ((to (line-end-position))
+	    (fill-nobreak-predicate nil) ;to break sooner.
 	    (first t))
 	(goto-char linebeg)
 	(while (and (< (point) to) (or first (fill-nobreak-p)))