aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2004-07-20 20:51:26 +0000
committerRichard M. Stallman2004-07-20 20:51:26 +0000
commit1637ed87676cdd8d32e45e8e1f151126ba91b683 (patch)
treeac0b058abc5b4d09b5ae2f9b8456855b6f74dc87
parentcb7516e566153c15fa42808869256dc3c51ea850 (diff)
downloademacs-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/ChangeLog8
-rw-r--r--lisp/textmodes/fill.el7
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 @@
12004-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
12004-07-19 John Paul Wallington <jpw@gnu.org> 92004-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