diff options
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 |