diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-09-06 16:35:18 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-09-06 16:35:18 +0000 |
| commit | 4a3608f5045e534b19020fc4767b7635ebc8d3e4 (patch) | |
| tree | 4ed70d4c1a660ed07269afe128530d177f5bdcc9 /lisp/textmodes/fill.el | |
| parent | e959542d9950f0ae7d85df9811758eb7b747746c (diff) | |
| download | emacs-4a3608f5045e534b19020fc4767b7635ebc8d3e4.tar.gz emacs-4a3608f5045e534b19020fc4767b7635ebc8d3e4.tar.bz2 emacs-4a3608f5045e534b19020fc4767b7635ebc8d3e4.zip | |
(fill-single-word-nobreak-p): Allow breaking before
last word, if it's not the end of the paragraph.
Diffstat (limited to 'lisp/textmodes/fill.el')
| -rw-r--r-- | lisp/textmodes/fill.el | 4 |
1 files changed, 3 insertions, 1 deletions
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." (defun fill-single-word-nobreak-p () "Don't break a line after the first or before the last word of a sentence." - (or (looking-at (concat "[ \t]*\\sw+" "\\(?:" (sentence-end) "\\)")) + ;; Actually, allow breaking before the last word of a sentence, so long as + ;; it's not the last word of the paragraph. + (or (looking-at (concat "[ \t]*\\sw+" "\\(?:" (sentence-end) "\\)[ \t]*$")) (save-excursion (skip-chars-backward " \t") (and (/= (skip-syntax-backward "w") 0) |