Mercurial > emacs
comparison lisp/textmodes/fill.el @ 90813:e6fdae9180d4
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 698-710)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 216)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-196
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Tue, 24 Apr 2007 21:56:25 +0000 |
| parents | f83d17e1ace6 25a98bb20a94 |
| children | 70bf32a0f523 |
comparison
equal
deleted
inserted
replaced
| 90812:6137cc8ddf90 | 90813:e6fdae9180d4 |
|---|---|
| 524 ;; category `|' anyway. | 524 ;; category `|' anyway. |
| 525 (if (>= linebeg (point)) | 525 (if (>= linebeg (point)) |
| 526 ;; Ok, skip at least one word or one \c| character. | 526 ;; Ok, skip at least one word or one \c| character. |
| 527 ;; Meanwhile, don't stop at a period followed by one space. | 527 ;; Meanwhile, don't stop at a period followed by one space. |
| 528 (let ((to (line-end-position)) | 528 (let ((to (line-end-position)) |
| 529 (fill-nobreak-predicate nil) ;to break sooner. | |
| 530 (first t)) | 529 (first t)) |
| 531 (goto-char linebeg) | 530 (goto-char linebeg) |
| 532 (while (and (< (point) to) (or first (fill-nobreak-p))) | 531 (while (and (< (point) to) (or first (fill-nobreak-p))) |
| 533 ;; Find a breakable point while ignoring the | 532 ;; Find a breakable point while ignoring the |
| 534 ;; following spaces. | 533 ;; following spaces. |