Convert to utf-8 encoding.

(fill-french-nobreak-p): Remove redundant » and « inherited from our
pre-unicode days.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 820724277d9a941185e92cfa4602ff484f02645e..2383aac9d96fc79fb88f4782f564e488d7a2b091 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2009-09-22  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * 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 c3ec0b95cb41efac15d3ef42924e45259eceeb55..26dec949e905574aa8fef136c33e827ab9cbdb5a 100644 (file)
--- 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]*\\([-!|#%;>*\e,A7\e$,1s"s#sC\e$,2"F\e(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]*[])}\e,A;\e,b;\e(B?!;:-]")
+  (or (looking-at "[ \t]*[])}»?!;:-]")
       (save-excursion
        (skip-chars-backward " \t")
        (unless (bolp)
          (backward-char 1)
-         (or (looking-at "[([{\e,A+\e,b+\e(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)))))))