Current File : //usr/local/share/emacs/27.2/lisp/erc/erc-goodies.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'erc)
#@39 Setup Imenu support in an ERC buffer.
(defalias 'erc-imenu-setup #[nil "\301\300!\210\302\211\207" [imenu-create-index-function make-local-variable erc-create-imenu-index] 2 (#$ . 423)])
(add-hook 'erc-mode-hook 'erc-imenu-setup)
#@31 Imenu index creation function
(autoload 'erc-create-imenu-index "erc-imenu" '(#$ . 660))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\312\313\314\315\304\316\306\317& \207" [custom-declare-variable erc-input-line-position nil "Specify where to position the input line when using `erc-scroll-to-bottom'.\n\nThis should be an integer specifying the line of the buffer on which\nthe input line should stay. A value of \"-1\" would keep the input\nline positioned on the last line in the buffer. This is passed as an\nargument to `recenter'." :group erc-display :type (choice integer (const nil)) erc-scrolltobottom-mode "Non-nil if Erc-Scrolltobottom mode is enabled.\nSee the `erc-scrolltobottom-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-scrolltobottom-mode'." :set custom-set-minor-mode :initialize custom-initialize-default erc-scrolltobottom boolean] 12)
#@255 Toggle ERC scrolltobottom mode.
With a prefix argument ARG, enable scrolltobottom if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
This mode causes the prompt to stay at the end of the window.
(defalias 'erc-scrolltobottom-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-scrolltobottom-mode local current-message set-default toggle default-value prefix-numeric-value 0 erc-scrolltobottom-enable erc-scrolltobottom-disable run-hooks erc-scrolltobottom-mode-hook erc-scrolltobottom-mode-on-hook erc-scrolltobottom-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Erc-Scrolltobottom mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 1701) (list (or current-prefix-arg 'toggle))])
(defvar erc-scrolltobottom-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [erc-scrolltobottom-mode-map erc-scrolltobottom-mode-hook variable-documentation put "Hook run after entering or leaving `erc-scrolltobottom-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode erc-scrolltobottom-mode nil boundp] 6)
#@33 Enable ERC scrolltobottom mode.
(defalias 'erc-scrolltobottom-enable #[nil "\303\304\305\"\210\306\307\310\311\"\210\307\312\313\"\210\314 \315\211\205- \n@r q\210\311 \210)\nA\211\204 \315*\207" [erc-scrolltobottom-mode buffer --dolist-tail-- add-to-list erc-modules scrolltobottom t add-hook erc-mode-hook erc-add-scroll-to-bottom erc-insert-done-hook erc-possibly-scroll-to-bottom erc-buffer-list nil] 4 (#$ . 3210) nil])
#@34 Disable ERC scrolltobottom mode.
(defalias 'erc-scrolltobottom-disable #[nil "\304\305\"\306\307\310\311\"\210\307\312\313\"\210\314 \306\211\2050 @r\nq\210\307\315\316\317#\210) A\211\204 \306*\207" [erc-modules erc-scrolltobottom-mode buffer --dolist-tail-- delq scrolltobottom nil remove-hook erc-mode-hook erc-add-scroll-to-bottom erc-insert-done-hook erc-possibly-scroll-to-bottom erc-buffer-list post-command-hook erc-scroll-to-bottom t] 5 (#$ . 3647) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-scrolltobottom-mode definition-name scrolltobottom erc-scrolltobottom-enable erc-scrolltobottom-disable] 4)
#@66 Like `erc-add-scroll-to-bottom', but only if window is selected.
(defalias 'erc-possibly-scroll-to-bottom #[nil "\300 \301 =\205\n \302 \207" [selected-window get-buffer-window erc-scroll-to-bottom] 2 (#$ . 4320)])
#@306 A hook function for `erc-mode-hook' to recenter output at bottom of window.
If you find that ERC hangs when using this function, try customizing
the value of `erc-input-line-position'.
This works whenever scrolling happens, so it's added to
`window-scroll-functions' rather than `erc-insert-post-hook'.
(defalias 'erc-add-scroll-to-bottom #[nil "\300\301\302\303\304$\207" [add-hook post-command-hook erc-scroll-to-bottom nil t] 5 (#$ . 4542)])
#@229 Recenter WINDOW so that `point' is on the last line.
This is added to `window-scroll-functions' by `erc-add-scroll-to-bottom'.
You can control which line is recentered to by customizing the
variable `erc-input-line-position'.
(defalias 'erc-scroll-to-bottom #[nil "\303\214~\210 \205 ` V\205 \212db\210\304\n\206 \305!)*\207" [resize-mini-windows erc-insert-marker erc-input-line-position nil recenter -1] 2 (#$ . 4996)])
#@272 Non-nil if Erc-Readonly mode is enabled.
See the `erc-readonly-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-readonly-mode'.
(custom-declare-variable 'erc-readonly-mode nil '(#$ . 5431) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-readonly :type 'boolean)
#@233 Toggle ERC readonly mode.
With a prefix argument ARG, enable readonly if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
This mode causes all inserted text to be read-only.
(defalias 'erc-readonly-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-readonly-mode local current-message set-default toggle default-value prefix-numeric-value 0 erc-readonly-enable erc-readonly-disable run-hooks erc-readonly-mode-hook erc-readonly-mode-on-hook erc-readonly-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Erc-Readonly mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 5874) (list (or current-prefix-arg 'toggle))])
(defvar erc-readonly-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [erc-readonly-mode-map erc-readonly-mode-hook variable-documentation put "Hook run after entering or leaving `erc-readonly-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode erc-readonly-mode nil boundp] 6)
#@27 Enable ERC readonly mode.
(defalias 'erc-readonly-enable #[nil "\301\302\303\"\210\304\305\306\307\"\210\305\310\307\"\207" [erc-readonly-mode add-to-list erc-modules readonly t add-hook erc-insert-post-hook erc-make-read-only erc-send-post-hook] 3 (#$ . 7283) nil])
#@28 Disable ERC readonly mode.
(defalias 'erc-readonly-disable #[nil "\302\303\"\304\305\306\307\"\210\305\310\307\"\207" [erc-modules erc-readonly-mode delq readonly nil remove-hook erc-insert-post-hook erc-make-read-only erc-send-post-hook] 3 (#$ . 7557) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-readonly-mode definition-name readonly erc-readonly-enable erc-readonly-disable] 4)
#@125 Make all the text in the current buffer read-only.
Put this function on `erc-insert-post-hook' and/or `erc-send-post-hook'.
(defalias 'erc-make-read-only #[nil "\300ed\301\302$\210\300ed\303\302$\210\300ed\304\302$\207" [put-text-property read-only t front-sticky rear-nonsticky] 5 (#$ . 7996)])
#@290 Non-nil if Erc-Move-To-Prompt mode is enabled.
See the `erc-move-to-prompt-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-move-to-prompt-mode'.
(custom-declare-variable 'erc-move-to-prompt-mode nil '(#$ . 8299) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-move-to-prompt :type 'boolean)
#@264 Toggle ERC move-to-prompt mode.
With a prefix argument ARG, enable move-to-prompt if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
This mode causes the point to be moved to the prompt when typing text.
(defalias 'erc-move-to-prompt-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-move-to-prompt-mode local current-message set-default toggle default-value prefix-numeric-value 0 erc-move-to-prompt-enable erc-move-to-prompt-disable run-hooks erc-move-to-prompt-mode-hook erc-move-to-prompt-mode-on-hook erc-move-to-prompt-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Erc-Move-To-Prompt mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 8772) (list (or current-prefix-arg 'toggle))])
(defvar erc-move-to-prompt-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [erc-move-to-prompt-mode-map erc-move-to-prompt-mode-hook variable-documentation put "Hook run after entering or leaving `erc-move-to-prompt-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode erc-move-to-prompt-mode nil boundp] 6)
#@33 Enable ERC move-to-prompt mode.
(defalias 'erc-move-to-prompt-enable #[nil "\303\304\305\"\210\306\307\310\311\"\210\312 \313\211\205( \n@r q\210\311 \210)\nA\211\204 \313*\207" [erc-move-to-prompt-mode buffer --dolist-tail-- add-to-list erc-modules move-to-prompt t add-hook erc-mode-hook erc-move-to-prompt-setup erc-buffer-list nil] 4 (#$ . 10290) nil])
#@34 Disable ERC move-to-prompt mode.
(defalias 'erc-move-to-prompt-disable #[nil "\304\305\"\306\307\310\311\"\210\312 \306\211\205+ @r\nq\210\307\313\314\315#\210) A\211\204 \306*\207" [erc-modules erc-move-to-prompt-mode buffer --dolist-tail-- delq move-to-prompt nil remove-hook erc-mode-hook erc-move-to-prompt-setup erc-buffer-list pre-command-hook erc-move-to-prompt t] 5 (#$ . 10659) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-move-to-prompt-mode definition-name move-to-prompt erc-move-to-prompt-enable erc-move-to-prompt-disable] 4)
#@71 Move the point to the ERC prompt if this is a self-inserting command.
(defalias 'erc-move-to-prompt #[nil "\205 `W\205 \302=\205 \303 \210\304 \210db\207" [erc-input-marker this-command self-insert-command deactivate-mark push-mark] 2 (#$ . 11261)])
#@50 Initialize the move-to-prompt module for XEmacs.
(defalias 'erc-move-to-prompt-setup #[nil "\300\301\302\303\304$\207" [add-hook pre-command-hook erc-move-to-prompt nil t] 5 (#$ . 11523)])
#@278 Non-nil if Erc-Keep-Place mode is enabled.
See the `erc-keep-place-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-keep-place-mode'.
(custom-declare-variable 'erc-keep-place-mode nil '(#$ . 11719) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-keep-place :type 'boolean)
#@237 Toggle ERC keep-place mode.
With a prefix argument ARG, enable keep-place if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
Leave point above un-viewed text in other channels.
(defalias 'erc-keep-place-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-keep-place-mode local current-message set-default toggle default-value prefix-numeric-value 0 erc-keep-place-enable erc-keep-place-disable run-hooks erc-keep-place-mode-hook erc-keep-place-mode-on-hook erc-keep-place-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Erc-Keep-Place mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 12173) (list (or current-prefix-arg 'toggle))])
(defvar erc-keep-place-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [erc-keep-place-mode-map erc-keep-place-mode-hook variable-documentation put "Hook run after entering or leaving `erc-keep-place-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode erc-keep-place-mode nil boundp] 6)
#@29 Enable ERC keep-place mode.
(defalias 'erc-keep-place-enable #[nil "\301\302\303\"\210\304\305\306\307\"\207" [erc-keep-place-mode add-to-list erc-modules keep-place t add-hook erc-insert-pre-hook erc-keep-place] 3 (#$ . 13613) nil])
#@30 Disable ERC keep-place mode.
(defalias 'erc-keep-place-disable #[nil "\302\303\"\304\305\306\307\"\207" [erc-modules erc-keep-place-mode delq keep-place nil remove-hook erc-insert-pre-hook erc-keep-place] 3 (#$ . 13854) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-keep-place-mode definition-name keep-place erc-keep-place-enable erc-keep-place-disable] 4)
#@66 Move point away from the last line in a non-selected ERC buffer.
(defalias 'erc-keep-place #[(ignored) "\304\305 !p=?\205: `Y\205: \306 \210\307 b\210\310y\210 \205: \311 \312\211\2059 @\313\314\n\312\315$\210 A\211\204' \312*\207" [erc-insert-marker switch-to-buffer-preserve-window-point frame --dolist-tail-- window-buffer selected-window deactivate-mark erc-beg-of-input-line -1 frame-list nil walk-window-tree #[(window) "p\303!\236\211\205 AA\211\304 \240))\207" [window prev #1=#:c window-prev-buffers point-marker] 4] nominibuf] 6 (#$ . 14267)])
#@203 List of commands that are aliases for CTCP ACTION or for ERC messages.
If a command's function symbol is in this list, the typed command
does not appear in the ERC buffer after the user presses ENTER.
(defvar erc-noncommands-list '(erc-cmd-ME erc-cmd-COUNTRY erc-cmd-SV erc-cmd-SM erc-cmd-SMV erc-cmd-LASTLOG) (#$ . 14839))
#@281 Non-nil if Erc-Noncommands mode is enabled.
See the `erc-noncommands-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-noncommands-mode'.
(custom-declare-variable 'erc-noncommands-mode nil '(#$ . 15171) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-noncommands :type 'boolean)
#@294 Toggle ERC noncommands mode.
With a prefix argument ARG, enable noncommands if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
This mode distinguishes non-commands.
Commands listed in `erc-insert-this' know how to display
themselves.
(defalias 'erc-noncommands-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-noncommands-mode local current-message set-default toggle default-value prefix-numeric-value 0 erc-noncommands-enable erc-noncommands-disable run-hooks erc-noncommands-mode-hook erc-noncommands-mode-on-hook erc-noncommands-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Erc-Noncommands mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 15630) (list (or current-prefix-arg 'toggle))])
(defvar erc-noncommands-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [erc-noncommands-mode-map erc-noncommands-mode-hook variable-documentation put "Hook run after entering or leaving `erc-noncommands-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode erc-noncommands-mode nil boundp] 6)
#@30 Enable ERC noncommands mode.
(defalias 'erc-noncommands-enable #[nil "\301\302\303\"\210\304\305\306\307\"\207" [erc-noncommands-mode add-to-list erc-modules noncommands t add-hook erc-pre-send-functions erc-send-distinguish-noncommands] 3 (#$ . 17140) nil])
#@31 Disable ERC noncommands mode.
(defalias 'erc-noncommands-disable #[nil "\302\303\"\304\305\306\307\"\207" [erc-modules erc-noncommands-mode delq noncommands nil remove-hook erc-pre-send-functions erc-send-distinguish-noncommands] 3 (#$ . 17406) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-noncommands-mode definition-name noncommands erc-noncommands-enable erc-noncommands-disable] 4)
#@62 If STR is an ERC non-command, set `insertp' in STATE to nil.
(defalias 'erc-send-distinguish-noncommands #[(state) "\306! >\204 \307\310\311D\"\210\312H\313\n!\211\205 @\211 \205G \314\315\n\"?\205G \f
>\205G \306! >\204? \307\310\311D\"\210\211 \316\317I)+\207" [state cl-struct-erc-input-tags string command cmd-fun erc-noncommands-list type-of signal wrong-type-argument erc-input 1 erc-extract-command-from-line string-match "\n.+$" 2 nil #1=#:v] 5 (#$ . 17848)])
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\304\301\312\313&\210\306\314\302\315\304\301\312\316&\210\306\317\302\320\304\301\312\316&\210\321\322\323\324\304\325%\210\321\326\327\330\304\325%\210\321\331\332\333\304\325%\210\321\334\335\336\304\325%\210\321\337\340\336\304\325%\210\321\341\342\336\304\325%\210\321\343\344\336\304\325%\210\321\345\346\336\304\325%\210\321\347\350\336\304\325%\210\321\351\352\336\304\325%\210\321\353\354\336\304\325%\210\321\355\356\336\304\325%\210\321\357\360\336\304\325%\210\321\361\362\336\304\325%\210\321\363\364\336\304\325%\210\321\365\366\336\304\325%\210\321\367\370\336\304\325%\210\321\371\372\336\304\325%\210\321\373\374\336\304\325%\210\321\375\376\336\304\325%\210\321\377\201@ \336\304\325%\210\321\201A \201B \336\304\325%\210\321\201C \201D \336\304\325%\210\321\201E \201F \336\304\325%\210\321\201G \201H \336\304\325%\210\321\201I \201J \336\304\325%\210\321\201K \201L \336\304\325%\210\321\201M \201N \336\304\325%\210\321\201O \201P \336\304\325%\210\321\201Q \201R \336\304\325%\210\321\201S \201T \336\304\325%\210\321\201U \201V \336\304\325%\210\321\201W \201X \336\304\325%\210\321\201Y \201Z \336\304\325%\210\321\201[ \201\\ \336\304\325%\207" [custom-declare-group erc-control-characters nil "Dealing with control characters." :group erc custom-declare-variable erc-interpret-controls-p t "If non-nil, display IRC colors and other highlighting effects.\n\nIf this is set to the symbol `remove', ERC removes all IRC colors and\nhighlighting effects. When this variable is non-nil, it can cause Emacs to run\nslowly on systems lacking sufficient CPU speed. In chatty channels, or in an\nemergency (message flood) it can be turned off to save processing time. See\n`erc-toggle-interpret-controls'." :type (choice (const :tag "Highlight control characters" t) (const :tag "Remove control characters" remove) (const :tag "Display raw control characters" nil)) erc-interpret-mirc-color "If non-nil, ERC will interpret mIRC color codes." boolean erc-beep-p "Beep if C-g is in the server message.\nThe value `erc-interpret-controls-p' must also be t for this to work." custom-declare-face erc-bold-face ((t :weight bold)) "ERC bold face." erc-faces erc-inverse-face ((t :foreground "White" :background "Black")) "ERC inverse face." erc-underline-face ((t :underline t)) "ERC underline face." fg:erc-color-face0 ((t :foreground "White")) "ERC face." fg:erc-color-face1 ((t :foreground "black")) fg:erc-color-face2 ((t :foreground "blue4")) fg:erc-color-face3 ((t :foreground "green4")) fg:erc-color-face4 ((t :foreground "red")) fg:erc-color-face5 ((t :foreground "brown")) fg:erc-color-face6 ((t :foreground "purple")) fg:erc-color-face7 ((t :foreground "orange")) fg:erc-color-face8 ((t :foreground "yellow")) fg:erc-color-face9 ((t :foreground "green")) fg:erc-color-face10 ((t :foreground "lightblue1")) fg:erc-color-face11 ((t :foreground "cyan")) fg:erc-color-face12 ((t :foreground "blue")) fg:erc-color-face13 ((t :foreground "deeppink")) fg:erc-color-face14 ((t :foreground "gray50")) fg:erc-color-face15 ((t :foreground "gray90")) bg:erc-color-face0 ((t :background "White")) bg:erc-color-face1 ((t :background "black")) bg:erc-color-face2 ((t :background "blue4")) bg:erc-color-face3 ((t :background "green4")) bg:erc-color-face4 ((t :background "red")) bg:erc-color-face5 ((t :background "brown")) bg:erc-color-face6 ((t :background "purple")) bg:erc-color-face7 ((t :background "orange")) bg:erc-color-face8 ((t :background "yellow")) bg:erc-color-face9 ((t :background "green")) bg:erc-color-face10 ((t :background "lightblue1")) bg:erc-color-face11 ((t :background "cyan")) bg:erc-color-face12 ((t :background "blue")) bg:erc-color-face13 ((t :background "deeppink")) bg:erc-color-face14 ((t :background "gray50")) bg:erc-color-face15 ((t :background "gray90"))] 8)
#@55 Fetches the right face for background color N (0-15).
(defalias 'erc-get-bg-color-face #[(n) ";\203 \302!\247\204 \303\304\305\"\210\207\306V\203+ \203& \307\310\311\"!\210\312\306\"\313Y\203? \306W\203? \314\315\316!P!\207 \203J \307\310\311\"!\210\303\207" [n erc-log-p string-to-number default erc-error "erc-get-bg-color-face: n is NaN: %S" 16 erc-log-aux format " Wrong color: %s" mod 0 intern "bg:erc-color-face" number-to-string] 4 (#$ . 22197)])
#@55 Fetches the right face for foreground color N (0-15).
(defalias 'erc-get-fg-color-face #[(n) ";\203 \302!\247\204 \303\304\305\"\210\207\306V\203+ \203& \307\310\311\"!\210\312\306\"\313Y\203? \306W\203? \314\315\316!P!\207 \203J \307\310\311\"!\210\303\207" [n erc-log-p string-to-number default erc-error "erc-get-fg-color-face: n is NaN: %S" 16 erc-log-aux format " Wrong color: %s" mod 0 intern "fg:erc-color-face" number-to-string] 4 (#$ . 22675)])
#@281 Non-nil if Erc-Irccontrols mode is enabled.
See the `erc-irccontrols-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-irccontrols-mode'.
(custom-declare-variable 'erc-irccontrols-mode nil '(#$ . 23154) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-irccontrols :type 'boolean)
#@246 Toggle ERC irccontrols mode.
With a prefix argument ARG, enable irccontrols if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
This mode enables the interpretation of IRC control chars.
(defalias 'erc-irccontrols-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-irccontrols-mode local current-message set-default toggle default-value prefix-numeric-value 0 erc-irccontrols-enable erc-irccontrols-disable run-hooks erc-irccontrols-mode-hook erc-irccontrols-mode-on-hook erc-irccontrols-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Erc-Irccontrols mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 23613) (list (or current-prefix-arg 'toggle))])
(defvar erc-irccontrols-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [erc-irccontrols-mode-map erc-irccontrols-mode-hook variable-documentation put "Hook run after entering or leaving `erc-irccontrols-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode erc-irccontrols-mode nil boundp] 6)
#@30 Enable ERC irccontrols mode.
(defalias 'erc-irccontrols-enable #[nil "\301\302\303\"\210\304\305\306\307\"\210\305\310\307\"\207" [erc-irccontrols-mode add-to-list erc-modules irccontrols t add-hook erc-insert-modify-hook erc-controls-highlight erc-send-modify-hook] 3 (#$ . 25075) nil])
#@31 Disable ERC irccontrols mode.
(defalias 'erc-irccontrols-disable #[nil "\302\303\"\304\305\306\307\"\210\305\310\307\"\207" [erc-modules erc-irccontrols-mode delq irccontrols nil remove-hook erc-insert-modify-hook erc-controls-highlight erc-send-modify-hook] 3 (#$ . 25370) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-irccontrols-mode definition-name irccontrols erc-irccontrols-enable erc-irccontrols-disable] 4)
#@140 Return a copy of STR after dealing with IRC control characters.
See `erc-interpret-controls-p' and `erc-interpret-mirc-color' for options.
(defalias 'erc-controls-interpret #[(str) "\205\345 \n\306=\203 \307 !\202\344 \n\203\343 \310\211\211\211\211 \311 \"\203\336 \312\313 \"\312\314 \"\312\315 \"\316\224\316\224\312\317 \"G\\ !\320\321 !\313 %\"\203l \204c \203l \202\312 !\322\230\203{ ?\202\312 !\323\230\203\212 ?\202\312 !\324\230\203\227
?\202\312 !\325\230\203\245 \310\211\202\312 !\326\230\203\267 #\203\312 \327 \210\202\312 !\330\230\203\312 \310\211\310\211\310\331
\f &\210-\202\" -\202\344 )\207" [str s erc-interpret-controls-p bg fg underlinep remove erc-controls-strip nil string-match match-string 1 2 4 0 5 erc-replace-match-subexpression-in-string "" "" "" " " "" "" ding "" erc-controls-propertize inversep boldp erc-controls-highlight-regexp end start bg-color fg-color control erc-interpret-mirc-color erc-beep-p] 10 (#$ . 25842)])
#@63 Return a copy of STR with all IRC control characters removed.
(defalias 'erc-controls-strip #[(str) "\205 \303\n \"\203 \304\305\306\211 $\202 )\207" [str s erc-controls-remove-regexp string-match replace-match "" nil] 5 (#$ . 26883)])
#@64 Regular expression which matches control characters to remove.
(defvar erc-controls-remove-regexp "\\| \\|\\|\\|\\|[0-9]?[0-9]?\\(,[0-9][0-9]?\\)?" (#$ . 27133))
#@75 Regular expression which matches control chars and the text to highlight.
(defvar erc-controls-highlight-regexp "\\(\\|\\| \\|\\|\\|\\([0-9][0-9]?\\)?\\(,\\([0-9][0-9]?\\)\\)?\\)\\([^ \n]*\\)" (#$ . 27306))
#@184 Highlight IRC control chars in the buffer.
This is useful for `erc-insert-modify-hook' and `erc-send-modify-hook'.
Also see `erc-interpret-controls-p' and `erc-interpret-mirc-color'.
(defalias 'erc-controls-highlight #[nil "eb\210\306=\203 \307 \310\311#\205\334 \312\313!\210\202 \203\333 \310\211\211\211\211 \307\310\311#\205\331 \314\315!\314\316!\314\317!\320\224\320\224\314\321!G\\ \312\313\310\211\211\315%\210!\203l \204c \203l \202\307 \322\230\203{ ?\202\307 \323\230\203\210
?\202\307 \324\230\203\225 \f?\202\307 \325\230\203\243 \310\211\202\307 \326\230\203\265 \"\203\307 \327 \210\202\307 \330\230\203\307 \310\211\310\211\310\331
\f \n&\210-\202' -\207\310\207" [erc-interpret-controls-p erc-controls-remove-regexp bg fg underlinep inversep remove re-search-forward nil t replace-match "" match-string 1 2 4 0 5 "" "" " " "" "" ding "" erc-controls-propertize boldp erc-controls-highlight-regexp end start bg-color fg-color control erc-interpret-mirc-color erc-beep-p] 9 (#$ . 27530)])
#@185 Prepend properties from IRC control characters between FROM and TO.
If optional argument STR is provided, apply to STR, otherwise prepend properties
to a region in the current buffer.
(defalias 'erc-controls-propertize #[(from to boldp inversep underlinep fg bg &optional str) "\306 \307\310\n\205\n \311 \205 \312\f\205 \313
\205 \314
!C\205& \315!C%%\210\207" [from to boldp inversep underlinep fg font-lock-prepend-text-property font-lock-face append (erc-bold-face) (erc-inverse-face) (erc-underline-face) erc-get-fg-color-face erc-get-bg-color-face bg str] 11 (#$ . 28612)])
#@142 Toggle interpretation of control sequences in messages.
If ARG is positive, interpretation is turned on.
Else interpretation is turned off.
(defalias 'erc-toggle-interpret-controls #[(&optional arg) "\247\203 \302V\203 \303\202 \203 \304\202 ?\305\306 \203& \307\202' \310\"\207" [arg erc-interpret-controls-p 0 t nil message "ERC color interpretation %s" "ON" "OFF"] 3 (#$ . 29211) "P"])
#@266 Non-nil if Erc-Smiley mode is enabled.
See the `erc-smiley-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-smiley-mode'.
(custom-declare-variable 'erc-smiley-mode nil '(#$ . 29620) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-smiley :type 'boolean)
#@336 Toggle ERC smiley mode.
With a prefix argument ARG, enable smiley if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
This mode translates text-smileys such as :-) into pictures.
This requires the function `smiley-region', which is defined in
smiley.el, which is part of Gnus.
(defalias 'erc-smiley-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-smiley-mode local current-message set-default toggle default-value prefix-numeric-value 0 erc-smiley-enable erc-smiley-disable run-hooks erc-smiley-mode-hook erc-smiley-mode-on-hook erc-smiley-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Erc-Smiley mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 30054) (list (or current-prefix-arg 'toggle))])
(defvar erc-smiley-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [erc-smiley-mode-map erc-smiley-mode-hook variable-documentation put "Hook run after entering or leaving `erc-smiley-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode erc-smiley-mode nil boundp] 6)
#@25 Enable ERC smiley mode.
(defalias 'erc-smiley-enable #[nil "\301\302\303\"\210\304\305\306\307\"\210\305\310\307\"\207" [erc-smiley-mode add-to-list erc-modules smiley t add-hook erc-insert-modify-hook erc-smiley erc-send-modify-hook] 3 (#$ . 31541) nil])
#@26 Disable ERC smiley mode.
(defalias 'erc-smiley-disable #[nil "\302\303\"\304\305\306\307\"\210\305\310\307\"\207" [erc-modules erc-smiley-mode delq smiley nil remove-hook erc-insert-modify-hook erc-smiley erc-send-modify-hook] 3 (#$ . 31804) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-smiley-mode definition-name smiley erc-smiley-enable erc-smiley-disable] 4)
#@79 Smilify a region.
This function should be used with `erc-insert-modify-hook'.
(defalias 'erc-smiley #[nil "\300\301!\205\n \301ed\"\207" [fboundp smiley-region] 3 (#$ . 32223)])
#@269 Non-nil if Erc-Unmorse mode is enabled.
See the `erc-unmorse-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-unmorse-mode'.
(custom-declare-variable 'erc-unmorse-mode nil '(#$ . 32408) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-unmorse :type 'boolean)
#@246 Toggle ERC unmorse mode.
With a prefix argument ARG, enable unmorse if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
This mode causes morse code in the current channel to be unmorsed.
(defalias 'erc-unmorse-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-unmorse-mode local current-message set-default toggle default-value prefix-numeric-value 0 erc-unmorse-enable erc-unmorse-disable run-hooks erc-unmorse-mode-hook erc-unmorse-mode-on-hook erc-unmorse-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Erc-Unmorse mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 32847) (list (or current-prefix-arg 'toggle))])
(defvar erc-unmorse-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [erc-unmorse-mode-map erc-unmorse-mode-hook variable-documentation put "Hook run after entering or leaving `erc-unmorse-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode erc-unmorse-mode nil boundp] 6)
#@26 Enable ERC unmorse mode.
(defalias 'erc-unmorse-enable #[nil "\301\302\303\"\210\304\305\306\307\"\207" [erc-unmorse-mode add-to-list erc-modules unmorse t add-hook erc-insert-modify-hook erc-unmorse] 3 (#$ . 34257) nil])
#@27 Disable ERC unmorse mode.
(defalias 'erc-unmorse-disable #[nil "\302\303\"\304\305\306\307\"\207" [erc-modules erc-unmorse-mode delq unmorse nil remove-hook erc-insert-modify-hook erc-unmorse] 3 (#$ . 34486) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-unmorse-mode definition-name unmorse erc-unmorse-enable erc-unmorse-disable] 4)
#@172 Unmorse some text.
Add this to `erc-insert-modify-hook' if you happen to be on a
channel that has weird people talking in morse to each other.
See also `unmorse-region'.
(defalias 'erc-unmorse #[nil "eb\210\300\301\302\303#\205; \214\304\224\304\225}\210eb\210\300\305\302\303#\203$ \306\307!\210\202 eb\210\300\310\302\303#\2036 \306\311!\210\202' \312ed\")\207" [re-search-forward "[.-]+[./ -]*[.-]/?" nil t 0 " / " replace-match " " "/ " "/" unmorse-region] 4 (#$ . 34876)])
#@210 Search for STRING in all buffers related to current server.
If called interactively and prefix argument is given, search on all connected
servers. If called from a program, PROC specifies the server process.
(defalias 'erc-occur #[(string &optional proc) "\302\303!\203 \303\304\305\" \"\207\306\307!\207" [proc string fboundp multi-occur erc-buffer-list nil error "`multi-occur' is not defined as a function"] 4 (#$ . 35364) (list (read-string "Search for: ") (if current-prefix-arg nil erc-server-process))])
(provide 'erc-goodies)
Mini Shell