andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Martin Rudalics 2007-12-26 09:08:59 +00:00
parent be775dfa55
commit a5af675edc
2 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/ChangeLog
View file

@ -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.

6
lisp/textmodes/fill.el
View file

@ -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))