mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/textmodes/fill.el (fill-single-char-nobreak-p): New function

Browse source 
checking whether point is after a 1-letter word.
This commit is contained in:
Michal Nazarewicz 2013-11-03 23:29:59 -05:00 • committed by Stefan Monnier
parent ec79b92bfa
commit 0a749fa0e6
3 changed files with 24 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
etc/NEWS
View file

@ -180,6 +180,12 @@ some enhancements, like the ability to restore deleted frames. Command
** The default value of `comment-use-global-state' is changed to t,
and this variable has been marked obsolete.
** `fill-single-char-nobreak-p' prevents fill from breaking a line after
a 1-letter word, which is an error according to Polish and
Czech typography rules. To globally enable this feature, evaluate:
(add-hook 'fill-nobreak-predicate 'fill-single-char-nobreak-p)
* Editing Changes in Emacs 24.4

7
lisp/ChangeLog
View file

@ -1,4 +1,9 @@
2013-11-03 Nathan Trapuzzano <nbtrap@nbtrap.com> (tiny change)
2013-11-04 Michal Nazarewicz <mina86@mina86.com>
* textmodes/fill.el (fill-single-char-nobreak-p): New function
checking whether point is after a 1-letter word.
2013-11-04 Nathan Trapuzzano <nbtrap@nbtrap.com> (tiny change)
* progmodes/cperl-mode.el (cperl-font-lock-fontify-region-function):
Don't infloop when expanding region over `multiline' syntax-type that

13
lisp/textmodes/fill.el
View file

@ -329,13 +329,24 @@ places."
(and (memq (preceding-char) '(?\t ?\s))
(eq (char-syntax (following-char)) ?w)))))))
(defun fill-single-char-nobreak-p ()
"Return t if point is placed just after a 1-letter word.
This is used in `fill-nobreak-predicate' to prevent breaking line just
after a 1-letter word (usually conjunction or preposition) which is
considered composition error in Polish and Czech typography."
(save-excursion
(skip-chars-backward " \t")
(backward-char 2)
(looking-at "[[:space:]][[:alpha:]]")))
(defcustom fill-nobreak-predicate nil
"List of predicates for recognizing places not to break a line.
The predicates are called with no arguments, with point at the place to
be tested. If it returns t, fill commands do not break the line there."
:group 'fill
:type 'hook
:options '(fill-french-nobreak-p fill-single-word-nobreak-p))
:options '(fill-french-nobreak-p fill-single-word-nobreak-p
fill-single-char-nobreak-p))
(defcustom fill-nobreak-invisible nil
"Non-nil means that fill commands do not break lines in invisible text."