diff options
| author | Richard M. Stallman <[email protected]> | 1996-05-31 04:17:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1996-05-31 04:17:02 +0000 |
| commit | 7b9f06576be1283e3a0a31c23ce916d788efb152 (patch) | |
| tree | a2905be32cfeefc61b78e8eead67ebfbd5034a13 | |
| parent | 405615e51b1cb43e47b87c85b6c2e35259ad5858 (diff) | |
(fill-individual-paragraphs): Don't get stuck
if no newline at the end of the region.
| -rw-r--r-- | lisp/textmodes/fill.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 1ce82773f7..fd6db93ccd 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -828,7 +828,10 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines." (point)))) fill-prefix-regexp (regexp-quote fill-prefix))) (forward-line 1) - (move-to-left-margin) + (if (bolp) + ;; If forward-line went past a newline, + ;; move further to the left margin. + (move-to-left-margin)) ;; Now stop the loop if end of paragraph. (and (not (eobp)) (if fill-individual-varying-indent |