diff options
| author | Chong Yidong | 2007-04-20 14:01:37 +0000 |
|---|---|---|
| committer | Chong Yidong | 2007-04-20 14:01:37 +0000 |
| commit | 5d53900f80281dcabd3281675cfb4dfb64660549 (patch) | |
| tree | 576ddfc6f29b20a32eac604b0525dedf2143eb3f | |
| parent | c8785218b042fee88bd5818d98706b44870d9010 (diff) | |
| download | emacs-5d53900f80281dcabd3281675cfb4dfb64660549.tar.gz emacs-5d53900f80281dcabd3281675cfb4dfb64660549.zip | |
(fill-move-to-break-point): Don't bind fill-nobreak-predicate.
| -rw-r--r-- | lisp/textmodes/fill.el | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 7318a52d8a9..7b4f73c2d1f 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el | |||
| @@ -521,7 +521,6 @@ The break position will be always after LINEBEG and generally before point." | |||
| 521 | ;; Ok, skip at least one word or one \c| character. | 521 | ;; Ok, skip at least one word or one \c| character. |
| 522 | ;; Meanwhile, don't stop at a period followed by one space. | 522 | ;; Meanwhile, don't stop at a period followed by one space. |
| 523 | (let ((to (line-end-position)) | 523 | (let ((to (line-end-position)) |
| 524 | (fill-nobreak-predicate nil) ;to break sooner. | ||
| 525 | (first t)) | 524 | (first t)) |
| 526 | (goto-char linebeg) | 525 | (goto-char linebeg) |
| 527 | (while (and (< (point) to) (or first (fill-nobreak-p))) | 526 | (while (and (< (point) to) (or first (fill-nobreak-p))) |