# HG changeset patch # User Juanma Barranquero # Date 1192713855 0 # Node ID 62d330e3a0a8d517e64bcfa653222af65f525e33 # Parent f887e22f9f21d7c50201b80ad014f6d965243476 (fill-individual-paragraphs): Doc fix. (adaptive-fill-function): Doc fix. Remove * from docstring. diff -r f887e22f9f21 -r 62d330e3a0a8 lisp/textmodes/fill.el --- a/lisp/textmodes/fill.el Thu Oct 18 04:53:10 2007 +0000 +++ b/lisp/textmodes/fill.el Thu Oct 18 13:24:15 2007 +0000 @@ -117,8 +117,8 @@ :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 @@ 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 @@ (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