ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/erc/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/erc/erc-replace.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 1158)])
#@269 Non-nil if Erc-Replace mode is enabled.
See the `erc-replace-mode' command
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 '(#$ . 1597) :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) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\n\203# \312 \210\202& \313 \210\314\315\307\302!\2032 \316\2023 \317\"\210\320\321!\203^ \322\302!\210\304 \203K \304 \232\203^ \323\324\325\307\302!\203Y \326\202Z \327 #\210))\330 \210\307\302!\207" [#1=#:last-message arg erc-replace-mode local current-message set-default toggle default-value 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%s" "en" "dis" force-mode-line-update] 4 (#$ . 2035) (list (or current-prefix-arg 'toggle))])
#@181 Hook run after entering or leaving `erc-replace-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar erc-replace-mode-hook nil (#$ . 3016))
(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 (#$ . 3374) 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 (#$ . 3609) 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)
Kontol Shell Bypass