From: Martin Rudalics Date: Wed, 26 Dec 2007 09:08:59 +0000 (+0000) Subject: (fill-find-break-point): Fix doc-string typo. X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/a5af675edc7348b16262932edaf4385ef0d45479 (fill-find-break-point): Fix doc-string typo. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 20eb447dce..f24d7c7918 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-12-26 Martin Rudalics + + * textmodes/fill.el (fill-find-break-point): Fix doc-string typo. + 2007-12-25 Dan Nicolaescu * progmodes/asm-mode.el (asm-mode-map): Add a major mode menu. @@ -27,9 +31,9 @@ 2007-12-22 Eli Zaretskii * 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 36167f599f..42d7ea156c 100644 --- 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]*[])},A;,b;(B?!;:-]") + (or (looking-at "[ \t]*[])},A;;(B?!;:-]") (save-excursion (skip-chars-backward " \t") (unless (bolp) (backward-char 1) - (or (looking-at "[([{,A+,b+(B]") + (or (looking-at "[([{,A++(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))