
(defconst fill-individual-varying-indent nil "\
*Controls criterion for a new paragraph in `fill-individual-paragraphs'.
Non-nil means changing indent doesn't end a paragraph.
That mode can handle paragraphs with extra indentation on the first line,
but it requires separator lines between paragraphs.
Nil means that any change in indentation starts a new paragraph.")

(defun set-fill-prefix nil "\
Set the fill-prefix to the current line up to point.
Filling expects lines to start with the fill prefix
and reinserts the fill prefix in each resulting line." (interactive) (byte-code "ÁˆÂŠÃ ˆ`)`\"‰ˆÄÅ\"… Á‰ˆƒ$ ÆÇ\"‚' ÆÈ!‡" [fill-prefix nil buffer-substring beginning-of-line equal "" message "fill-prefix: \"%s\"" "fill-prefix cancelled"] 6))

(defun fill-region-as-paragraph (from to &optional justify-flag) "\
Fill region as one paragraph: break lines to fit fill-column.
Prefix arg means justify too.
From program, pass args FROM, TO and JUSTIFY-FLAG." (interactive "r
P") (byte-code "ÅˆŒÊ	\"ˆebˆËÌ!ˆÊ`d\"ˆ`‰ˆ…' ÍÎ\"?…' Ï!
…i GY…6 ÐÑ!ˆebˆÒÓ!ˆm?…W Ô
!…O Õ`Ö×!\"ˆÒÓ!ˆ‚> ˆebˆÔ
!…e ØG!ˆ`‰)ˆbˆÙÚÅÆ#…| Ûcˆ‚n ˆÜdÝÛ$ˆbˆËÞ!ˆÙßÅÆ#…± Õà×!Šáâ!ˆhã>)ƒ§ ä‚¨ Ó\\Ö×!\"ˆ‚‹ ˆdbˆå ˆæcˆebˆ×Åm?…g`‰ˆçT!ˆmƒÛ Å‚ áè\"ˆé!ƒì n‚ð iYƒý Ëê!ˆËè!‚ Øë!ˆ…!é!…!`eZGW…!ìíe`\"×`eZO\"…+Ëê!ˆËè!ˆáê!ˆÝcˆå ˆm?…N…NÍÎ\"?…Ncˆi‰ˆ	…cm?…cÒë!ˆî ˆÒÓ!ˆ‚Ä *)‡" [from to fpre fill-prefix fill-column nil t prefixcol linebeg justify-flag narrow-to-region skip-chars-forward "
" equal "" regexp-quote error "fill-prefix too long for specified width" forward-line 1 looking-at delete-region match-end 0 forward-char re-search-forward "[.?!][])\"']*$" 32 subst-char-in-region 10 " 	" "   *" match-beginning skip-chars-backward " ])\"'" (46 63 33) 2 delete-horizontal-space "  " move-to-column "^ 
" zerop " " -1 string= buffer-substring justify-current-line] 41))

(defun fill-paragraph (arg) "\
Fill paragraph at or after point.
Prefix arg means justify as well." (interactive "P") (byte-code "ÂˆŠÃ ˆn† ÄÅ!ˆ`Æ ˆÇ`	#))‡" [end arg nil forward-paragraph newline 1 backward-paragraph fill-region-as-paragraph] 7))

(defun fill-region (from to &optional justify-flag) "\
Fill each of the paragraphs in the region.
Prefix arg (non-nil third arg, if called from program)
means justify as well." (interactive "r
P") (byte-code "ÅˆŒÆ	\"ˆebˆm?…1 `ÇÈ!ˆ`ÇÉ!ˆ`
Yƒ* Ê`#‚, b*ˆ‚ )‡" [from to initial end justify-flag nil narrow-to-region forward-paragraph 1 -1 fill-region-as-paragraph] 8))

(defun justify-current-line nil "\
Add spaces to line point is in, so it ends at fill-column." (interactive) (byte-code "ÆˆŠŒÆÆÆÆÆÊ ˆËG!ˆÌÍ!ˆi‰ˆ`‰ˆÎ ˆÏ
`\"ˆ
bˆÐÑÆÇ#…S ÒÓÔ!ŠÕÖ!ˆh×>)ƒI Ø‚J Ù\\ÚÔ!\"ˆ‚- ˆ
bˆÐÛÆÇ#…i ËÜ!ˆÝcˆ‚W ˆdbˆÞi#‰ˆÔ‰ˆßàÆÇ#…Ž Õà!ˆ	T‰ˆ‚z ˆ	ÔV…dbˆßàÆÇ#…¯ áÝâ	\"\"ˆÕà!ˆ‚˜ ˆã	\"‰ˆä	Ô\"‰ˆÔV…æ ãåæç \"	\"		HÔV†á 	ÙIˆS‰)ˆ‚¾ ˆdbˆÔ	ßàÆÇ#…	HÔV… àcˆ	T‰	ˆÕà!ˆ‚í )-))‡" [ncols nwhites beg indent flags fill-prefix nil t fill-column where beginning-of-line forward-char skip-chars-forward " 	" end-of-line narrow-to-region re-search-forward "   *" delete-region match-beginning 0 skip-chars-backward " ])\"'" (46 63 33) 2 1 match-end "[.?!][])\"']*
" -1 32 - search-backward " " insert-char / % make-string logand 262143 random] 28))

(defun fill-individual-paragraphs (min max &optional justifyp mailp) "\
Fill each paragraph in region according to its individual fill prefix.

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.

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
P") (byte-code "ËˆŒŠbˆÌ ˆ	… ÍÎ!… ÏÐ!ˆ‚ ˆÑ`
\"ˆÒÓ!ˆm?…´ Ì ˆ`ËË…: Í!?…N Ô`ŠÒÕ!ˆ`)\"Ö!‰ˆÏÐ!ˆm?…“ ƒz Í!?…w ŠÍ!…u ×G!ˆÍ!?)‚“ Í!…“ Š×G!ˆÍ!†‘ Í!?)…› Ëˆ‚3 ˆn	Ø`
#ˆ	†® ÙÚ!)+ˆ‚! ))‡" [min mailp max start fill-prefix fill-prefix-regexp fill-individual-varying-indent paragraph-separate paragraph-start had-newline justifyp nil beginning-of-line looking-at "[^ 	
]*:" forward-line 1 narrow-to-region skip-chars-forward " 	
" buffer-substring " 	" regexp-quote forward-char fill-region-as-paragraph delete-char -1] 24))