%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/mail/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/mail/flow-fill.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\304DD\305\306\307\310\311\312\313&	\210\300\314\302\303\315DD\316\306\307\310\311\312\317&	\207" [custom-declare-variable fill-flowed-display-column funcall function #[0 "\300\207" [fill-column] 1] "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 #[0 "\300\207" [66] 1] "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)
#@25 

(fn &optional BUFFER)
(defalias 'fill-flowed-encode #[256 "r\211\206pq\210\205Ie\303\304d\305\306$\211\262\203F\214}\210\307	!\310 \210)eb\210\311\312\303\306#\203;\313\314\306\211#\210\202*dT\211\262b\210)\202\266\306)\207" [use-hard-newlines fill-flowed-encode-column fill-column nil text-property-any hard t eval fill-flowed-fill-buffer re-search-forward "\n" replace-match " \n"] 8 (#$ . 1258)])
(defalias 'fill-flowed-fill-buffer #[0 "\301\211eeb\210m\204>\302\303!\205\304\305!\262\232\203!\306y\210\202\214\211`}\210\307ed\310\311\312%\210)db\210)\262`\262\202\214\211`}\210\307ed\310\311\312%*\207" [fill-prefix nil looking-at "[> ]+" match-string 0 1 fill-region t nosqueeze to-eop] 9])
#@189 Apply RFC2646 decoding to BUFFER.
If BUFFER is nil, default to the current buffer.

If DELETE-SPACE, delete RFC2646 spaces padding at the end of
lines.

(fn &optional BUFFER DELETE-SPACE)
(defalias 'fill-flowed #[512 "r\206pq\210\304!eb\210m?\205\273\305\306!\203q\307 \206 `Sf\310=\203q\311\312!\312\225b\210\305\313!\2047\313c\210\314\210m\204m\212\315y\210\305\316\317\"!)\203m`\315\225|\210\3201h\211\313P\314\321\322 \307 \323\324$*0\202l\210\202m\210\210\202\265g\310=\203{\325\315!\210\305\326!\204\265\307 \206\207`Sf\310=\203\265\314\210\211\203\231\325\327!\210\325\315!\210\3301\260\331\321\322 \307 \323\324$)0\202\264\210\202\265\210\315y\210\202*\207" [fill-flowed-display-column fill-column adaptive-fill-mode fill-prefix eval looking-at "^>+" line-end-position 32 match-string 0 " " nil 1 format "\\(%s ?\\)[^>]" (error) fill-region line-beginning-position left nosqueeze delete-char "-- $" -1 (error) ""] 8 (#$ . 1997)])
(make-obsolete-variable 'fill-flowed-encode-tests nil "27.1")
(defalias 'fill-flowed-test #[0 "\300\301!\207" [user-error "This function is obsolete.  Please see test/lisp/mail/flow-fill-tests.el in the Emacs source tree"] 2 nil ""])
(provide 'flow-fill)

Zerion Mini Shell 1.0