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



(byte-code "\300\301!\210\302\303\304\305#\210\306\303\304\307#\207" [require format-spec defalias erc-define-minor-mode define-minor-mode nil make-obsolete "28.1"] 4)
#@53 Decode S using CODING-SYSTEM.

(fn S CODING-SYSTEM)
(defalias 'erc-decode-coding-string #[514 "\300\301#\207" [decode-coding-string t] 6 (#$ . 252)])
(make-obsolete 'erc-decode-coding-string 'decode-coding-string "28.1")
#@148 Encode S using CODING-SYSTEM.
Return the same string, if the encoding operation is trivial.
See `erc-encoding-coding-alist'.

(fn S CODING-SYSTEM)
(defalias 'erc-encode-coding-string #[514 "\300\301#\207" [encode-coding-string t] 6 (#$ . 482)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\210\300\305\306\303#\210\304\310\311\307#\210\300\310\311\303#\210\312\313\314\"\210\304\315\313\307#\210\300\315\313\303#\210\304\316\317\307#\210\300\316\317\303#\210\304\320\321\307#\210\300\320\321\303#\207" [make-obsolete erc-encode-coding-string encode-coding-string "28.1" defalias erc-propertize propertize nil erc-view-mode-enter view-mode-enter autoload help-function-arglist "help-fns" erc-function-arglist erc-delete-dups delete-dups erc-replace-regexp-in-string replace-regexp-in-string] 4)
#@16 

(fn NEW-VAL)
(defalias 'erc-set-write-file-functions #[257 "\301\300!\210\211\211\207" [write-file-functions make-local-variable] 3 (#$ . 1290)])
(make-obsolete 'erc-set-write-file-functions nil "28.1")
#@62 Time at which Emacs was dumped out, or nil if not available.
(defvar erc-emacs-build-time (byte-code ";\204	\204\207\301\302\"\207" [emacs-build-time format-time-string "%Y-%m-%d"] 3) (#$ . 1502))
(byte-code "\300\301\302\303#\210\304\305\306\307#\210\310\211\203.\211@\305
N\203'\306
N\204'\311\306\305N#\210
A\266\202\202
\210\300\305\306\303#\207" [make-obsolete-variable erc-emacs-build-time emacs-build-time "28.1" defvaralias erc-user-emacs-directory user-emacs-directory nil (saved-value saved-variable-comment) put] 7)
#@354 Replace the subexpression SUBEXP of the last match in STRING with NEWTEXT.
MATCH is the text which matched the subexpression (see `match-string').
START is the beginning position of the last match (see `match-beginning').
See `replace-match' for explanations of FIXEDCASE and LITERAL.

(fn NEWTEXT STRING MATCH SUBEXP START &optional FIXEDCASE LITERAL)
(defalias 'erc-replace-match-subexpression-in-string #[1797 "\300	%\207" [replace-match] 13 (#$ . 2049)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\210\300\305\306\303#\210\304\310\311\307#\210\300\310\311\303#\210\304\312\300\307#\210\300\312\300\303#\210\304\313\314\307#\210\300\313\314\303#\207" [make-obsolete erc-replace-match-subexpression-in-string replace-match "28.1" defalias erc-with-selected-window with-selected-window nil erc-cancel-timer cancel-timer erc-make-obsolete erc-make-obsolete-variable make-obsolete-variable] 4)
#@118 Find the first item satisfying PREDICATE in LIST.
Return the sublist of LIST whose car matches.

(fn PREDICATE LIST)
(defalias 'erc-member-if #[514 "\211\3002\211\205
@!\203\301\300\"\210\211A\262
\2020\207" [found throw] 6 (#$ . 2964)])
(make-obsolete 'erc-member-if 'cl-member-if "28.1")
#@147 Remove all items satisfying PREDICATE in SEQ.
This is a destructive function: it reuses the storage of SEQ
whenever possible.

(fn PREDICATE SEQ)
(defalias 'erc-delete-if #[514 "

@!\203\211A\211\262\204\211
A\211\2032
@!\203'

:\205%
A\241\210
A\262
A\262
\202\266\207" [] 6 (#$ . 3271)])
(make-obsolete 'erc-delete-if 'cl-delete-if "28.1")
#@168 Remove all items not satisfying PREDICATE in SEQ.
This is a non-destructive function; it makes a copy of SEQ to
avoid corrupting the original SEQ.

(fn PREDICATE SEQ)
(defalias 'erc-remove-if-not #[514 "\300
\211\203\211@
!\203\211B\262
A\266\202\202\210\211\237\207" [nil] 7 (#$ . 3633)])
(make-obsolete 'erc-remove-if-not 'cl-remove-if-not "28.1")
#@195 Return the subsequence of SEQ from START to END.
If END is omitted, it defaults to the length of the sequence.
If START or END is negative, it counts from the end.

(fn SEQ START &optional END)
(defalias 'erc-subseq #[770 ";\203\nO\207\300
\203
\301W\203
G\211\262\\\262\301W\2031
\206.G\211\262\\\262<\203d\301V\203A\233\262
\203`\300S\211\262Y\203]\211A\262\242
B\262
\202F\211\237\207\302!\207
\204p\211\206nG\262\303Z\301]\300\"\301W\203\223

HI\210\211T\262
T\262\202y
\207" [nil 0 copy-sequence make-vector] 10 (#$ . 3999)])
(byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete erc-subseq cl-subseq "28.1" provide erc-compat] 4)