;ELC ;;; Compiled by nocturne@mit.edu on Sun Aug 11 15:30:15 2002 ;;; from file /mit/nocturne/home/lib/elisp/fill1.el ;;; in Emacs version 21.1.1 ;;; with bytecomp version 2.85 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`fill1.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@47 *whether to put an extra space after a period (defvar fill-extra-space-after-period t (#$ . -598)) #@144 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. (defalias 'fill-region-as-paragraph #[(from to &optional justify-flag) "\214 }\210eb\210\306\307w\210`d}\210`\n\205 \n\310\232?\205 \311\n!\211\203Z\nG\fY\2030\312\313!\210eb\210\314y\210m\204K\315 !\203E`\316\225|\210\314y\210\2026eb\210\315 !\203X\nGu\210`)b\210\317\320\321\307\322$\203m\323c\210\202^\324d\325\323$\210b\210\326\307w\210\317\327\307\322#\203\246\316\224\212\330\307x\210h\331>)\203\235 \203\231\332\202\236\314\202\236\314\\\316\225|\210\202{db\210\333 \210\334c\210eb\210\316!m?\205\335\fT!\210m\204\343\336\307x\210!\316U\203\322n\202\326!iY\203\340\336\307w\210\202\343\337u\210\333 \210\325c\210m\204\375\n\203\375\n\310\232\204\375\nc\210i!\"\203\265m\204\265\337y\210\340 \210\314y\210\202\265*\207" [from to fill-prefix fpre fill-column fill-extra-space-after-period "\n" nil "" regexp-quote error "fill-prefix too long for specified width" 1 looking-at 0 re-search-forward "[.?!][])" "']*$" t 32 subst-char-in-region 10 " " " *" " ])\"'" (46 63 33) 2 delete-horizontal-space " " move-to-column "^ \n" -1 justify-current-line prefixcol justify-flag] 6 (#$ . 704) "r\nP"])