diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-07-09 05:32:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-07-09 05:32:47 +0000 |
| commit | fea4012025820908a43514e824d730ee6b6f1de3 (patch) | |
| tree | baaa8b43f5c6e51c47417d8635cede7a43efd4b0 /lisp/textmodes/fill.el | |
| parent | 6e9ed08693e1abbb56bab7be0647d12814bf26e3 (diff) | |
| download | emacs-fea4012025820908a43514e824d730ee6b6f1de3.tar.gz emacs-fea4012025820908a43514e824d730ee6b6f1de3.tar.bz2 emacs-fea4012025820908a43514e824d730ee6b6f1de3.zip | |
(fill-individual-paragraphs): Fix previous change.
Diffstat (limited to 'lisp/textmodes/fill.el')
| -rw-r--r-- | lisp/textmodes/fill.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index abb04746d58..18f06a7e8d5 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -1039,10 +1039,11 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines." (point) (save-excursion (forward-line 2) (point)))) - (setq adjusted-two-lines-prefix - (substring two-lines-prefix 0 - (string-match "[ \t]*\\'" - two-lines-prefix))) + (when two-lines-prefix + (setq adjusted-two-lines-prefix + (substring two-lines-prefix 0 + (string-match "[ \t]*\\'" + two-lines-prefix)))) ;; See if JUST-ONE-LINE-PREFIX ;; is the same as TWO-LINES-PREFIX ;; except perhaps with longer whitespace. @@ -1088,7 +1089,4 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines." (fill-region-as-paragraph start (point) justify) (or had-newline (delete-char -1)))))))) -(defun fill-strip-trailing-space (string) -)) - ;;; fill.el ends here |