HOME

;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\304\305\306\307\310\315&	\207" [custom-declare-variable fill-flowed-display-column 'fill-column "Column beyond which format=flowed lines are wrapped, when displayed.\nThis can be a Lisp expression or an integer." :version "22.1" :group mime-display :type (choice (const :tag "Standard `fill-column'" fill-column) (const :tag "Fit Window" (- (window-width) 5)) (sexp) (integer)) fill-flowed-encode-column 66 "Column beyond which format=flowed lines are wrapped, in outgoing messages.\nThis can be a Lisp expression or an integer.\nRFC 2646 suggests 66 characters for readability." (choice (const :tag "Standard fill-column" fill-column) (const :tag "RFC 2646 default (66)" 66) (sexp) (integer))] 10)
(defalias 'fill-flowed-encode #[(&optional buffer) "r\206pq\210	\205He\306\307d\310\311$\211\203F\214\n}\210\312\f!\313 \210)eb\210\314\315\306\311#\203<\316\317\311\211#\210\202+dT\211b\210)\202*\311)\207" [buffer use-hard-newlines end start fill-flowed-encode-column fill-column nil text-property-any hard t eval fill-flowed-fill-buffer re-search-forward "\n" replace-match " \n"] 5])
(defalias 'fill-flowed-fill-buffer #[nil "\304\211eeb\210m\204>\305\306!\205\307\310!\211	\232\203#\311y\210\202	\214`}\210	\312ed\313\314\315%\210)db\210)\n`\202	\214`}\210	\312ed\313\314\315%-\207" [start prev-prefix prefix fill-prefix nil looking-at "[> ]+" match-string 0 1 fill-region t nosqueeze to-eop] 7])
(defalias 'fill-flowed #[(&optional buffer delete-space) "rp\206q\210eb\210\306\307\310\311#\203\312\313!\210\314y\210\202eb\210\306\315\310\311#\205\347\212\316 \210\317\320!)\203 \321\314!\310\211\322\230\203A\310\n\203]\321\323!\322\230\203]\212\316 \210\324\310w\325V\203\\\326c\210)\212\3271h\330u0\202l\210\202m\210\317\331!\317\332!)\203\263\212m?\205\213\314u\210\317\333\334\n\206\211\335\"!)\203\263\212\336\321\323!\326\230\203\235\322\202\236\337!\210)\340\313!\210\203\255\312\313!\210\310\210\202]	\204\343\3411\333\n\205\302\n\326P\342\f!\310()\343\344 \345 Td^\346\347$+0\202\342\210\314y\210\202\343\210*\202 )\207" [buffer sig quote delete-space fill-flowed-display-column adaptive-fill-mode re-search-forward "^\\( \\|>+ $\\)" nil t delete-char -1 1 " $" beginning-of-line looking-at "^\\(>*\\)\\( ?\\)" match-string "" 2 ">" 0 " " (error) -3 "-- " "[^-][^-] " format "^\\(%s\\)\\([^>\n
]\\)" " ?" replace-match "\\2" backward-delete-char (error) eval fill-region point-at-bol point-at-eol left nosqueeze fill-column fill-prefix] 6])
(defvar fill-flowed-encode-tests (byte-code "\300\301BC\207" ["> Thou villainous ill-breeding spongy dizzy-eyed \n> reeky elf-skinned pigeon-egg! \n>> Thou artless swag-bellied milk-livered \n>> dismal-dreaming idle-headed scut!\n>>> Thou errant folly-fallen spleeny reeling-ripe \n>>> unmuzzled ratsbane!\n>>>> Henceforth, the coding style is to be strictly \n>>>> enforced, including the use of only upper case.\n>>>>> I've noticed a lack of adherence to the coding \n>>>>> styles, of late.\n>>>>>> Any complaints?" "> Thou villainous ill-breeding spongy dizzy-eyed reeky elf-skinned\n> pigeon-egg! \n>> Thou artless swag-bellied milk-livered dismal-dreaming idle-headed\n>> scut!\n>>> Thou errant folly-fallen spleeny reeling-ripe unmuzzled ratsbane!\n>>>> Henceforth, the coding style is to be strictly enforced,\n>>>> including the use of only upper case.\n>>>>> I've noticed a lack of adherence to the coding styles, of late.\n>>>>>> Any complaints?\n"] 2))
(defalias 'fill-flowed-test #[nil "\306\307\310!!\210\311 \210\312	\313\211\203Y@\313\211\314c\210\n@c\210\315c\210\316c\210`\n@c\210\214
`}\210\317 \210)
d{\320c\210\f\nA\230\204N\321c\210\nAc\210\322c\210\323c\210*A\211\204*db\207" [show-trailing-whitespace fill-flowed-encode-tests test --dolist-tail-- output start switch-to-buffer get-buffer-create "*Format=Flowed test output*" erase-buffer t nil "***** BEGIN TEST INPUT *****\n" "***** END TEST INPUT *****\n\n" "***** BEGIN TEST OUTPUT *****\n" fill-flowed "***** END TEST OUTPUT *****\n" "\n***** BEGIN TEST EXPECTED OUTPUT *****\n" "***** END TEST EXPECTED OUTPUT *****\n" "\n\n"] 4 nil ""])
(provide 'flow-fill)