diff options
| author | Richard M. Stallman | 2004-07-20 20:51:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-07-20 20:51:26 +0000 |
| commit | 1637ed87676cdd8d32e45e8e1f151126ba91b683 (patch) | |
| tree | ac0b058abc5b4d09b5ae2f9b8456855b6f74dc87 | |
| parent | cb7516e566153c15fa42808869256dc3c51ea850 (diff) | |
| download | emacs-1637ed87676cdd8d32e45e8e1f151126ba91b683.tar.gz 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.
| -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 @@ | |||
| 1 | 2004-07-20 Richard M. Stallman <rms@gnu.org> | ||
| 2 | |||
| 3 | * textmodes/fill.el (fill-comment-paragraph): Handle indent-tabs-mode. | ||
| 4 | (fill-delete-newlines): Call sentence-end as function. | ||
| 5 | (fill-nobreak-p, canonically-space-region): Likewise. | ||
| 6 | (fill-nobreak-p): If this break point is at the end of the line, | ||
| 7 | don't consider the newline which follows as a reason to return t. | ||
| 8 | |||
| 1 | 2004-07-19 John Paul Wallington <jpw@gnu.org> | 9 | 2004-07-19 John Paul Wallington <jpw@gnu.org> |
| 2 | 10 | ||
| 3 | * dired-aux.el (dired-file-set-difference): Don't use `caddr'. | 11 | * 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'." | |||
| 353 | ;; Don't split a line if the rest would look like a new paragraph. | 353 | ;; Don't split a line if the rest would look like a new paragraph. |
| 354 | (unless use-hard-newlines | 354 | (unless use-hard-newlines |
| 355 | (save-excursion | 355 | (save-excursion |
| 356 | (skip-chars-forward " \t") (looking-at paragraph-start))) | 356 | (skip-chars-forward " \t") |
| 357 | ;; If this break point is at the end of the line, | ||
| 358 | ;; which can occur for auto-fill, don't consider the newline | ||
| 359 | ;; which follows as a reason to return t. | ||
| 360 | (and (not (eolp)) | ||
| 361 | (looking-at paragraph-start)))) | ||
| 357 | (run-hook-with-args-until-success 'fill-nobreak-predicate))))) | 362 | (run-hook-with-args-until-success 'fill-nobreak-predicate))))) |
| 358 | 363 | ||
| 359 | ;; Put `fill-find-break-point-function' property to charsets which | 364 | ;; Put `fill-find-break-point-function' property to charsets which |