;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:13:00 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/erc/erc-replace.el
;;; in Emacs version 24.0.50.1
;;; 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\305\306\301%\207" [require erc custom-declare-group erc-replace nil "Replace text from incoming messages" :group] 6)
#@377 Alist describing text to be replaced in incoming messages.
This is useful for filters.

The alist has elements of the form (FROM . TO).  FROM can be a regular
expression or a variable, or any sexp, TO can be a string or a
function to call, or any sexp.  If a function, it will be called with
one argument, the string to be replaced, and it should return a
replacement string.
(custom-declare-variable 'erc-replace-alist 'nil '(#$ . 705) :group 'erc-replace :type '(repeat (cons :tag "Search & Replace" (choice :tag "From" regexp variable sexp) (choice :tag "To" string function sexp))))
#@99 Function to run from `erc-insert-modify-hook'.
It replaces text according to `erc-replace-alist'.
(defalias 'erc-replace-insert #[nil "\301\302\"\207" [erc-replace-alist mapcar #[(elt) "eb\210@A\211;\204\303\n!\304\n\305\306#\205C	;\203&\307	!\210\202	9\203<\310	!\203<\307	\311\312!!!\210\202\303	!\210\202*\207" [elt to from eval re-search-forward nil t replace-match fboundp match-string 0] 5]] 3 (#$ . 1298)])
#@269 Non-nil if Erc-Replace mode is enabled.
See the command `erc-replace-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `erc-replace-mode'.
(custom-declare-variable 'erc-replace-mode 'nil '(#$ . 1737) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-replace :type 'boolean)
#@160 Toggle ERC replace mode.
With arg, turn ERC replace mode on if and only if arg is positive.
This mode replaces incoming text according to `erc-replace-alist'.
(defalias 'erc-replace-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\211\203\307 \210\202!\310 \210\311\312\n\203+\313\202,\314\"\210\315\316!\203Q\317\302!\210\303 \203D\303 \232\203Q\320\321\n\203N\322\202O\323\"\210)\324 \210\n\207" [#1=#:last-message arg erc-replace-mode current-message toggle prefix-numeric-value 0 erc-replace-enable erc-replace-disable run-hooks erc-replace-mode-hook erc-replace-mode-on-hook erc-replace-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-Replace mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 2176) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [erc-replace-mode-map add-minor-mode erc-replace-mode nil boundp] 6)
#@26 Enable ERC replace mode.
(defalias 'erc-replace-enable #[nil "\301\302\303\"\210\304\305\306\307\"\207" [erc-replace-mode add-to-list erc-modules replace t add-hook erc-insert-modify-hook erc-replace-insert] 3 (#$ . 3113) nil])
#@27 Disable ERC replace mode.
(defalias 'erc-replace-disable #[nil "\302\303\"\304\305\306\307\"\207" [erc-modules erc-replace-mode delq replace nil remove-hook erc-insert-modify-hook erc-replace-insert] 3 (#$ . 3348) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\306\307!\207" [put erc-replace-mode definition-name replace erc-replace-enable erc-replace-disable provide erc-replace] 4)
