Mercurial > emacs
comparison lisp/textmodes/fill.el @ 79631:f83a4361c7e2
Fix regexps in fill-french-nobreak-p broken by last patch.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Wed, 26 Dec 2007 18:12:37 +0000 |
| parents | d8528753376d |
| children | dc100f64b2b7 cdd30283527d |
comparison
equal
deleted
inserted
replaced
| 79630:cfeb5ceccfc0 | 79631:f83a4361c7e2 |
|---|---|
| 314 This is used in `fill-nobreak-predicate' to prevent breaking lines just | 314 This is used in `fill-nobreak-predicate' to prevent breaking lines just |
| 315 after an opening paren or just before a closing paren or a punctuation | 315 after an opening paren or just before a closing paren or a punctuation |
| 316 mark such as `?' or `:'. It is common in French writing to put a space | 316 mark such as `?' or `:'. It is common in French writing to put a space |
| 317 at such places, which would normally allow breaking the line at those | 317 at such places, which would normally allow breaking the line at those |
| 318 places." | 318 places." |
| 319 (or (looking-at "[ \t]*[])},A;;(B?!;:-]") | 319 (or (looking-at "[ \t]*[])},A;,b;(B?!;:-]") |
| 320 (save-excursion | 320 (save-excursion |
| 321 (skip-chars-backward " \t") | 321 (skip-chars-backward " \t") |
| 322 (unless (bolp) | 322 (unless (bolp) |
| 323 (backward-char 1) | 323 (backward-char 1) |
| 324 (or (looking-at "[([{,A++(B]") | 324 (or (looking-at "[([{,A+,b+(B]") |
| 325 ;; Don't cut right after a single-letter word. | 325 ;; Don't cut right after a single-letter word. |
| 326 (and (memq (preceding-char) '(?\t ?\s)) | 326 (and (memq (preceding-char) '(?\t ?\s)) |
| 327 (eq (char-syntax (following-char)) ?w))))))) | 327 (eq (char-syntax (following-char)) ?w))))))) |
| 328 | 328 |
| 329 (defcustom fill-nobreak-predicate nil | 329 (defcustom fill-nobreak-predicate nil |