Mercurial > emacs
comparison lisp/textmodes/fill.el @ 77338:d7737931073c
Revert last change.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 20 Apr 2007 14:08:36 +0000 |
| parents | 30ac7cda83c0 |
| children | 25a98bb20a94 |
comparison
equal
deleted
inserted
replaced
| 77337:f5c64104e6be | 77338:d7737931073c |
|---|---|
| 519 ;; category `|' anyway. | 519 ;; category `|' anyway. |
| 520 (if (>= linebeg (point)) | 520 (if (>= linebeg (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. | |
| 524 (first t)) | 525 (first t)) |
| 525 (goto-char linebeg) | 526 (goto-char linebeg) |
| 526 (while (and (< (point) to) (or first (fill-nobreak-p))) | 527 (while (and (< (point) to) (or first (fill-nobreak-p))) |
| 527 ;; Find a breakable point while ignoring the | 528 ;; Find a breakable point while ignoring the |
| 528 ;; following spaces. | 529 ;; following spaces. |