;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\301%\210\307\310\311\312\313DD\314\315\316%\207" [require erc custom-declare-group erc-replace nil "Replace text from incoming messages." :group custom-declare-variable erc-replace-alist funcall function #[0 "\300\207" [nil] 1 ""] "Alist describing text to be replaced in incoming messages.\nThis is useful for filters.\n\nThe alist has elements of the form (FROM . TO). FROM can be a regular\nexpression or a variable, or any sexp, TO can be a string or a\nfunction to call, or any sexp. If a function, it will be called with\none argument, the string to be replaced, and it should return a\nreplacement string." :type (repeat (cons :tag "Search & Replace" (choice :tag "From" regexp variable sexp) (choice :tag "To" string function sexp)))] 6)#@99 Function to run from `erc-insert-modify-hook'. It replaces text according to `erc-replace-alist'. (defalias 'erc-replace-insert #[0 "\301\302\"\207" [erc-replace-alist mapcar #[257 "eb\210\211@A;\204\300\301\"\262\302\303\301#\205?\211;\203&\304!\210\202\305!\2037\304\306\307!!!\210\202\300\301\"\210\202\207" [eval t re-search-forward nil replace-match functionp match-string 0] 7 "\n\n(fn ELT)"]] 3 (#$ . 877)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable erc-replace-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Erc-Replace mode is enabled.\nSee the `erc-replace-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-replace-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group erc-replace] 12)#@266 Toggle ERC replace mode. With a prefix argument ARG, enable replace if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. This mode replaces incoming text according to `erc-replace-alist'. (fn &optional ARG) (defalias 'erc-replace-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!\203{\323\301!\210\302 \203j\211\302 \232\203{\324\325\326\305\301!\203w\327\202x\330\331$\210\210\332 \210\305\301!\207" [global-minor-modes erc-replace-mode current-message set-default toggle default-value 1 nil t boundp delq 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 "%s %sabled%s" "Erc-Replace mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 1861) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar erc-replace-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-replace-mode-map erc-replace-mode-hook variable-documentation put "Hook run after entering or leaving `erc-replace-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-replace-mode boundp] 6)#@26 Enable ERC replace mode. (defalias 'erc-replace-enable #[0 "\302>\203 \210\202\302B\303\304\305\306\"\207" [erc-modules erc-replace-mode replace t add-hook erc-insert-modify-hook erc-replace-insert] 3 (#$ . 3481) nil])#@27 Disable ERC replace mode. (defalias 'erc-replace-disable #[0 "\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 (#$ . 3713) nil]) (byte-code "\300\301\302\303#\210\300\301\304\303#\210\300\305\304\303#\210\300\306\304\303#\210\307\310!\207" [put erc-replace-mode erc-module replace definition-name erc-replace-enable erc-replace-disable provide erc-replace] 4)