Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 04:47:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(fill-individual-paragraphs): Doc fix.

Browse source 
(adaptive-fill-function): Doc fix.  Remove * from docstring.
This commit is contained in:
Juanma Barranquero 2007-10-18 13:27:04 +00:00
parent 539f5bdad2
commit 3e4dfbb6bd
2 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,4 +1,9 @@
2007-10-15 Tom Horsley <tom.horsley@att.net>
2007-10-18 Juanma Barranquero <lekktu@gmail.com>
* textmodes/fill.el (fill-individual-paragraphs): Doc fix.
(adaptive-fill-function): Doc fix. Remove * from docstring.
2007-10-18 Tom Horsley <tom.horsley@att.net>
* simple.el (interprogram-paste-function): Doc fix.
(current-kill): Accept list of strings as well

7
lisp/textmodes/fill.el
View file

@ -117,8 +117,8 @@ if it would act as a paragraph-starter on the second line."
:group 'fill)
(defcustom adaptive-fill-function nil
"*Function to call to choose a fill prefix for a paragraph, or nil.
nil means the function has not determined the fill prefix."
"Function to call to choose a fill prefix for a paragraph, or nil.
A nil value means the function has not determined the fill prefix."
:type '(choice (const nil) function)
:group 'fill)
@ -1359,7 +1359,7 @@ These lines are filled together.
When calling from a program, pass the range to fill
as the first two arguments.
Optional third and fourth arguments JUSTIFY and MAIL-FLAG:
Optional third and fourth arguments JUSTIFY and CITATION-REGEXP:
JUSTIFY to justify paragraphs (prefix arg),
When filling a mail message, pass a regexp for CITATION-REGEXP
which will match the prefix of a line which is a citation marker
@ -1448,6 +1448,7 @@ Also, if CITATION-REGEXP is non-nil, don't fill header lines."
(fill-region-as-paragraph start (point) justify)
(if (and (bolp) (not had-newline))
(delete-char -1))))))))
(defun fill-individual-paragraphs-prefix (citation-regexp)
(let* ((adaptive-fill-first-line-regexp ".*")
(just-one-line-prefix