[Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el

[Juri Linkov]

Index: emacs/lisp/textmodes/fill.el
diff -u emacs/lisp/textmodes/fill.el:1.182 emacs/lisp/textmodes/fill.el:1.183
--- emacs/lisp/textmodes/fill.el:1.182  Fri Oct 21 08:50:28 2005
+++ emacs/lisp/textmodes/fill.el        Fri Dec 30 05:59:16 2005
@@ -291,12 +291,13 @@
 
 (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 "[ \t]*\\sw+[ \t]*[.?!:][ \t]*$")
+  (or (looking-at (concat "[ \t]*\\sw+" "\\(?:" (sentence-end) "\\)"))
       (save-excursion
        (skip-chars-backward " \t")
        (and (/= (skip-syntax-backward "w") 0)
             (/= (skip-chars-backward " \t") 0)
-            (/= (skip-chars-backward ".?!:") 0)))))
+            (/= (skip-chars-backward ".?!:") 0)
+            (looking-at (sentence-end))))))
 
 (defun fill-french-nobreak-p ()
   "Return nil if French style allows breaking the line at point.