andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(fill-single-word-nobreak-p): Use `sentence-end'.

Browse source
This commit is contained in:
Juri Linkov 2005-12-30 05:59:16 +00:00
parent 2122c75091
commit 74f36ff05e
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/textmodes/fill.el
View file

@ -291,12 +291,13 @@ 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 "[ \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.