aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/textmodes/fill.el4
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 55fa2cf011b..1c75e6ec602 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
12006-09-06 Stefan Monnier <monnier@iro.umontreal.ca> 12006-09-06 Stefan Monnier <monnier@iro.umontreal.ca>
2 2
3 * textmodes/fill.el (fill-single-word-nobreak-p): Allow breaking before
4 last word, if it's not the end of the paragraph.
5
3 * files.el (abbreviate-file-name): Don't mistakenly match newlines in 6 * files.el (abbreviate-file-name): Don't mistakenly match newlines in
4 file name. 7 file name.
5 8
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 95f73b56952..af97ca83e6e 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -292,7 +292,9 @@ act as a paragraph-separator."
292 292
293(defun fill-single-word-nobreak-p () 293(defun fill-single-word-nobreak-p ()
294 "Don't break a line after the first or before the last word of a sentence." 294 "Don't break a line after the first or before the last word of a sentence."
295 (or (looking-at (concat "[ \t]*\\sw+" "\\(?:" (sentence-end) "\\)")) 295 ;; Actually, allow breaking before the last word of a sentence, so long as
296 ;; it's not the last word of the paragraph.
297 (or (looking-at (concat "[ \t]*\\sw+" "\\(?:" (sentence-end) "\\)[ \t]*$"))
296 (save-excursion 298 (save-excursion
297 (skip-chars-backward " \t") 299 (skip-chars-backward " \t")
298 (and (/= (skip-syntax-backward "w") 0) 300 (and (/= (skip-syntax-backward "w") 0)