From b0459dec62fdcb8f9329f963fe629c98217a9077 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 22 Sep 2009 15:53:00 +0000 Subject: [PATCH] =?utf8?q?Convert=20to=20utf-8=20encoding.=20(fill-french-?= =?utf8?q?nobreak-p):=20Remove=20redundant=20=C2=BB=20and=20=C2=AB=20inher?= =?utf8?q?ited=20from=20our=20pre-unicode=20days.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- lisp/ChangeLog | 4 ++++ lisp/textmodes/fill.el | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 820724277d9..2383aac9d96 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2009-09-22 Stefan Monnier + * textmodes/fill.el: Convert to utf-8 encoding. + (fill-french-nobreak-p): Remove redundant » and « inherited from our + pre-unicode days. + * add-log.el (change-log-fill-forward-paragraph): New function. (change-log-mode): Use it so fill-region DTRT. Set fill-indent-according-to-mode here rather than in diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index c3ec0b95cb4..26dec949e90 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -1,4 +1,4 @@ -;;; fill.el --- fill commands for Emacs -*- coding: iso-2022-7bit -*- +;;; fill.el --- fill commands for Emacs -*- coding: utf-8 -*- ;; Copyright (C) 1985, 1986, 1992, 1994, 1995, 1996, 1997, 1999, 2001, 2002, ;; 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. @@ -92,7 +92,7 @@ reinserts the fill prefix in each resulting line." ;; Added `!' for doxygen comments starting with `//!' or `/*!'. ;; Added `%' for TeX comments. ;; RMS: deleted the code to match `1.' and `(1)'. - "[ \t]*\\([-!|#%;>*,A7$,1s"s#sC$,2"F(B]+[ \t]*\\)*" + "[ \t]*\\([-!|#%;>*·•‣⁃◦]+[ \t]*\\)*" "Regexp to match text at start of line that constitutes indentation. If Adaptive Fill mode is enabled, a prefix matching this pattern on the first and second lines of a paragraph is used as the @@ -317,12 +317,12 @@ after an opening paren or just before a closing paren or a punctuation mark such as `?' or `:'. It is common in French writing to put a space at such places, which would normally allow breaking the line at those places." - (or (looking-at "[ \t]*[])},A;,b;(B?!;:-]") + (or (looking-at "[ \t]*[])}»?!;:-]") (save-excursion (skip-chars-backward " \t") (unless (bolp) (backward-char 1) - (or (looking-at "[([{,A+,b+(B]") + (or (looking-at "[([{«]") ;; Don't cut right after a single-letter word. (and (memq (preceding-char) '(?\t ?\s)) (eq (char-syntax (following-char)) ?w))))))) -- 2.39.5