;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Thu Jul 28 09:15:40 1994 ;;; from file /home/fsf/rms/e19/lisp/fill.el ;;; emacs version 19.25.90.2. ;;; 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 "`/home/fsf/rms/e19/lisp/fill.el' 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. A value of nil means that any change in indentation starts a new paragraph.") (defconst sentence-end-double-space t "\ *Non-nil means a single space does not end a sentence.") (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 h\n\nĘh ^bl,yy` ]WI`\n!`{)g ^blVy Vg\n!i\") }ebw`d}`db\n\nĚ?\n!\nGY!ebym!`̕|yeb!\nGu`) b#c d$ bw`d$#̔xh>)\\̕|db ceb#$m?T`#T!m!#xp`#\\Vph=pg=p`Zf=pu#xG$U#xn)$iY*$!m*ou!!?)ww*)u\n!$U!`eZ\nGW!e`{\n`eZO!*m *o  u!!?) ww*)xc m?\n?\nĚ?\nci$.+m+y y+," [buffer-undo-list t fill-prefix adaptive-fill-mode "" from to 1 start re-search-forward adaptive-fill-regexp left-margin 0 make-string 32 "\n" nil regexp-quote fpre fill-column error "fill-prefix too long for specified width" looking-at "[.?!][])}\"']*$" subst-char-in-region 10 " " 9 " *" sentence-end-double-space " ]})\"'" (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. If `sentence-end-double-space' is non-nil, then period followed by one space does not end a sentence, so don't break a line there. 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. If `sentence-end-double-space' is non-nil, then period followed by one space does not end a sentence, so don't break a line there." "P"]) (defalias 'fill-region #[(from to &optional justify-flag) " }ebm?0`!`!` Y)`\f#,\fb*)" [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. If `sentence-end-double-space' is non-nil, then period followed by one space does not end a sentence, so don't break a line there." "r\nP"]) (defalias 'justify-current-line #[nil "yGuwi` `}`x `Z! b#SŔxh>)J΂K\\ŕ|0 b#gucVdbiZ\nZ#\fV!\\V#db!xS)cx\fSz." [nil end indent beg ncols 0 fill-prefix " " delete-char 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) " \f $)" [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-!!-!'#\fy\f` }wm?y`ȉ S !d`w`){! ym! !Gu!)? !Gu!!)?Gn`#!,2*" [min 0 mailp looking-at "[ ]*[^ \n]*:" "[ ]*$" search-forward "\n\n" nil move 1 max " \n" fill-prefix-regexp fill-prefix start " " regexp-quote 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"])