ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/flow-fill.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\206 pq\210 \205H e\306\307 d\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\206 q\210eb\210\306\307\310\311#\203 \312\313!\210\314y\210\202 eb\210\306\315\310\311#\205\352 \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\346 \3411\336 \n\205\302 \n\326P\342\f!\310\211 ( ) *\343\344 \345 Td^\346\347$,0\202\345 \210\314y\210\202\346 \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 filladapt-mode 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)
Kontol Shell Bypass