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



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\312\313\314DD\315\316\317\320\321\322\323&	\207" [require erc erc-stamp custom-declare-group erc-fill nil "Filling means to reformat long lines in different ways." :group custom-declare-variable erc-fill-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Erc-Fill mode is enabled.\nSee the `erc-fill-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `erc-fill-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10)
#@300 Toggle ERC fill mode.
With a prefix argument ARG, enable ERC fill mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.

ERC fill mode is a global minor mode.  When enabled, messages in
the channel buffers are filled.

(fn &optional ARG)
(defalias 'erc-fill-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B	\203B\313 \210\202E\314 \210\315\316\305\301!\203Q\317\202R\320\"\210\321\322!\203z\323\301!\210\302 \203j\211\302 \232\203z\324\325\305\301!\203v\326\202w\327\330#\210\210\331 \210\305\301!\207" [global-minor-modes erc-fill-mode current-message set-default toggle default-value 1 nil t boundp delq erc-fill-enable erc-fill-disable run-hooks erc-fill-mode-hook erc-fill-mode-on-hook erc-fill-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-Fill mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 764) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar erc-fill-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [erc-fill-mode-map erc-fill-mode-hook variable-documentation put "Hook run after entering or leaving `erc-fill-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode erc-fill-mode boundp] 6)
#@34 Setup hooks for `erc-fill-mode'.
(defalias 'erc-fill-enable #[0 "\300\301\302\"\210\300\303\302\"\207" [add-hook erc-insert-modify-hook erc-fill erc-send-modify-hook] 3 (#$ . 2370) nil])
#@41 Cleanup hooks, disable `erc-fill-mode'.
(defalias 'erc-fill-disable #[0 "\300\301\302\"\210\300\303\302\"\207" [remove-hook erc-insert-modify-hook erc-fill erc-send-modify-hook] 3 (#$ . 2563) nil])
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\210\300\314\302\303\315DD\316\306\317%\210\300\320\302\303\321DD\322\306\317%\210\300\323\302\303\324DD\325\306\317%\207" [custom-declare-variable erc-fill-prefix funcall function #[0 "\300\207" [nil] 1 #1=""] "Values used as `fill-prefix' for `erc-fill-variable'.\nnil means fill with space, a string means fill with this string." :type (choice (const nil) string) erc-fill-function #[0 "\300\207" [erc-fill-variable] 1 #1#] "Function to use for filling messages.\n\nVariable Filling with an `erc-fill-prefix' of nil:\n\n<shortnick> this is a very very very long message with no\n	    meaning at all\n\nVariable Filling with an `erc-fill-prefix' of four spaces:\n\n<shortnick> this is a very very very long message with no\n    meaning at all\n\nStatic Filling with `erc-fill-static-center' of 27:\n\n		<shortnick> foo bar baz\n	 <a-very-long-nick> foo bar baz quuuuux\n		<shortnick> this is a very very very long message with no\n			    meaning at all\n\nThese two styles are implemented using `erc-fill-variable' and\n`erc-fill-static'.  You can, of course, define your own filling\nfunction.  Narrowing to the region in question is in effect while your\nfunction is called." (choice (const :tag "Variable Filling" erc-fill-variable) (const :tag "Static Filling" erc-fill-static) function) erc-fill-static-center #[0 "\300\207" [27] 1 #1#] "Column around which all statically filled messages will be centered.\nThis column denotes the point where the ` ' character between\n<nickname> and the entered text will be put, thus aligning nick\nnames right and text left." integer erc-fill-variable-maximum-indentation #[0 "\300\207" [17] 1 #1#] "Don't indent a line after a long nick more than this many characters.\nSet to nil to disable." erc-fill-column #[0 "\300\207" [78] 1 #1#] "The column at which a filled paragraph is broken."] 6)
#@145 Fill a region using the function referenced in `erc-fill-function'.
You can put this on `erc-insert-modify-hook' and/or `erc-send-modify-hook'.
(defalias 'erc-fill #[0 "\301ed{!?\2053\2053eb\210\302 \303\304\"\216\305\306!\203$\307y\310U\204)\210m?\2053\214`d}\210 )\207" [erc-fill-function erc-string-invisible-p match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] looking-at "[ 	\n]*$" 1 0] 4 (#$ . 4693)])
#@75 Fills a text such that messages start at column `erc-fill-static-center'.
(defalias 'erc-fill-static #[0 "\304 \305\306\"\216eb\210\307\310!\210\311\312!\313 Z\314	\315\"\314\316	GZS]\315\"c\210\317 \210*\320 \262
)\207" [erc-fill-column erc-fill-static-center fill-prefix fill-column match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] looking-at "^\\(\\S-+\\)" match-string 1 erc-timestamp-offset make-string 32 0 erc-fill-regarding-timestamp erc-restore-text-properties] 6 (#$ . 5147)])
#@39 Fill from `point-min' to `point-max'.
(defalias 'erc-fill-variable #[0 "	\206\neb\210\203*\305\306 \307\"\211c\210\310ed\311\211$\210eb\210\312
G!\266\202\\\313 \314\315\"\216\316\317!\211\203>\320\321!\202?\322	\306 Z\305
GT\nS^\f\206P\n^\307\"\323 \210*\266)\210\324 *\207" [erc-fill-prefix erc-fill-column fill-column fill-prefix erc-fill-variable-maximum-indentation make-string erc-timestamp-offset 32 fill-region t delete-char match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] looking-at "^\\(\\S-+\\)" match-string 1 "" erc-fill-regarding-timestamp erc-restore-text-properties] 6 (#$ . 5678)])
#@75 Fills a text such that messages start at column `erc-fill-static-center'.
(defalias 'erc-fill-regarding-timestamp #[0 "\300ed\301\211$\210eb\210\302y\210\303`d\304 #\207" [fill-region t nil indent-rigidly erc-timestamp-offset] 5 (#$ . 6333)])
#@43 Get length of timestamp if inserted left.
(defalias 'erc-timestamp-offset #[0 "\303\300!\203\203	\304=\203\n\204\305!G\207\306\207" [erc-timestamp-format erc-insert-timestamp-function erc-hide-timestamps boundp erc-insert-timestamp-left format-time-string 0] 2 (#$ . 6582)])
(provide 'erc-fill)