diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-07-20 20:51:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-07-20 20:51:26 +0000 |
| commit | 1637ed87676cdd8d32e45e8e1f151126ba91b683 (patch) | |
| tree | ac0b058abc5b4d09b5ae2f9b8456855b6f74dc87 /lisp | |
| parent | cb7516e566153c15fa42808869256dc3c51ea850 (diff) | |
| download | emacs-1637ed87676cdd8d32e45e8e1f151126ba91b683.tar.gz emacs-1637ed87676cdd8d32e45e8e1f151126ba91b683.tar.bz2 emacs-1637ed87676cdd8d32e45e8e1f151126ba91b683.zip | |
(fill-comment-paragraph): Handle indent-tabs-mode.
(fill-delete-newlines): Call sentence-end as function.
(fill-nobreak-p, canonically-space-region): Likewise.
(fill-nobreak-p): If this break point is at the end of the line,
don't consider the newline which follows as a reason to return t.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/textmodes/fill.el | 7 |
2 files changed, 14 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1c86eb505f4..9fe1386cb44 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2004-07-20 Richard M. Stallman <rms@gnu.org> + + * textmodes/fill.el (fill-comment-paragraph): Handle indent-tabs-mode. + (fill-delete-newlines): Call sentence-end as function. + (fill-nobreak-p, canonically-space-region): Likewise. + (fill-nobreak-p): If this break point is at the end of the line, + don't consider the newline which follows as a reason to return t. + 2004-07-19 John Paul Wallington <jpw@gnu.org> * dired-aux.el (dired-file-set-difference): Don't use `caddr'. diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index a888003402d..dfd471a87c4 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -353,7 +353,12 @@ and `fill-nobreak-invisible'." ;; Don't split a line if the rest would look like a new paragraph. (unless use-hard-newlines (save-excursion - (skip-chars-forward " \t") (looking-at paragraph-start))) + (skip-chars-forward " \t") + ;; If this break point is at the end of the line, + ;; which can occur for auto-fill, don't consider the newline + ;; which follows as a reason to return t. + (and (not (eolp)) + (looking-at paragraph-start)))) (run-hook-with-args-until-success 'fill-nobreak-predicate))))) ;; Put `fill-find-break-point-function' property to charsets which |