mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(fill-nonuniform-paragraphs): New command.

Browse source
This commit is contained in:
Richard M. Stallman 1993-04-11 04:02:23 +00:00
parent 81937af25a
commit e407986c56
1 changed files with 20 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lisp/textmodes/fill.el
View file

@ -273,12 +273,27 @@ Prefix arg (non-nil third arg, if called from program) means justify as well."
(setq ncols (1- ncols)))))))
nil)
(defun fill-individual-paragraphs (min max &optional justifyp mailp)
"Fill each paragraph in region according to its individual fill prefix.
(defun fill-nonuniform-paragraphs (min max &optional justifyp mailp)
"Fill paragraphs within the region, allowing varying indentation within each.
This command divides the region into \"paragraphs\",
only at paragraph-separator lines, then fills each paragraph
using as the fill prefix the smallest indentation of any line
in the paragraph.
If `fill-individual-varying-indent' is non-nil,
then a mere change in indentation does not end a paragraph. In this mode,
the indentation for a paragraph is the minimum indentation of any line in it.
When calling from a program, pass range to fill as first two arguments.
Optional third and fourth arguments JUSTIFY-FLAG and MAIL-FLAG:
JUSTIFY-FLAG to justify paragraphs (prefix arg),
MAIL-FLAG for a mail message, i. e. don't fill header lines."
(interactive "r\nP")
(let ((fill-individual-varying-indent t))
(fill-individual-paragraphs min max justifyp mailp)))
(defun fill-individual-paragraphs (min max &optional justifyp mailp)
"Fill paragraphs of uniform indentation within the region.
This command divides the region into \"paragraphs\",
treating every change in indentation level as a paragraph boundary,
then fills each paragraph using its indentation level as the fill prefix.
When calling from a program, pass range to fill as first two arguments.