/[emacs]/emacs/lisp/textmodes/fill.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/fill.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.161 by monnier, Fri Apr 4 21:43:12 2003 UTC revision 1.162 by monnier, Mon Apr 21 16:22:08 2003 UTC
# Line 660  space does not end a sentence, so don't Line 660  space does not end a sentence, so don't
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.

Legend:
Removed from v.1.161  
changed lines
  Added in v.1.162

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26