
(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?…*æT!ˆmƒÓ Å‚ò àç!ˆè!ƒâ n‚æ iYƒï Êç!‚ò ×é!ˆä ˆÜcˆm?……ÌÍ\"?…cˆi‰ˆ…&m?…&Ñé!ˆê ˆÑÒ!ˆ‚Á ))‡" [from to fpre fill-prefix fill-column nil t prefixcol 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 justify-current-line] 34))

(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!ˆÉÊ!ˆ`‰ˆË ˆÌ	`\"ˆ	bˆÍÎÃÄ#…I ÏÐÑ!ŠÒÓ!ˆhÔ>)ƒ? Õ‚@ Ö\\×Ñ!\"ˆ‚# ˆ	bˆÍØÃÄ#…_ ÈÙ!ˆÚcˆ‚M ˆdbˆiZ‰ˆÛÜÃÄ#…µ ÑV…µ ÝÞß Ý\"\\ÑV…¤ ÛÜÃÄ#†• dbˆÛÜ!ˆÒÜ!ˆS‰ˆ‚€ )ˆÜcˆÒÜ!ˆS‰ˆ‚q *))‡" [ncols beg fill-prefix nil t fill-column nmove 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 " " 3 % random] 22))

(defun fill-individual-paragraphs (min max &optional justifyp mailp) "\
Fill each paragraph in region according to its individual fill prefix.
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 "ÈˆÈŒŠÉ	
\"ˆebˆÊË!ˆm?…R Ì`Í ˆ`\"‰ˆŠÎ ˆ`)`…= ÏÐÆ#…= ÑÒ!ˆ‚. ˆ`U…M Ó`#ˆb*ˆ‚ )))‡" [fill-prefix min max fin start mailp t justifyp nil narrow-to-region skip-chars-forward " 	
" buffer-substring beginning-of-line forward-paragraph re-search-forward "[ 	]*[^ 	
]*:" forward-line 1 fill-region-as-paragraph] 12))