diff options
| author | Richard M. Stallman <[email protected]> | 1996-03-19 20:05:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1996-03-19 20:05:11 +0000 |
| commit | 253996a89253500b04230f2f577cbc2d9714e470 (patch) | |
| tree | 6680e262c9ccffc204540a645740524b7e60a3a6 /lisp/textmodes | |
| parent | b764619dc8ba58f03b0ff8e8d968774ef07fca3f (diff) | |
(fill-region-as-paragraph): Fix the second check for
whether we reached the end of the paragraph.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/fill.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 152ccf96f2..1ce82773f7 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -321,7 +321,9 @@ space does not end a sentence, so don't break a line there." (forward-char -2) (skip-chars-backward "^ \n" linebeg))) ;; If the left margin and fill prefix by themselves - ;; pass the fill-column, keep at least one word. + ;; pass the fill-column. or if they are zero + ;; but we have no room for even one word, + ;; keep at least one word anyway. ;; This handles ALL BUT the first line of the paragraph. (if (if (zerop prefixcol) (save-excursion @@ -371,7 +373,7 @@ space does not end a sentence, so don't break a line there." (skip-chars-forward "^ \t\n") (setq first nil)))) ;; Check again to see if we got to the end of the paragraph. - (if (eobp) + (if (save-excursion (skip-chars-forward " \t") (eobp)) (or nosqueeze (delete-horizontal-space)) ;; Replace whitespace here with one newline, then indent to left ;; margin. |