diff options
| author | Karl Heuer | 1998-09-04 20:37:22 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-09-04 20:37:22 +0000 |
| commit | c97a5db406f6993d1cf633be8d17356a2f595b9f (patch) | |
| tree | 1af59a654cc86632660f0dc368363667613a53e8 | |
| parent | 70f4a594d07895501304094d36b2b2b007e375e6 (diff) | |
| download | emacs-c97a5db406f6993d1cf633be8d17356a2f595b9f.tar.gz emacs-c97a5db406f6993d1cf633be8d17356a2f595b9f.zip | |
(fill-individual-paragraphs): Before deleting
the inserted newline, verify that one was really inserted.
| -rw-r--r-- | lisp/textmodes/fill.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 0886ecfb152..a4b515c0b65 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el | |||
| @@ -1055,7 +1055,8 @@ Also, if CITATION-REGEXP is non-nil, don't fill header lines." | |||
| 1055 | ;; Fill this paragraph, but don't add a newline at the end. | 1055 | ;; Fill this paragraph, but don't add a newline at the end. |
| 1056 | (let ((had-newline (bolp))) | 1056 | (let ((had-newline (bolp))) |
| 1057 | (fill-region-as-paragraph start (point) justify) | 1057 | (fill-region-as-paragraph start (point) justify) |
| 1058 | (or had-newline (delete-char -1)))))))) | 1058 | (if (and (bolp) (not had-newline)) |
| 1059 | (delete-char -1)))))))) | ||
| 1059 | 1060 | ||
| 1060 | (defun fill-individual-paragraphs-prefix (citation-regexp) | 1061 | (defun fill-individual-paragraphs-prefix (citation-regexp) |
| 1061 | (or (let ((adaptive-fill-first-line-regexp "") | 1062 | (or (let ((adaptive-fill-first-line-regexp "") |