| Current Path : /usr/share/emacs/24.3/lisp/erc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/erc/erc-replace.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:45 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/erc/erc-replace.el ;;; in Emacs version 24.3.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%\210\307\310\304\311\306\303\312\313&\207" [require erc custom-declare-group erc-replace nil "Replace text from incoming messages" :group custom-declare-variable erc-replace-alist "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)))] 8) #@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 (#$ . 1306)]) #@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 '(#$ . 1745) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-replace :type 'boolean) #@246 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'. (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 (#$ . 2183) (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 (#$ . 3206) 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 (#$ . 3441) 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)