;;; compiled by jimb@churchy.gnu.ai.mit.edu on Wed Apr 7 20:47:17 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/fill.el ;;; emacs version 19.0.511. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (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.") (fset 'set-fill-prefix #[nil "ÀŠÁÂ!ˆ`)`\"Ä Å\"ƒÆ ƒÇÈ \"‡ÇÉ!‡" [buffer-substring forward-line 0 fill-prefix equal "" nil message "fill-prefix: \"%s\"" "fill-prefix cancelled"] 3 "\ 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.") (fset 'fill-region-as-paragraph #[(from to &optional justify-flag) "ƒÁ=„`B\n ƒ_\nƒÄ\nÅ\"ƒ_Š^bˆlƒ/ÈÉ!ˆÈÉ!ˆ`]WƒO`\nË !ˆÍ\n`\")‚^^bˆlƒ^ÈÉ!ˆ)ŒÎ\"ˆebˆÏÐ!ˆÎ`d\"ˆ`dbˆ\n…ˆÑ\nÅ\"?…ˆÒ\n!‰ƒÌ\nGYƒšÕÖ!ˆebˆÈÉ!ˆm„º×!ƒ³Ø`ÙÚ!\"ˆÈÉ!ˆ‚¡ebˆ×!ƒÉÛ\nG!ˆ`)bˆËÜÝÁ#ƒßÞcˆ‚ÑßdàÞ$ˆbˆÏá!ˆß`dâÞ$ˆËãÝÁ#ƒØäÚ!Šåæ!ˆhç>)ƒè‚É\\ÙÚ!\"ˆ‚ödbˆé ˆêcˆebˆÚÝ+,m?…í`+íT!ˆm„Œåî+\"ˆ`+è\\VƒkhÞ=ƒk`èZfï=ƒkÛð!ˆåî+\"ˆ‚F,ÚUƒvn‚z,iYƒˆÏñ!ˆÏî!ˆ‚ŒÛò!ˆ\nƒ·,ÚUƒ·`eZ\nGWƒ·ÄÍe`\"\nÚ`eZO\"ƒ·Ïñ!ˆÏî!ˆåñ!ˆàcˆé ˆm„Ö\nƒÖÑ\nÅ\"„Ö\ncˆi,3ƒ.m„.Èò!ˆô ˆÈÉ!ˆ‚.,‡" [buffer-undo-list t fill-prefix adaptive-fill-mode string= "" from to forward-line 1 start re-search-forward adaptive-fill-regexp buffer-substring narrow-to-region skip-chars-forward "\n" equal regexp-quote fpre fill-column error "fill-prefix too long for specified width" looking-at delete-region match-end 0 forward-char "[.?!][])}\"']*$" nil 32 subst-char-in-region 10 " " 9 " *" match-beginning skip-chars-backward " ]})\"'" (46 63 33) 2 delete-horizontal-space " " linebeg prefixcol move-to-column "^ \n" 46 -2 " " -1 justify-flag justify-current-line] 7 "\ 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"]) (fset '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"]) (fset 'fill-region #[(from to &optional justify-flag) "ŒÀ \n\"ˆebˆm?…3`ÃÄ!ˆ`ÃÇ!ˆ`Yƒ,È`  #ˆ‚/ bˆ*‚ )‡" [narrow-to-region 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"]) (fset 'justify-current-line #[nil "ŠŒÀ‰‰ÄÅ!ˆÆG!ˆÈÉ!ˆi`Ê ˆË\n`\"ˆ\nbˆÌÍÀÎ#ƒKÏÐÅ!ŠÑÒ!ˆhÓ>)ƒAÔ‚BÕ\\ÖÅ!\"ˆ‚%\nbˆÌ×ÀÎ#ƒ`ÆØ!ˆÙcˆ‚NdbˆiZ ZÛÜÀÎ#ƒ° ÅVƒ°ÝÞ!Þ\\‰ÅVƒ¡ÛÜÀÎ#„”dbˆÛÜ!ˆÑÜ!ˆS‰‚€)ÜcˆÑÜ!ˆ S‰‚s-À‡" [nil indent beg ncols forward-line 0 forward-char fill-prefix skip-chars-forward " " end-of-line narrow-to-region re-search-forward " *" t delete-region match-beginning skip-chars-backward " ])\"'" (46 63 33) 2 1 match-end "[.?!][])\"']*\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]) (fset '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"]) (fset 'fill-individual-paragraphs #[(min max &optional justifyp mailp) "ŒŠbˆÁÂ!ˆ ƒ\"ÄÅ!„ÄÆ!ƒ\"ÇÈÉÊ#ˆ‚ Ë` \"ˆÍÎ!ˆm?…½ÁÂ!ˆ`ɉƒJÄ!„\\Ò`ŠÍÓ!ˆ`)\"Ô!ÁÕ!ˆm„¥ƒ‡Ä!„¥ŠÄ!…‚ØG!ˆÄ!)?‚¢Ä!ƒ¥ŠØG!ˆÄ!† Ä!)?„>nÛ`#ˆ„¹ÝÞ!ˆ,‚(*‡" [min forward-line 0 mailp looking-at "[ ]*[^ \n]*:" "[ ]*$" search-forward "\n\n" nil move narrow-to-region max skip-chars-forward " \n" fill-prefix-regexp fill-prefix start buffer-substring " " regexp-quote 1 fill-individual-varying-indent paragraph-separate forward-char 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"])