Current File : //usr/local/share/emacs/27.2/lisp/erc/erc-compat.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!\210\302\303\304\"\210\305\303\306\304#\207" [require format-spec defalias erc-define-minor-mode define-minor-mode put edebug-form-spec] 4)
#@31 Decode S using CODING-SYSTEM.
(defalias 'erc-decode-coding-string #[(s coding-system) "\302 \303#\207" [s coding-system decode-coding-string t] 4 (#$ . 569)])
#@126 Encode S using CODING-SYSTEM.
Return the same string, if the encoding operation is trivial.
See `erc-encoding-coding-alist'.
(defalias 'erc-encode-coding-string #[(s coding-system) "\302 \303#\207" [s coding-system encode-coding-string t] 4 (#$ . 736)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\305\306\307\"\210\300\310\306\"\210\300\311\312\"\210\300\313\314\"\207" [defalias erc-propertize propertize 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] 3)
(defalias 'erc-set-write-file-functions #[(new-val) "\302\301!\210\211\207" [new-val write-file-functions make-local-variable] 2])
#@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) (#$ . 1473))
#@132 Directory beneath which additional per-user Emacs-specific files
are placed.
Note that this should end with a directory separator.
(defvar erc-user-emacs-directory (byte-code "\302\300!\203 \207\302\301!\203 \207\303\207" [user-emacs-directory user-init-directory boundp "~/.emacs.d/"] 2) (#$ . 1684))
#@286 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.
(defalias 'erc-replace-match-subexpression-in-string #[(newtext string match subexp start &optional fixedcase literal) "\305 \n \f%\207" [newtext fixedcase literal string subexp replace-match] 6 (#$ . 1997)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\207" [defalias erc-with-selected-window with-selected-window erc-cancel-timer cancel-timer erc-make-obsolete make-obsolete erc-make-obsolete-variable make-obsolete-variable] 3)
#@97 Find the first item satisfying PREDICATE in LIST.
Return the sublist of LIST whose car matches.
(defalias 'erc-member-if #[(predicate list) "\3032 \205 \n @!\203 \304\303 \"\210 A\211\204\n \3050)\207" [list ptr predicate found throw nil] 4 (#$ . 2756)])
#@127 Remove all items satisfying PREDICATE in SEQ.
This is a destructive function: it reuses the storage of SEQ
whenever possible.
(defalias 'erc-delete-if #[(predicate seq) " @!\203 A\211\204 \211A\n\2032 \n@!\203( \n:\205& \nA\241\210 A\211A\211\204 * \207" [predicate seq next ptr] 3 (#$ . 3025)])
#@148 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.
(defalias 'erc-remove-if-not #[(predicate seq) "\305 \305\211\203 @\f\n!\203 \nB A\211\204\n *\237)\207" [newseq seq el --dolist-tail-- predicate nil] 3 (#$ . 3341)])
#@165 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.
(defalias 'erc-subseq #[(seq start &optional end) ";\203 \306 \n#\207\307\n\203 \n\310W\203 \nG\211\\ \310W\203/ \206- G\211\\<\203d \310V\203> \233\n\203^ \307 \nS\211 Y\203X \211A\242\fB\202D \f\237)\202\223 \311!\202\223 \n\204o \206n G\312\n Z\310]\307\"\310 \nW\203\221 \f
HI\210
T T\211\202{ \f*)\207" [seq start end len res i substring nil 0 copy-sequence make-vector] 5 (#$ . 3673)])
(provide 'erc-compat)
Mini Shell