Mercurial > emacs
changeset 23184:973ac8db2f92
(fill-individual-paragraphs): Before deleting
the inserted newline, verify that one was really inserted.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 04 Sep 1998 20:37:22 +0000 |
| parents | 3a0c163d32a6 |
| children | 945fed18ddb8 |
| files | lisp/textmodes/fill.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/fill.el Fri Sep 04 20:30:21 1998 +0000 +++ b/lisp/textmodes/fill.el Fri Sep 04 20:37:22 1998 +0000 @@ -1055,7 +1055,8 @@ ;; Fill this paragraph, but don't add a newline at the end. (let ((had-newline (bolp))) (fill-region-as-paragraph start (point) justify) - (or had-newline (delete-char -1)))))))) + (if (and (bolp) (not had-newline)) + (delete-char -1)))))))) (defun fill-individual-paragraphs-prefix (citation-regexp) (or (let ((adaptive-fill-first-line-regexp "")