(fill-find-break-point): Fix doc-string typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 20eb447..f24d7c7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-12-26  Martin Rudalics  <rudalics@gmx.at>
+
+       * textmodes/fill.el (fill-find-break-point): Fix doc-string typo.
+
 2007-12-25  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * progmodes/asm-mode.el (asm-mode-map): Add a major mode menu.
@@ -27,9 +31,9 @@
 2007-12-22  Eli Zaretskii  <eliz@gnu.org>
 
        * simple.el (minibuffer-history, shell-command-history)
-       (set-variable-value-history): 
-       * replace.el (regexp-history): 
-       * international/mule-cmds.el (input-method-history): 
+       (set-variable-value-history):
+       * replace.el (regexp-history):
+       * international/mule-cmds.el (input-method-history):
        * files.el (file-name-history): Add reference to history-length in
        the doc string.
 

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 36167f5..42d7ea1 100644 (file)
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -316,12 +316,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]*[])}\e,A;;\e(B?!;:-]")
       (save-excursion
        (skip-chars-backward " \t")
        (unless (bolp)
          (backward-char 1)
-         (or (looking-at "[([{\e,A+\e,b+\e(B]")
+         (or (looking-at "[([{\e,A++\e(B]")
              ;; Don't cut right after a single-letter word.
              (and (memq (preceding-char) '(?\t ?\s))
                   (eq (char-syntax (following-char)) ?w)))))))
@@ -391,7 +391,7 @@ Don't move back past the buffer position LIMIT.
 This function is called when we are going to break the current line
 after or before a non-ASCII character.  If the charset of the
 character has the property `fill-find-break-point-function', this
-function calls the property value as a function with one arg LINEBEG.
+function calls the property value as a function with one arg LIMIT.
 If the charset has no such property, do nothing."
   (let* ((ch (following-char))
         (charset (char-charset ch))