660 |
(let (linebeg) |
(let (linebeg) |
661 |
(while (< (point) to) |
(while (< (point) to) |
662 |
(setq linebeg (point)) |
(setq linebeg (point)) |
663 |
(move-to-column (1+ (current-fill-column))) |
(move-to-column (current-fill-column)) |
664 |
(if (when (< (point) to) |
(if (when (< (point) to) |
665 |
;; Find the position where we'll break the line. |
;; Find the position where we'll break the line. |
666 |
|
(forward-char 1) ;Use an immediately following space, if any. |
667 |
(fill-move-to-break-point linebeg) |
(fill-move-to-break-point linebeg) |
668 |
;; Check again to see if we got to the end of |
;; Check again to see if we got to the end of |
669 |
;; the paragraph. |
;; the paragraph. |