;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Sun Aug 1 02:36:43 1993 ;;; from file /home/fsf/rms/e19/lisp/fill.el ;;; emacs version 19.17.5. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (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.") (defalias 'set-fill-prefix #[nil "y`)`{š  \"!" [0 fill-prefix "" nil message "fill-prefix: \"%s\"" "fill-prefix cancelled"] 4 "\ 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." nil]) (defconst adaptive-fill-mode t "\ *Non-nil means determine a paragraph's fill prefix from its text.") (defconst adaptive-fill-regexp "[ ]*\\([>*] +\\)?" "\ *Regexp to match text at start of line that constitutes indentation. If Adaptive Fill mode is enabled, whatever text matches this pattern on the second line of a paragraph is used as the standard indentation for the paragraph.") (defalias 'fill-region-as-paragraph #[(from to &optional justify-flag) "=`B\n W\n\nĘW ^bl,yy` ]WI`\n!`{)V ^blVy) }ebw`d}`db\n{\nĚ?{\n!\nGY!ebym!`ӕ|yeb!\nGu`) b#c d$ bw`d$#Ӕxh>)݂\\ӕ|db ceb !m?!` T!m x` \\VUh=Ug=U`Zf=Uu x,!Ug xn)k!iY'!!m'ou!)ww'v)u\n!U`eZ\nGWe`{\n`eZO'm'ou!)ww')xc m \n \nĚ \nci!*my y," [buffer-undo-list t fill-prefix adaptive-fill-mode "" from to 1 start re-search-forward adaptive-fill-regexp "\n" nil regexp-quote fpre fill-column error "fill-prefix too long for specified width" looking-at 0 "[.?!][])}\"']*$" 32 subst-char-in-region 10 " " 9 " *" " ]})\"'" (46 63 33) 2 delete-horizontal-space " " linebeg prefixcol move-to-column "^ \n" 46 -2 " " first -1 "\\. " justify-flag justify-current-line] 6 "\ 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." "r\nP"]) (defalias 'fill-paragraph #[(arg) "` n!` `b #," [before forward-paragraph newline 1 backward-paragraph beg end fill-region-as-paragraph arg] 4 "\ Fill paragraph at or after point. Prefix arg means justify as well." "P"]) (defalias 'fill-region #[(from to &optional justify-flag) " }ebm?0`!`!` Y)` #, b*)" [from to forward-paragraph 1 end initial -1 fill-region-as-paragraph justify-flag] 4 "\ Fill each of the paragraphs in the region. Prefix arg (non-nil third arg, if called from program) means justify as well." "r\nP"]) (defalias 'justify-current-line #[nil "y Guwi`\n`}\nb#DĔxh>);̂<\\ĕ|!\nb#XucGdbiZ Z# V!\\V#db!xSx)cx Sk-" [nil indent beg ncols 0 fill-prefix " " re-search-forward " *" t " ])\"'" (46 63 33) 2 1 "[.?!][])\"']*\n" -1 32 fill-column search-backward " " random 3 nmove] 5 "\ Add spaces to line point is in, so it ends at `fill-column'." nil]) (defalias 'fill-nonuniform-paragraphs #[(min max &optional justifyp mailp) " $)" [t fill-individual-varying-indent fill-individual-paragraphs min max justifyp mailp] 5 "\ 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. 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." "r\nP"]) (defalias 'fill-individual-paragraphs #[(min max &optional justifyp mailp) "by\n!!!!# `\n}wm?y`ȉ   G !X`w`){  ! ym! !| Gu!)? ! Gu!!)?;n`#!,&*" [min 0 mailp looking-at "[ ]*[^ \n]*:" "[ ]*$" search-forward "\n\n" nil move max " \n" fill-prefix-regexp fill-prefix start " " regexp-quote 1 fill-individual-varying-indent paragraph-separate paragraph-start had-newline fill-region-as-paragraph justifyp delete-char -1] 4 "\ 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. 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." "r\nP"])