Gecko [ 122.154.134.11 ]

Name	Size	Permission
erc-autoaway.elc	11.58 KB	-rw-r--r--
erc-backend.elc	154.28 KB	-rw-r--r--
erc-button.elc	16.69 KB	-rw-r--r--
erc-capab.elc	7.67 KB	-rw-r--r--
erc-compat.elc	4.38 KB	-rw-r--r--
erc-dcc.elc	39.39 KB	-rw-r--r--
erc-ezbounce.elc	5.19 KB	-rw-r--r--
erc-fill.elc	6.71 KB	-rw-r--r--
erc-goodies.elc	32.55 KB	-rw-r--r--
erc-hecomplete.elc	7.96 KB	-rw-r--r--
erc-ibuffer.elc	6.77 KB	-rw-r--r--
erc-identd.elc	4.86 KB	-rw-r--r--
erc-imenu.elc	2.61 KB	-rw-r--r--
erc-join.elc	6.03 KB	-rw-r--r--
erc-lang.elc	4.68 KB	-rw-r--r--
erc-list.elc	9.25 KB	-rw-r--r--
erc-log.elc	14.83 KB	-rw-r--r--
erc-match.elc	19.02 KB	-rw-r--r--
erc-menu.elc	6.15 KB	-rw-r--r--
erc-netsplit.elc	7.94 KB	-rw-r--r--
erc-networks.elc	39.94 KB	-rw-r--r--
erc-notify.elc	9.37 KB	-rw-r--r--
erc-page.elc	4.88 KB	-rw-r--r--
erc-pcomplete.elc	10.62 KB	-rw-r--r--
erc-replace.elc	3.85 KB	-rw-r--r--
erc-ring.elc	5.21 KB	-rw-r--r--
erc-services.elc	15.01 KB	-rw-r--r--
erc-sound.elc	5.59 KB	-rw-r--r--
erc-speedbar.elc	10 KB	-rw-r--r--
erc-spelling.elc	4.66 KB	-rw-r--r--
erc-stamp.elc	14.9 KB	-rw-r--r--
erc-track.elc	34.83 KB	-rw-r--r--
erc-truncate.elc	4.18 KB	-rw-r--r--
erc-xdcc.elc	5.74 KB	-rw-r--r--
erc.elc	219.16 KB	-rw-r--r--

Code Editor : erc-compat.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:01 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/erc/erc-compat.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`erc-compat.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(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 (#$ . 776)])
#@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 (#$ . 943)])
(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])
#@37 Time at which Emacs was dumped out.
(defvar erc-emacs-build-time (byte-code ";\203�\207\301\302\"\207" [emacs-build-time format-time-string "%Y-%m-%d"] 3) (#$ . 1680))
#@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) (#$ . 1859))
#@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 (#$ . 2172)])
(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) "\302\303\215)\207" [list ptr found (byte-code "\205�	@!\203�\302\303\"\210A\211\204�\304\207" [ptr predicate throw found nil] 4)] 2 (#$ . 2931)])
#@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\210A\211A\211\204�*	\207" [predicate seq next ptr] 3 (#$ . 3235)])
#@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�\nBA\211\204\n�*\237)\207" [newseq seq el #1=#:--cl-dolist-temp-- predicate nil] 3 (#$ . 3551)])
#@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\n�	\nO\207\306\n\203�\n\307W\203�\nG\211\\	\307W\203.�	\206,�G\211\\<\203c�	\307V\203=�	\233\n\203]�\306\nS\211	Y\203W�\211A@\fB\202C�\f\237)\202\222�\310!\202\222�\n\204n�\206m�G\311\n	Z\307]\306\"\307	\nW\203\220�\f
	HI\210
T	T\211\202z�\f*)\207" [seq start end len res i nil 0 copy-sequence make-vector] 5 (#$ . 3891)])
(provide 'erc-compat)

${this.title}

Code Editor : erc-compat.elc