Gecko [ 122.154.134.11 ]

Name	Size	Permission
erc-autoaway.elc	11.58 KB	-rw-r--r--
erc-backend.elc	154.28 KB	-rw-r--r--
erc-button.elc	16.69 KB	-rw-r--r--
erc-capab.elc	7.67 KB	-rw-r--r--
erc-compat.elc	4.38 KB	-rw-r--r--
erc-dcc.elc	39.39 KB	-rw-r--r--
erc-ezbounce.elc	5.19 KB	-rw-r--r--
erc-fill.elc	6.71 KB	-rw-r--r--
erc-goodies.elc	32.55 KB	-rw-r--r--
erc-hecomplete.elc	7.96 KB	-rw-r--r--
erc-ibuffer.elc	6.77 KB	-rw-r--r--
erc-identd.elc	4.86 KB	-rw-r--r--
erc-imenu.elc	2.61 KB	-rw-r--r--
erc-join.elc	6.03 KB	-rw-r--r--
erc-lang.elc	4.68 KB	-rw-r--r--
erc-list.elc	9.25 KB	-rw-r--r--
erc-log.elc	14.83 KB	-rw-r--r--
erc-match.elc	19.02 KB	-rw-r--r--
erc-menu.elc	6.15 KB	-rw-r--r--
erc-netsplit.elc	7.94 KB	-rw-r--r--
erc-networks.elc	39.94 KB	-rw-r--r--
erc-notify.elc	9.37 KB	-rw-r--r--
erc-page.elc	4.88 KB	-rw-r--r--
erc-pcomplete.elc	10.62 KB	-rw-r--r--
erc-replace.elc	3.85 KB	-rw-r--r--
erc-ring.elc	5.21 KB	-rw-r--r--
erc-services.elc	15.01 KB	-rw-r--r--
erc-sound.elc	5.59 KB	-rw-r--r--
erc-speedbar.elc	10 KB	-rw-r--r--
erc-spelling.elc	4.66 KB	-rw-r--r--
erc-stamp.elc	14.9 KB	-rw-r--r--
erc-track.elc	34.83 KB	-rw-r--r--
erc-truncate.elc	4.18 KB	-rw-r--r--
erc-xdcc.elc	5.74 KB	-rw-r--r--
erc.elc	219.16 KB	-rw-r--r--

Code Editor : erc.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:05 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/erc/erc.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`erc.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#@55 ERC version.  This is used by function `erc-version'.
(defconst erc-version-string "Version 5.3" (#$ . 601))
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require font-lock pp thingatpt erc-compat] 2)
#@45 Location of the ERC client on the Internet.
(defvar erc-official-location "http://emacswiki.org/cgi-bin/wiki/ERC (mailing list: erc-discuss@gnu.org)" (#$ . 829))
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\302\313\310\301%\210\300\314\302\315\310\301%\210\300\316\302\317\310\314%\210\300\320\302\321\310\301%\210\300\322\302\323\310\301%\210\300\324\302\325\310\301%\210\300\326\302\327\310\301%\210\300\330\302\331\310\301%\210\332\333!\210\334\335!\203{�\335\336\337\"\210\340\336\337\341#\210\335\342\343\"\210\340\342\343\341#\210\335\344\345\"\210\340\344\345\341#\210\202�\346\347!\210\350\351\352\"\210\353\351\352\341#\207" [custom-declare-group erc nil "Emacs Internet Relay Chat client." :link (url-link "http://www.emacswiki.org/cgi-bin/wiki/ERC") :prefix "erc-" :group applications erc-buffers "Creating new ERC buffers" erc-display "Settings for how various things are displayed" erc-mode-line-and-header "Displaying information in the mode-line and header" erc-ignore "Ignoring certain messages" erc-query "Using separate buffers for private discussions" erc-quit-and-part "Quitting and parting channels" erc-paranoia "Know what is sent and received; control the display of sensitive data." erc-scripts "Running scripts at startup and with /LOAD" require erc-backend fboundp defvaralias erc-announced-server-name erc-server-announced-name erc-make-obsolete-variable "ERC 5.1" erc-process erc-server-process erc-default-coding-system erc-server-coding-system message "ERC: The function `defvaralias' is not bound.  See the NEWS file for variable name changes since ERC 5.0.4." defalias erc-send-command erc-server-send erc-make-obsolete] 10)
#@139 IRC server to use if one is not provided.
See function `erc-compute-server' for more details on connection
parameters and authentication.
(custom-declare-variable 'erc-server 'nil '(#$ . 2516) :group 'erc :type '(choice (const :tag "None" nil) (string :tag "Server")))
#@77 IRC port to use if not specified.

This can be either a string or a number.
(custom-declare-variable 'erc-port 'nil '(#$ . 2791) :group 'erc :type '(choice (const :tag "None" nil) (integer :tag "Port number") (string :tag "Port string")))
#@298 Nickname to use if one is not provided.

This can be either a string, or a list of strings.
In the latter case, if the first nick in the list is already in use,
other nicks are tried in the list order.

See function `erc-compute-nick' for more details on connection
parameters and authentication.
(custom-declare-variable 'erc-nick 'nil '(#$ . 3037) :group 'erc :type '(choice (const :tag "None" nil) (string :tag "Nickname") (repeat (string :tag "Nickname"))))
#@59 The string to append to the nick if it is already in use.
(custom-declare-variable 'erc-nick-uniquifier '"`" '(#$ . 3505) :group 'erc :type 'string)
#@202 If the nickname you chose isn't available, and this option is non-nil,
ERC should automatically attempt to connect with another nickname.

You can manually set another nickname with the /NICK command.
(custom-declare-variable 'erc-try-new-nick-p 't '(#$ . 3661) :group 'erc :type 'boolean)
#@169 User full name.

This can be either a string or a function to call.

See function `erc-compute-full-name' for more details on connection
parameters and authentication.
(custom-declare-variable 'erc-user-full-name 'nil '(#$ . 3958) :group 'erc :type '(choice (const :tag "No name" nil) (string :tag "Name") (function :tag "Get from function")) :set #[(sym val) "\302!\203�	 L\207	L\207" [val sym functionp] 2])
#@135 Password to use when authenticating to an IRC server.
It is not strictly necessary to provide this, since ERC will
prompt you for it.
(defvar erc-password nil (#$ . 4379))
#@65 Initial user modes to be set after a connection is established.
(custom-declare-variable 'erc-user-mode 'nil '(#$ . 4557) :group 'erc :type '(choice (const nil) string function))
#@72 Asks before using the default password, or whether to enter a new one.
(custom-declare-variable 'erc-prompt-for-password 't '(#$ . 4742) :group 'erc :type 'boolean)
#@53 Warn the user if they attempt to send a blank line.
(custom-declare-variable 'erc-warn-about-blank-lines 't '(#$ . 4913) :group 'erc :type 'boolean)
#@62 If set to non-nil, send lines consisting of only whitespace.
(custom-declare-variable 'erc-send-whitespace-lines 'nil '(#$ . 5068) :group 'erc :type 'boolean)
#@166 If non-nil, do not display the prompt for commands.

(A command is any input starting with a '/').

See also the variables `erc-prompt' and `erc-command-indicator'.
(custom-declare-variable 'erc-hide-prompt 'nil '(#$ . 5234) :group 'erc-display :type 'boolean)
#@138 If non-nil, display one's own nickname when sending a message.

If non-nil, "<nickname>" will be shown.
If nil, only "> " will be shown.
(custom-declare-variable 'erc-show-my-nick 't '(#$ . 5502) :group 'erc-display :type 'boolean)
(define-widget 'erc-message-type 'set "A set of standard IRC Message types." :args '((const "JOIN") (const "KICK") (const "NICK") (const "PART") (const "QUIT") (const "MODE") (repeat :inline t :tag "Others" (string :tag "IRC Message Type"))))
#@87 *List of IRC type messages to hide.
A typical value would be '("JOIN" "PART" "QUIT").
(custom-declare-variable 'erc-hide-list 'nil '(#$ . -5983) :group 'erc-ignore :type 'erc-message-type)
#@44 The password used for the current session.
(defvar erc-session-password nil (#$ . 6178))
(make-variable-buffer-local 'erc-session-password)
#@248 Run this hook with arguments (NICK IP REASON) when disconnected.
This happens before automatic reconnection.  Note, that
`erc-server-QUIT-functions' might not be run when we disconnect,
simply because we do not necessarily receive the QUIT event.
(custom-declare-variable 'erc-disconnected-hook 'nil '(#$ . 6325) :group 'erc-hooks :type 'hook)
#@155 These functions get called when the user hits TAB in ERC.
Each function in turn is called until one returns non-nil to
indicate it has handled the input.
(custom-declare-variable 'erc-complete-functions 'nil '(#$ . 6676) :group 'erc-hooks :type 'hook)
#@198 Hook run when we join a channel.  Hook functions are called
without arguments, with the current buffer set to the buffer of
the new channel.

See also `erc-server-JOIN-functions', `erc-part-hook'.
(custom-declare-variable 'erc-join-hook 'nil '(#$ . 6935) :group 'erc-hooks :type 'hook)
#@183 Hook run when processing a quit command directed at our nick.

The hook receives one argument, the current PROCESS.
See also `erc-server-QUIT-functions' and `erc-disconnected-hook'.
(custom-declare-variable 'erc-quit-hook 'nil '(#$ . 7228) :group 'erc-hooks :type 'hook)
#@199 Hook run when processing a PART message directed at our nick.

The hook receives one argument, the current BUFFER.
See also `erc-server-QUIT-functions', `erc-quit-hook' and
`erc-disconnected-hook'.
(custom-declare-variable 'erc-part-hook 'nil '(#$ . 7506) :group 'erc-hooks :type 'hook)
#@174 Hook run when processing a KICK message directed at our nick.

The hook receives one argument, the current BUFFER.
See also `erc-server-PART-functions' and `erc-part-hook'.
(custom-declare-variable 'erc-kick-hook 'nil '(#$ . 7800) :group 'erc-hooks :type 'hook)
#@131 List of functions run when your nick was successfully changed.

Each function should accept two arguments, NEW-NICK and OLD-NICK.
(custom-declare-variable 'erc-nick-changed-functions 'nil '(#$ . 8069) :group 'erc-hooks :type 'hook)
#@105 Hook called just before `erc' calls `erc-connect'.
Functions are passed a buffer as the first argument.
(custom-declare-variable 'erc-connect-pre-hook ''(erc-initialize-log-marker) '(#$ . 8308) :group 'erc-hooks :type 'hook)
#@240 A hash table of members in the current channel, which
associates nicknames with cons cells of the form:
(USER . MEMBER-DATA) where USER is a pointer to an
erc-server-user struct, and MEMBER-DATA is a pointer to an
erc-channel-user struct.
(defvar erc-channel-users nil (#$ . 8540))
(make-variable-buffer-local 'erc-channel-users)
#@112 A hash table of users on the current server, which associates
nicknames with erc-server-user struct instances.
(defvar erc-server-users nil (#$ . 8877))
(make-variable-buffer-local 'erc-server-users)
#@53 Convert STRING to IRC standard conforming downcase.
(defalias 'erc-downcase #[(string) "\227\304\305 \306\216\307\310\n\"\203 �\n\311\224\n\311\224H	\236AI\210\202\n�*\n*\207" [string c s save-match-data-internal ((91 . 123) (93 . 125) (92 . 124) (126 . 94)) match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "[]\\[~]" 0] 4 (#$ . 9083)])
#@88 Execute BODY in the current ERC server buffer.
If no server buffer exists, return nil.
(defalias 'erc-with-server-buffer '(macro . #[(&rest body) "\302\303!\304\305BC\306\307D\310	BBEE)\207" [buffer body make-symbol "buffer" let ((erc-server-buffer)) when buffer-live-p with-current-buffer] 7 (#$ . 9491)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\306\307\310#\210\306\311N\204�\300\306\311\312#\210\300\207" [put erc-with-server-buffer lisp-indent-function 0 edebug-form-spec (body) erc-server-user-nickname cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block erc-server-user-nickname (or (and (memq (aref cl-x 0) cl-struct-erc-server-user-tags)) (error "erc-server-user-nickname accessing a non-erc-server-user")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'erc-server-user-nickname #[(cl-x) "\302H	>\204\f�\303\304!\210\305H\207" [cl-x cl-struct-erc-server-user-tags 0 error "erc-server-user-nickname accessing a non-erc-server-user" 1] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204�\300\304\307\310#\210\300\207" [put erc-server-user-nickname setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander erc-server-user erc-server-user-nickname #1=(and (memq (aref cl-x 0) cl-struct-erc-server-user-tags)) 1] 6] erc-server-user-host cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block erc-server-user-host (or #1# (error "erc-server-user-host accessing a non-erc-server-user")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'erc-server-user-host #[(cl-x) "\302H	>\204\f�\303\304!\210\305H\207" [cl-x cl-struct-erc-server-user-tags 0 error "erc-server-user-host accessing a non-erc-server-user" 2] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204�\300\304\307\310#\210\300\207" [put erc-server-user-host setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander erc-server-user erc-server-user-host #1=(and (memq (aref cl-x 0) cl-struct-erc-server-user-tags)) 2] 6] erc-server-user-login cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block erc-server-user-login (or #1# (error "erc-server-user-login accessing a non-erc-server-user")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'erc-server-user-login #[(cl-x) "\302H	>\204\f�\303\304!\210\305H\207" [cl-x cl-struct-erc-server-user-tags 0 error "erc-server-user-login accessing a non-erc-server-user" 3] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204�\300\304\307\310#\210\300\207" [put erc-server-user-login setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander erc-server-user erc-server-user-login #1=(and (memq (aref cl-x 0) cl-struct-erc-server-user-tags)) 3] 6] erc-server-user-full-name cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block erc-server-user-full-name (or #1# (error "erc-server-user-full-name accessing a non-erc-server-user")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'erc-server-user-full-name #[(cl-x) "\302H	>\204\f�\303\304!\210\305H\207" [cl-x cl-struct-erc-server-user-tags 0 error "erc-server-user-full-name accessing a non-erc-server-user" 4] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204�\300\304\307\310#\210\300\207" [put erc-server-user-full-name setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander erc-server-user erc-server-user-full-name #1=(and (memq (aref cl-x 0) cl-struct-erc-server-user-tags)) 4] 6] erc-server-user-info cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block erc-server-user-info (or #1# (error "erc-server-user-info accessing a non-erc-server-user")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'erc-server-user-info #[(cl-x) "\302H	>\204\f�\303\304!\210\305H\207" [cl-x cl-struct-erc-server-user-tags 0 error "erc-server-user-info accessing a non-erc-server-user" 5] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204�\300\304\307\310#\210\300\207" [put erc-server-user-info setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander erc-server-user erc-server-user-info #1=(and (memq (aref cl-x 0) cl-struct-erc-server-user-tags)) 5] 6] erc-server-user-buffers cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block erc-server-user-buffers (or #1# (error "erc-server-user-buffers accessing a non-erc-server-user")) (aref cl-x 6)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'erc-server-user-buffers #[(cl-x) "\302H	>\204\f�\303\304!\210\305H\207" [cl-x cl-struct-erc-server-user-tags 0 error "erc-server-user-buffers accessing a non-erc-server-user" 6] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204�\300\304\307\310#\210\300\207" [put erc-server-user-buffers setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander erc-server-user erc-server-user-buffers (and #1=(memq (aref cl-x 0) cl-struct-erc-server-user-tags)) 6] 6] erc-server-user-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block erc-server-user-p (and (vectorp cl-x) (>= (length cl-x) 7) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'erc-server-user-p #[(cl-x) "\302!\205�G\303Y\205�\304H	>\205�\305\207" [cl-x cl-struct-erc-server-user-tags vectorp 7 0 t] 2])
(defalias 'copy-erc-server-user #[(x) "\301!\207" [x copy-sequence] 2])
(byte-code "\300\301\302\303#\210\301\304N\204�\300\301\304\305#\210\300\207" [put make-erc-server-user cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\203X�@\314>\203?�AA\211\202*�\315>A@\203N�\316\211\202*�\317\320@\"\210\202(�)\321\322\323\324\316	\n\f
&.\207" [#1# nickname host login full-name info :nickname :host :login :full-name :info :buffers (:nickname :host :login :full-name :info :buffers :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:nickname :host :login :full-name :info :buffers)" cl-defsubst-expand (nickname host login full-name info buffers) (block make-erc-server-user (vector 'erc-server-user nickname host login full-name info buffers)) t buffers #:--cl-keys-- cl-whole] 13 "Not documented\n\n(fn CL-WHOLE &cl-quote &key NICKNAME HOST LOGIN FULL-NAME INFO BUFFERS)"] byte-compile cl-byte-compile-compiler-macro] 4)
#@70 Not documented

(fn &key NICKNAME HOST LOGIN FULL-NAME INFO BUFFERS)
(defalias 'make-erc-server-user #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\203X�@\314>\203?�AA\211\202*�\315>A@\203N�\316\211\202*�\317\320@\"\210\202(�)\321\322	\n\f
&.\207" [#1# nickname host login full-name info :nickname :host :login :full-name :info :buffers (:nickname :host :login :full-name :info :buffers :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:nickname :host :login :full-name :info :buffers)" vector erc-server-user buffers #2=#:--cl-keys--] 9 (#$ . 16392)])
(byte-code "\301C\302\301\303\304#\210\302\301\305\306#\210\302\301\307\310#\210\302\301\311\310#\210\302\312\313\314#\210\302\315\313\314#\210\302\316\313\317#\210\302\320\313\314#\210\302\321\313\314#\210\302\322\313\314#\210\302\323\313\314#\210\302\324\313\314#\210\302\325\313\314#\210\302\326\327\330#\210\326\331N\204c�\302\326\331\332#\210\310\207" [cl-struct-erc-server-user-tags erc-server-user put cl-struct-slots ((cl-tag-slot) (nickname) (host) (login) (full-name) (info) (buffers nil)) cl-struct-type (vector t) cl-struct-include nil cl-struct-print make-erc-server-user side-effect-free t copy-erc-server-user erc-server-user-p error-free erc-server-user-buffers erc-server-user-info erc-server-user-full-name erc-server-user-login erc-server-user-host erc-server-user-nickname erc-channel-user-op cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block erc-channel-user-op (or (and (memq (aref cl-x 0) cl-struct-erc-channel-user-tags)) (error "erc-channel-user-op accessing a non-erc-channel-user")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'erc-channel-user-op #[(cl-x) "\302H	>\204\f�\303\304!\210\305H\207" [cl-x cl-struct-erc-channel-user-tags 0 error "erc-channel-user-op accessing a non-erc-channel-user" 1] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204�\300\304\307\310#\210\300\207" [put erc-channel-user-op setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander erc-channel-user erc-channel-user-op #1=(and (memq (aref cl-x 0) cl-struct-erc-channel-user-tags)) 1] 6] erc-channel-user-voice cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block erc-channel-user-voice (or #1# (error "erc-channel-user-voice accessing a non-erc-channel-user")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'erc-channel-user-voice #[(cl-x) "\302H	>\204\f�\303\304!\210\305H\207" [cl-x cl-struct-erc-channel-user-tags 0 error "erc-channel-user-voice accessing a non-erc-channel-user" 2] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204�\300\304\307\310#\210\300\207" [put erc-channel-user-voice setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander erc-channel-user erc-channel-user-voice #1=(and (memq (aref cl-x 0) cl-struct-erc-channel-user-tags)) 2] 6] erc-channel-user-last-message-time cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block erc-channel-user-last-message-time (or #1# (error "erc-channel-user-last-message-time accessing a non-erc-channel-user")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'erc-channel-user-last-message-time #[(cl-x) "\302H	>\204\f�\303\304!\210\305H\207" [cl-x cl-struct-erc-channel-user-tags 0 error "erc-channel-user-last-message-time accessing a non-erc-channel-user" 3] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204�\300\304\307\310#\210\300\207" [put erc-channel-user-last-message-time setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander erc-channel-user erc-channel-user-last-message-time (and #1=(memq (aref cl-x 0) cl-struct-erc-channel-user-tags)) 3] 6] erc-channel-user-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block erc-channel-user-p (and (vectorp cl-x) (>= (length cl-x) 4) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'erc-channel-user-p #[(cl-x) "\302!\205�G\303Y\205�\304H	>\205�\305\207" [cl-x cl-struct-erc-channel-user-tags vectorp 4 0 t] 2])
(defalias 'copy-erc-channel-user #[(x) "\301!\207" [x copy-sequence] 2])
(byte-code "\300\301\302\303#\210\301\304N\204�\300\301\304\305#\210\300\207" [put make-erc-channel-user cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\f\203>�\f@\311>\203'�\fAA\211\202�\312>A@\2035�\313\211\202�\314\315\f@\"\210\202�)\316\317\320\321
\313	\n&+\207" [#1# op voice last-message-time #:--cl-keys-- cl-whole :op :voice :last-message-time (:op :voice :last-message-time :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:op :voice :last-message-time)" cl-defsubst-expand (op voice last-message-time) (block make-erc-channel-user (vector 'erc-channel-user op voice last-message-time)) t] 10 "Not documented\n\n(fn CL-WHOLE &cl-quote &key OP VOICE LAST-MESSAGE-TIME)"] byte-compile cl-byte-compile-compiler-macro] 4)
#@54 Not documented

(fn &key OP VOICE LAST-MESSAGE-TIME)
(defalias 'make-erc-channel-user #[(&rest #1=#:--cl-rest--) "\305>A@\306>A@\307>A@\f\203>�\f@\310>\203'�\fAA\211\202�\311>A@\2035�\312\211\202�\313\314\f@\"\210\202�)\315\316	\n$+\207" [#1# op voice last-message-time #2=#:--cl-keys-- :op :voice :last-message-time (:op :voice :last-message-time :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:op :voice :last-message-time)" vector erc-channel-user] 6 (#$ . 21697)])
(byte-code "\301C\302\301\303\304#\210\302\301\305\306#\210\302\301\307\310#\210\302\301\311\310#\210\302\312\313\314#\210\302\315\313\314#\210\302\316\313\317#\210\302\320\313\314#\210\302\321\313\314#\210\302\322\313\314#\207" [cl-struct-erc-channel-user-tags erc-channel-user put cl-struct-slots ((cl-tag-slot) (op) (voice) (last-message-time nil)) cl-struct-type (vector t) cl-struct-include nil cl-struct-print make-erc-channel-user side-effect-free t copy-erc-channel-user erc-channel-user-p error-free erc-channel-user-last-message-time erc-channel-user-voice erc-channel-user-op] 4)
#@119 Finds the (USER . CHANNEL-DATA) element corresponding to NICK
in the current buffer's `erc-channel-users' hash table.
(defalias 'erc-get-channel-user #[(nick) "\302\303!	\"\207" [nick erc-channel-users gethash erc-downcase] 3 (#$ . 22813)])
(put 'erc-get-channel-user 'byte-optimizer 'byte-compile-inline-expand)
#@93 Finds the USER corresponding to NICK in the current server's
`erc-server-users' hash table.
(defalias 'erc-get-server-user #[(nick) "\303 \304!\205�rq\210\305\306	!\n\"))\207" [#1=#:buffer nick erc-server-users erc-server-buffer buffer-live-p gethash erc-downcase] 3 (#$ . 23133)])
(put 'erc-get-server-user 'byte-optimizer 'byte-compile-inline-expand)
#@109 This function is for internal use only.

Adds USER with nickname NICK to the `erc-server-users' hash table.
(defalias 'erc-add-server-user #[(nick user) "\304 \305!\205�rq\210\306\307	!\n#))\207" [#1=#:buffer nick user erc-server-users erc-server-buffer buffer-live-p puthash erc-downcase] 4 (#$ . 23497)])
(put 'erc-add-server-user 'byte-optimizer 'byte-compile-inline-expand)
#@227 This function is for internal use only.

Removes the user with nickname NICK from the `erc-server-users'
hash table.  This user is not removed from the
`erc-channel-users' lists of other buffers.

See also: `erc-remove-user'.
(defalias 'erc-remove-server-user #[(nick) "\303 \304!\205�rq\210\305\306	!\n\"))\207" [#1=#:buffer nick erc-server-users erc-server-buffer buffer-live-p remhash erc-downcase] 3 (#$ . 23887)])
(put 'erc-remove-server-user 'byte-optimizer 'byte-compile-inline-expand)
#@187 This function is for internal use only.

Changes the nickname of USER to NEW-NICK in the
`erc-server-users' hash table.  The `erc-channel-users' lists of
other buffers are also changed.
(defalias 'erc-change-user-nickname #[(user new-nick) "\306H	>\204\f�\307\310!\210\311H\306H	>\204�\307\312!\210\311I\210\313 \314\f!\203>�r\fq\210\315\316\n!
\"\210\317\316!
#\210))\306H	>\204K�\307\320!\210\321H\322\211\203\220�@\314!\203\207�rq\210\n\323\316\n!\")\315\316\n!\"\210\317\316!#\210*A\211\204W�+\322\207" [user cl-struct-erc-server-user-tags nick new-nick #1=#:buffer erc-server-users 0 error "erc-server-user-nickname accessing a non-erc-server-user" 1 "erc-server-user-nickname storing a non-erc-server-user" erc-server-buffer buffer-live-p remhash erc-downcase puthash "erc-server-user-buffers accessing a non-erc-server-user" 6 nil gethash buf #2=#:--cl-dolist-temp-- erc-channel-users cdata] 5 (#$ . 24391)])
#@332 This function is for internal use only.

Removes the user with nickname NICK from the `erc-channel-users'
list for this channel.  If this user is not in the
`erc-channel-users' list of any other buffers, the user is also
removed from the server's `erc-server-users' list.

See also: `erc-remove-server-user' and `erc-remove-user'.
(defalias 'erc-remove-channel-user #[(nick) "\306\307!	\")\211\205p�\n@\211\310p\311H
>\204!�\312\313!\210\314H\"\f\311H
>\2043�\312\315!\210\f\314I\210*\316\307!	\"\210\311H
>\204M�\312\313!\210\314H?\205o�\317 \320!\205n�rq\210\316\307!\")*))\207" [nick erc-channel-users channel-data user #1=#:--cl-x-- cl-struct-erc-server-user-tags gethash erc-downcase delq 0 error "erc-server-user-buffers accessing a non-erc-server-user" 6 "erc-server-user-buffers storing a non-erc-server-user" remhash erc-server-buffer buffer-live-p #2=#:--cl-store-- #3=#:buffer erc-server-users] 5 (#$ . 25354)])
#@225 This function is for internal use only.

Removes the user with nickname NICK from the `erc-server-users'
list as well as from all `erc-channel-users' lists.

See also: `erc-remove-server-user' and
`erc-remove-channel-user'.
(defalias 'erc-remove-user #[(nick) "\306 \307	!\205�r	q\210\310\311!\n\")*\211\205x�\312H\f>\204(�\313\314!\210\315H\211\316\211\203]�@\307!\203T�rq\210\317\311!\"\210\320\321!\210)A\211\2046�+\306 \307!\205w�rq\210\317\311!\n\")*)\207" [nick #1=#:buffer erc-server-users user cl-struct-erc-server-user-tags buffers erc-server-buffer buffer-live-p gethash erc-downcase 0 error "erc-server-user-buffers accessing a non-erc-server-user" 6 nil remhash run-hooks erc-channel-members-changed-hook buf #2=#:--cl-dolist-temp-- erc-channel-users #3=#:buffer] 5 (#$ . 26310)])
#@144 This function is for internal use only.

Removes all users in the current channel.  This is called by
`erc-server-PART' and `erc-server-QUIT'.
(defalias 'erc-remove-channel-users #[nil "\205�\302 \205�\303	!\205�\304\305	\"\210\306	!\207" [erc-server-connected erc-channel-users erc-server-process-alive hash-table-p maphash #[(nick cdata) "\301!\207" [nick erc-remove-channel-user] 2] clrhash] 3 (#$ . 27147)])
#@57 Return t if NICK is an operator in the current channel.
(defalias 'erc-channel-user-op-p #[(nick) "\205/�\304	!\205/�\305\306!	\")\211\205.�\nA\205.�\nA\307H>\204*�\310\311!\210\nA\312H)\207" [nick erc-channel-users cdata cl-struct-erc-channel-user-tags hash-table-p gethash erc-downcase 0 error "erc-channel-user-op accessing a non-erc-channel-user" 1] 4 (#$ . 27570)])
(put 'erc-channel-user-op-p 'byte-optimizer 'byte-compile-inline-expand)
#@52 Return t if NICK has voice in the current channel.
(defalias 'erc-channel-user-voice-p #[(nick) "\205/�\304	!\205/�\305\306!	\")\211\205.�\nA\205.�\nA\307H>\204*�\310\311!\210\nA\312H)\207" [nick erc-channel-users cdata cl-struct-erc-channel-user-tags hash-table-p gethash erc-downcase 0 error "erc-channel-user-voice accessing a non-erc-channel-user" 2] 4 (#$ . 28026)])
(put 'erc-channel-user-voice-p 'byte-optimizer 'byte-compile-inline-expand)
#@266 Returns a list of users in the current channel.  Each element
of the list is of the form (USER . CHANNEL-DATA), where USER is
an erc-server-user struct, and CHANNEL-DATA is either `nil' or an
erc-channel-user struct.

See also: `erc-sort-channel-users-by-activity'
(defalias 'erc-get-channel-user-list #[nil "\302\303	!\203
�\304\305	\"\210)\207" [users erc-channel-users nil hash-table-p maphash #[(nick cdata) "	B\211\207" [cdata users] 2]] 3 (#$ . 28487)])
#@58 Returns a list of known nicknames on the current server.
(defalias 'erc-get-server-nickname-list #[nil "\303 \304!\205�rq\210\305\306\n!\205�\307\310\n\"\210	*)\207" [#1=#:buffer nicks erc-server-users erc-server-buffer buffer-live-p nil hash-table-p maphash #[(n user) "\303H	>\204\f�\304\305!\210\306H\nB\211\207" [user cl-struct-erc-server-user-tags nicks 0 error "erc-server-user-nickname accessing a non-erc-server-user" 1] 2]] 3 (#$ . 28957)])
#@59 Returns a list of known nicknames on the current channel.
(defalias 'erc-get-channel-nickname-list #[nil "\302\303	!\205�\304\305	\"\210)\207" [nicks erc-channel-users nil hash-table-p maphash #[(n cdata) "@\303H	>\204
�\304\305!\210@\306H\nB\211\207" [cdata cl-struct-erc-server-user-tags nicks 0 error "erc-server-user-nickname accessing a non-erc-server-user" 1] 2]] 3 (#$ . 29422)])
#@60 Returns an alist of known nicknames on the current server.
(defalias 'erc-get-server-nickname-alist #[nil "\303 \304!\205�rq\210\305\306\n!\205�\307\310\n\"\210	*)\207" [#1=#:buffer nicks erc-server-users erc-server-buffer buffer-live-p nil hash-table-p maphash #[(n user) "\303H	>\204\f�\304\305!\210\306H\307B\nB\211\207" [user cl-struct-erc-server-user-tags nicks 0 error "erc-server-user-nickname accessing a non-erc-server-user" 1 nil] 2]] 3 (#$ . 29821)])
#@61 Returns an alist of known nicknames on the current channel.
(defalias 'erc-get-channel-nickname-alist #[nil "\302\303	!\205�\304\305	\"\210)\207" [nicks erc-channel-users nil hash-table-p maphash #[(n cdata) "@\303H	>\204
�\304\305!\210@\306H\307B\nB\211\207" [cdata cl-struct-erc-server-user-tags nicks 0 error "erc-server-user-nickname accessing a non-erc-server-user" 1 nil] 2]] 3 (#$ . 30298)])
#@167 Sorts LIST such that users which have spoken most recently are
listed first.  LIST must be of the form (USER . CHANNEL-DATA).

See also: `erc-get-channel-user-list'.
(defalias 'erc-sort-channel-users-by-activity #[(list) "\301\302\"\207" [list sort #[(x y) "A\205?�	A\205?�A\305H\n>\204�\306\307!\210A\310H	A\305H\n>\204(�\306\307!\210	A\310H\211\205>�\203=�\311\f\"\202>�\312*\207" [x y cl-struct-erc-channel-user-tags ty tx 0 error "erc-channel-user-last-message-time accessing a non-erc-channel-user" 3 time-less-p t] 4]] 3 (#$ . 30710)])
#@151 Sort LIST so that users' nicknames are in alphabetical order.
LIST must be of the form (USER . CHANNEL-DATA).

See also: `erc-get-channel-user-list'.
(defalias 'erc-sort-channel-users-alphabetically #[(list) "\301\302\"\207" [list sort #[(x y) "A\205@�	A\205@�@\305H\n>\204�\306\307!\210@\310H\227	@\305H\n>\204)�\306\307!\210	@\310H\227\211\205?�\203>�\f\231\202?�\311*\207" [x y cl-struct-erc-server-user-tags nicky nickx 0 error "erc-server-user-nickname accessing a non-erc-server-user" 1 t] 4]] 3 (#$ . 31268)])
#@74 A topic string for the channel.  Should only be used in channel-buffers.
(defvar erc-channel-topic nil (#$ . 31800))
(make-variable-buffer-local 'erc-channel-topic)
#@129 List of strings representing channel modes.
E.g. '("i" "m" "s" "b Quake!*@*")
(not sure the ban list will be here, but why not)
(defvar erc-channel-modes nil (#$ . 31972))
(make-variable-buffer-local 'erc-channel-modes)
#@69 The place where insertion of new text in erc buffers should happen.
(defvar erc-insert-marker nil (#$ . 32198))
(make-variable-buffer-local 'erc-insert-marker)
#@44 The marker where input should be inserted.
(defvar erc-input-marker nil (#$ . 32364))
(make-variable-buffer-local 'erc-input-marker)
#@59 Return a copy of STRING will all text-properties removed.
(defalias 'erc-string-no-properties #[(string) "\302!\303\304	G\305	$\210	)\207" [string newstring copy-sequence set-text-properties 0 nil] 5 (#$ . 32503)])
#@59 Prompt used by ERC.  Trailing whitespace is not required.
(custom-declare-variable 'erc-prompt '"ERC>" '(#$ . 32726) :group 'erc-display :type '(choice string function))
#@75 Return the input prompt as a string.

See also the variable `erc-prompt'.
(defalias 'erc-prompt #[nil "\302!\203� \202\f�\211G\303V\203�	\304P\202�	)\207" [erc-prompt prompt functionp 0 " "] 3 (#$ . 32902)])
#@222 Indicator used by ERC for showing commands.

If non-nil, this will be used in the ERC buffer to indicate
commands (i.e., input starting with a '/').

If nil, the prompt will be constructed from the variable `erc-prompt'.
(custom-declare-variable 'erc-command-indicator 'nil '(#$ . 33124) :group 'erc-display :type '(choice (const nil) string function))
#@129 Return the command indicator prompt as a string.

This only has any meaning if the variable `erc-command-indicator' is non-nil.
(defalias 'erc-command-indicator #[nil "\205 �\302!\203� \202�\211G\303V\203�	\304P\202�	)\207" [erc-command-indicator prompt functionp 0 " "] 3 (#$ . 33484)])
#@26 *Prefix for all notices.
(custom-declare-variable 'erc-notice-prefix '"*** " '(#$ . -33787) :group 'erc-display :type 'string)
#@245 *Determines how to highlight notices.
See `erc-notice-prefix'.

The following values are allowed:

'prefix - highlight notice prefix only
    'all    - highlight the entire notice

Any other value disables notice's highlighting altogether.
(custom-declare-variable 'erc-notice-highlight-type ''all '(#$ . -33921) :group 'erc-display :type '(choice (const :tag "highlight notice prefix only" prefix) (const :tag "highlight the entire notice" all) (const :tag "don't highlight notices at all" nil)))
#@748 *Specifies a list of functions to call to echo a private
notice.  Each function is called with four arguments, the string
to display, the parsed server message, the target buffer (or
nil), and the sender.  The functions are called in order, until a
function evaluates to non-nil.  These hooks are called after
those specified in `erc-echo-notice-always-hook'.

See also: `erc-echo-notice-always-hook',
`erc-echo-notice-in-default-buffer',
`erc-echo-notice-in-target-buffer',
`erc-echo-notice-in-minibuffer',
`erc-echo-notice-in-server-buffer',
`erc-echo-notice-in-active-non-server-buffer',
`erc-echo-notice-in-active-buffer',
`erc-echo-notice-in-user-buffers',
`erc-echo-notice-in-user-and-target-buffers',
`erc-echo-notice-in-first-user-buffer'
(custom-declare-variable 'erc-echo-notice-hook 'nil '(#$ . -34430) :group 'erc-hooks :type 'hook :options '(erc-echo-notice-in-default-buffer erc-echo-notice-in-target-buffer erc-echo-notice-in-minibuffer erc-echo-notice-in-server-buffer erc-echo-notice-in-active-non-server-buffer erc-echo-notice-in-active-buffer erc-echo-notice-in-user-buffers erc-echo-notice-in-user-and-target-buffers erc-echo-notice-in-first-user-buffer))
#@726 *Specifies a list of functions to call to echo a private
notice.  Each function is called with four arguments, the string
to display, the parsed server message, the target buffer (or
nil), and the sender.  The functions are called in order, and all
functions are called.  These hooks are called before those
specified in `erc-echo-notice-hook'.

See also: `erc-echo-notice-hook',
`erc-echo-notice-in-default-buffer',
`erc-echo-notice-in-target-buffer',
`erc-echo-notice-in-minibuffer',
`erc-echo-notice-in-server-buffer',
`erc-echo-notice-in-active-non-server-buffer',
`erc-echo-notice-in-active-buffer',
`erc-echo-notice-in-user-buffers',
`erc-echo-notice-in-user-and-target-buffers',
`erc-echo-notice-in-first-user-buffer'
(custom-declare-variable 'erc-echo-notice-always-hook ''(erc-echo-notice-in-default-buffer) '(#$ . -35613) :group 'erc-hooks :type 'hook :options '(erc-echo-notice-in-default-buffer erc-echo-notice-in-target-buffer erc-echo-notice-in-minibuffer erc-echo-notice-in-server-buffer erc-echo-notice-in-active-non-server-buffer erc-echo-notice-in-active-buffer erc-echo-notice-in-user-buffers erc-echo-notice-in-user-and-target-buffers erc-echo-notice-in-first-user-buffer))
#@53 *If non-nil, do a whowas on a nick if no such nick.
(custom-declare-variable 'erc-whowas-on-nosuchnick 'nil '(#$ . -36813) :group 'erc :type 'boolean)
#@70 *If non-nil, show every time you get a PING or PONG from the server.
(custom-declare-variable 'erc-verbose-server-ping 'nil '(#$ . -36970) :group 'erc-paranoia :type 'boolean)
#@180 *Let others know you are back when you are no longer marked away.
This happens in this form:
* <nick> is back (gone for <time>)

Many consider it impolite to do so automatically.
(custom-declare-variable 'erc-public-away-p 'nil '(#$ . -37153) :group 'erc :type 'boolean)
#@58 *The nickname to take when you are marked as being away.
(custom-declare-variable 'erc-away-nickname 'nil '(#$ . -37430) :group 'erc :type '(choice (const nil) string))
#@60 If non-nil, then all incoming CTCP requests will be shown.
(custom-declare-variable 'erc-paranoid 'nil '(#$ . 37605) :group 'erc-paranoia :type 'boolean)
#@238 Disable replies to CTCP requests that require a reply.
If non-nil, then all incoming CTCP requests that normally require
an automatic reply (like VERSION or PING) will be ignored.  Good to
set if some hacker is trying to flood you away.
(custom-declare-variable 'erc-disable-ctcp-replies 'nil '(#$ . 37766) :group 'erc-paranoia :type 'boolean)
#@49 Be paranoid, don't give away your machine name.
(custom-declare-variable 'erc-anonymous-login 't '(#$ . 38116) :group 'erc-paranoia :type 'boolean)
#@69 Prompt for channel key when using `erc-join-channel' interactively.
(custom-declare-variable 'erc-prompt-for-channel-key 'nil '(#$ . 38270) :group 'erc :type 'boolean)
#@33 Use this as your email user ID.
(custom-declare-variable 'erc-email-userid '"user" '(#$ . 38444) :group 'erc :type 'string)
#@99 Use this as the name of your system.
If nil, ERC will call `system-name' to get this information.
(custom-declare-variable 'erc-system-name 'nil '(#$ . 38574) :group 'erc :type '(choice (const :tag "Default system name" nil) string))
#@184 *List of regexps matching user identifiers to ignore.

A user identifier has the form "nick!login@host".  If an
identifier matches, the message from the person will not be
processed.
(custom-declare-variable 'erc-ignore-list 'nil '(#$ . -38815) :group 'erc-ignore :type '(repeat regexp))
(make-variable-buffer-local 'erc-ignore-list)
#@586 *List of regexps matching user identifiers to ignore completely.

This differs from `erc-ignore-list' in that it also ignores any
messages directed at the user.

A user identifier has the form "nick!login@host".

If an identifier matches, or a message is addressed to a nick
whose identifier matches, the message will not be processed.

CAVEAT: ERC doesn't know about the user and host of anyone who
was already in the channel when you joined, but never said
anything, so it won't be able to match the user and host of those
people.  You can update the ERC internal info using /WHO *.
(custom-declare-variable 'erc-ignore-reply-list 'nil '(#$ . -39156) :group 'erc-ignore :type '(repeat regexp))
#@250 *If non-nil, flood protection is enabled.
Flooding is sending too much information to the server in too
short of an interval, which may cause the server to terminate the
connection.

See `erc-server-flood-margin' for other flood-related parameters.
(defvar erc-flood-protect t (#$ . -39859))
#@257 List of files to try for a startup script.
The first existent and readable one will get executed.

If the filename ends with `.el' it is presumed to be an Emacs Lisp
script and it gets (load)ed.  Otherwise it is treated as a bunch of
regular IRC commands.
(custom-declare-variable 'erc-startup-file-list '(list (concat erc-user-emacs-directory ".ercrc.el") (concat erc-user-emacs-directory ".ercrc") "~/.ercrc.el" "~/.ercrc" ".ercrc.el" ".ercrc") '(#$ . 40158) :group 'erc-scripts :type '(repeat file))
#@151 List of directories to look for a script in /load command.
The script is first searched in the current directory, then in each
directory in the list.
(custom-declare-variable 'erc-script-path 'nil '(#$ . 40668) :group 'erc-scripts :type '(repeat directory))
#@52 *If non-nil, echo the IRC script commands locally.
(custom-declare-variable 'erc-script-echo 't '(#$ . -40932) :group 'erc-scripts :type 'boolean)
#@72 A marker containing the position the current buffer was last saved at.
(defvar erc-last-saved-position nil (#$ . 41085))
(make-variable-buffer-local 'erc-last-saved-position)
#@125 Kill the channel buffer on PART.
This variable should probably stay nil, as ERC can reuse buffers if
you rejoin them later.
(custom-declare-variable 'erc-kill-buffer-on-part 'nil '(#$ . 41267) :group 'erc-quit-and-part :type 'boolean)
#@119 Kill all query (also channel) buffers of this server on QUIT.
See the variable `erc-kill-buffer-on-part' for details.
(custom-declare-variable 'erc-kill-queries-on-quit 'nil '(#$ . 41509) :group 'erc-quit-and-part :type 'boolean)
#@48 Kill the server buffer of the process on QUIT.
(custom-declare-variable 'erc-kill-server-buffer-on-quit 'nil '(#$ . 41745) :group 'erc-quit-and-part :type 'boolean)
#@651 Alist of possible arguments to the /quit command.

Each element has the form:
  (REGEXP RESULT)

If REGEXP matches the argument to /quit, then its relevant RESULT
will be used.  RESULT may be either a string, or a function.  If
a function, it should return the quit message as a string.

If no elements match, then the empty string is used.

As an example:
  (setq erc-quit-reason-various-alist
      '(("zippy" erc-quit-reason-zippy)
	("xmms" dme:now-playing)
	("version" erc-quit-reason-normal)
	("home" "Gone home !")
	("^$" "Default Reason")))
If the user types "/quit zippy", then a Zippy the Pinhead quotation
will be used as the quit message.
(custom-declare-variable 'erc-quit-reason-various-alist 'nil '(#$ . 41917) :group 'erc-quit-and-part :type '(repeat (list regexp (choice (string) (function)))))
#@651 Alist of possible arguments to the /part command.

Each element has the form:
  (REGEXP RESULT)

If REGEXP matches the argument to /part, then its relevant RESULT
will be used.  RESULT may be either a string, or a function.  If
a function, it should return the part message as a string.

If no elements match, then the empty string is used.

As an example:
  (setq erc-part-reason-various-alist
      '(("zippy" erc-part-reason-zippy)
	("xmms" dme:now-playing)
	("version" erc-part-reason-normal)
	("home" "Gone home !")
	("^$" "Default Reason")))
If the user types "/part zippy", then a Zippy the Pinhead quotation
will be used as the part message.
(custom-declare-variable 'erc-part-reason-various-alist 'nil '(#$ . 42735) :group 'erc-quit-and-part :type '(repeat (list regexp (choice (string) (function)))))
#@139 *A function which returns the reason for quitting.

The function is passed a single argument, the string typed by the
user after "/quit".
(custom-declare-variable 'erc-quit-reason ''erc-quit-reason-normal '(#$ . -43553) :group 'erc-quit-and-part :type '(choice (const erc-quit-reason-normal) (const erc-quit-reason-zippy) (const erc-quit-reason-various) (symbol)))
#@147 A function which returns the reason for parting a channel.

The function is passed a single argument, the string typed by the
user after "/PART".
(custom-declare-variable 'erc-part-reason ''erc-part-reason-normal '(#$ . 43925) :group 'erc-quit-and-part :type '(choice (const erc-part-reason-normal) (const erc-part-reason-zippy) (const erc-part-reason-various) (symbol)))
#@54 The name of the buffer created by `erc-grab-region'.
(defvar erc-grab-buffer-name "*erc-grab*" (#$ . 44303))
#@32 USER_INFORMATION IRC variable.
(defvar erc-user-information "ERC User" (#$ . 44418))
(custom-declare-group 'erc-hooks nil "Hook variables for fancy customizations of ERC." :group 'erc)
#@46 Hook run after `erc-mode' setup is finished.
(custom-declare-variable 'erc-mode-hook 'nil '(#$ . 44609) :group 'erc-hooks :type 'hook :options '(erc-add-scroll-to-bottom))
#@196 Put functions which should get called more or less periodically here.
The idea is that servers always play ping pong with the client, and so there
is no need for any idle-timer games with Emacs.
(custom-declare-variable 'erc-timer-hook 'nil '(#$ . 44788) :group 'erc-hooks :type 'hook)
#@298 Hook called first when some text is inserted through `erc-display-line'.
It gets called with one argument, STRING.
To be able to modify the inserted text, use `erc-insert-modify-hook' instead.
Filtering functions can set `erc-insert-this' to nil to avoid
display of that particular string at all.
(custom-declare-variable 'erc-insert-pre-hook 'nil '(#$ . 45081) :group 'erc-hooks :type 'hook)
#@663 Hook called first when some text is sent through `erc-send-current-line'.
It gets called with one argument, STRING.

To change the text that will be sent, set the variable STR which is
used in `erc-send-current-line'.

To change the text inserted into the buffer without changing the text
that will be sent, use `erc-send-modify-hook' instead.

Filtering functions can set `erc-send-this' to nil to avoid sending of
that particular string at all and `erc-insert-this' to prevent
inserting that particular string into the buffer.

Note that it's useless to set `erc-send-this' to nil and
`erc-insert-this' to t.  ERC is sane enough to not insert the text
anyway.
(custom-declare-variable 'erc-send-pre-hook 'nil '(#$ . 45481) :group 'erc-hooks :type 'hook)
#@168 Insert the text into the target buffer or not.
Functions on `erc-insert-pre-hook' can set this variable to nil
if they wish to avoid insertion of a particular string.
(defvar erc-insert-this t (#$ . 46244))
#@153 Send the text to the target or not.
Functions on `erc-send-pre-hook' can set this variable to nil
if they wish to avoid sending of a particular string.
(defvar erc-send-this t (#$ . 46458))
#@323 Insertion hook for functions that will change the text's appearance.
This hook is called just after `erc-insert-pre-hook' when the value
of `erc-insert-this' is t.
While this hook is run, narrowing is in effect and `current-buffer' is
the buffer where the text got inserted.  One possible value to add here
is `erc-fill'.
(custom-declare-variable 'erc-insert-modify-hook 'nil '(#$ . 46655) :group 'erc-hooks :type 'hook)
#@127 This hook is called just after `erc-insert-modify-hook'.
At this point, all modifications from prior hook functions are done.
(custom-declare-variable 'erc-insert-post-hook 'nil '(#$ . 47083) :group 'erc-hooks :type 'hook :options '(erc-truncate-buffer erc-make-read-only erc-save-buffer-in-logs))
#@518 Sending hook for functions that will change the text's appearance.
This hook is called just after `erc-send-pre-hook' when the values
of `erc-send-this' and `erc-insert-this' are both t.
While this hook is run, narrowing is in effect and `current-buffer' is
the buffer where the text got inserted.

Note that no function in this hook can change the appearance of the
text that is sent.  Only changing the sent text's appearance on the
sending user's screen is possible.  One possible value to add here
is `erc-fill'.
(custom-declare-variable 'erc-send-modify-hook 'nil '(#$ . 47388) :group 'erc-hooks :type 'hook)
#@280 This hook is called just after `erc-send-modify-hook'.
At this point, all modifications from prior hook functions are done.
NOTE: The functions on this hook are called _before_ sending a command
to the server.

This function is called with narrowing, ala `erc-send-modify-hook'.
(custom-declare-variable 'erc-send-post-hook 'nil '(#$ . 48009) :group 'erc-hooks :type 'hook :options '(erc-make-read-only))
#@144 Hook called after a message has been parsed by ERC.

The single argument to the functions is the unmodified string
which the local user typed.
(custom-declare-variable 'erc-send-completed-hook '(when (featurep 'emacspeak) (list (byte-compile (lambda (str) (emacspeak-auditory-icon 'select-object))))) '(#$ . 48421) :group 'erc-hooks :type 'hook)
#@38 Syntax table used while in ERC mode.
(defvar erc-mode-syntax-table (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\311#\210\302\312\311#\210)\207" [syntax-table make-syntax-table modify-syntax-entry 34 ".   " 92 39 "w   " 60 "." 62] 4) (#$ . 48773))
#@38 Abbrev table used while in ERC mode.
(defvar erc-mode-abbrev-table nil (#$ . 49065))
(define-abbrev-table 'erc-mode-abbrev-table nil)
#@13 ERC keymap.
(defvar erc-mode-map (byte-code "\302 \303\304\305#\210\303\306\307#\210\303\310\307#\210\303\311\307#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\337#\210\303\347\350#\210\303\351\352#\210\353\354!\203\220�\303\355\356#\210\202\227�\357\360\356	$\210)\207" [map global-map make-sparse-keymap define-key "
" erc-send-current-line "" erc-bol [home] "" "" erc-iswitchb "" erc-toggle-interpret-controls "" erc-input-action "" erc-toggle-ctcp-autoresponse "" erc-toggle-flood-control "	" erc-invite-only-mode "\n" erc-join-channel "" erc-channel-names "" erc-get-channel-mode-from-keypress "" erc-part-from-channel "" erc-quit-server "" erc-remove-text-properties-region "" erc-set-topic "" erc-kill-input "" "\211" ispell-complete-word "	" erc-complete-word fboundp command-remapping [remap font-lock-fontify-block] undefined substitute-key-definition font-lock-fontify-block] 5) (#$ . 49205))
(byte-code "\301\302\303\304\305\306%\210\307\310\311\312\305\302%\210\307\313\314\315\305\302%\210\307\316\317\320\305\302%\210\307\321\322\323\305\302%\210\307\324\325\326\305\302%\210\307\327\330\331\305\302%\210\307\332\333W\203D�\334\202E�\335\336\305\302%\210\307\337\340\341\305\302%\210\307\342\343\344\305\302%\210\307\345\346\347\305\302%\210\307\350\351\352\305\302%\210\307\353\354\355\305\302%\207" [emacs-major-version custom-declare-group erc-faces nil "Faces for ERC." :group erc custom-declare-face erc-default-face ((t)) "ERC default face." erc-direct-msg-face ((t (:foreground "IndianRed"))) "ERC face used for messages you receive in the main erc buffer." erc-header-line ((t (:foreground "grey20" :background "grey90"))) "ERC face used for the header line.\n\nThis will only be used if `erc-header-line-face-method' is non-nil." erc-input-face ((t (:foreground "brown"))) "ERC face used for your input." erc-prompt-face ((t (:bold t :foreground "Black" :background "lightBlue2"))) "ERC face for the prompt." erc-command-indicator-face ((t (:bold t))) "ERC face for the command indicator.\nSee the variable `erc-command-indicator'." erc-notice-face 22 ((t (:bold t :foreground "blue"))) ((((class color) (min-colors 88)) (:bold t :foreground "SlateBlue")) (t (:bold t :foreground "blue"))) "ERC face for notices." erc-action-face ((t (:bold t))) "ERC face for actions generated by /ME." erc-error-face ((t (:foreground "red"))) "ERC face for errors." erc-my-nick-face ((t (:bold t :foreground "brown"))) "ERC face for your current nickname in messages sent by you.\nSee also `erc-show-my-nick'." erc-nick-default-face ((t (:bold t))) "ERC nickname default face." erc-nick-msg-face ((t (:bold t :foreground "IndianRed"))) "ERC nickname face for private messages."] 6)
#@68 When set to t, generate debug messages in a separate debug buffer.
(defvar erc-log-p nil (#$ . 52164))
#@22 Debug log file name.
(defvar erc-debug-log-file (expand-file-name "ERC.debug") (#$ . 52273))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305\301!\207" [current-load-list erc-dbuf default-boundp set-default nil make-variable-buffer-local] 3)
#@885 Define a new minor mode using ERC conventions.
Symbol NAME is the name of the module.
Symbol ALIAS is the alias to use, or nil.
DOC is the documentation string to use for the minor mode.
ENABLE-BODY is a list of expressions used to enable the mode.
DISABLE-BODY is a list of expressions used to disable the mode.
If LOCAL-P is non-nil, the mode will be created as a buffer-local
mode, rather than a global one.

This will define a minor mode called erc-NAME-mode, possibly
an alias erc-ALIAS-mode, as well as the helper functions
erc-NAME-enable, and erc-NAME-disable.

Example:

;;;###autoload (autoload 'erc-replace-mode "erc-replace")
  (define-erc-module replace nil
    "This mode replaces incoming text according to `erc-replace-alist'."
    ((add-hook 'erc-insert-modify-hook
	       'erc-replace-insert))
    ((remove-hook 'erc-insert-modify-hook
		  'erc-replace-insert)))
(defalias 'define-erc-module '(macro . #[(name alias doc enable-body disable-body &optional local-p) "\306!\307\310\311	\227\"!\307\310\312	\227\"!\307\310\313	\227\"!\307\310\314	\227\"!\315\316\n\310\317\211'$\320\211\211\321(?\322\323D\324\n\fC
CF\257\325\f\320\310\326\"\327\330\331\323DE\332\n\333BB)BBBBBBB\325
\320\310\334\"\335\332\336\337\323D\340BBE\332\n\341BB*BBBBBBB+\205\234�+=?\205\234�\342\323\307\310\311\306+!\227\"!D\323\nDE\343\323\nD\344\323DF\343\323\fD\345\323DF\343\323
D\346\323DF\257-\207" [name sn mode group enable disable symbol-name intern format "erc-%s-mode" "erc-%s" "erc-%s-enable" "erc-%s-disable" progn erc-define-minor-mode "Toggle ERC %S mode.\nWith arg, turn ERC %S mode on if and only if arg is positive.\n%s" nil :global :group quote if defun "Enable ERC %S mode." (interactive) add-to-list 'erc-modules setq (t) "Disable ERC %S mode." (interactive) erc-modules delq (erc-modules) (nil) defalias put 'definition-name 'definition-name 'definition-name doc local-p enable-body disable-body alias] 15 (#$ . 52530)]))
(put 'define-erc-module 'doc-string-elt 3)
#@664 Execute FORMS the next time EVENT occurs in the `current-buffer'.

You should make sure that `current-buffer' is a server buffer.

This function temporarily adds a function to EVENT's hook to
execute FORMS.  After FORMS are run, the function is removed from
EVENT's hook.  The last expression of FORMS should be either nil
or t, where nil indicates that the other functions on EVENT's hook
should be run too, and t indicates that other functions should
not be run.

Please be sure to use this function in server-buffers.  In
channel-buffers it may not work at all, as it uses the LOCAL
argument of `add-hook' and `remove-hook' to ensure multiserver
capabilities.
(defalias 'erc-once-with-server-event #[(event &rest forms) "\304 \204	�\305\306!\210\307\310!\311!\312\n\313p#\210\n\314\315\316\317\320\nD\321BB\322\320	D\320\nD\323BBBE\324\320\nDDBBBBM\210\325	\n\326\327$\210\n*\207" [event hook fun forms erc-server-buffer-p error "You should only run `erc-once-with-server-event' in a server buffer" make-symbol "fun" erc-get-hook put erc-original-buffer lambda (proc parsed) with-current-buffer get quote ('erc-original-buffer) remove-hook (t) fmakunbound add-hook nil t] 9 (#$ . 54544)])
#@550 Execute FORMS the next time EVENT occurs in any server buffer.

This function temporarily prepends a function to EVENT's hook to
execute FORMS.  After FORMS are run, the function is removed from
EVENT's hook.  The last expression of FORMS should be either nil
or t, where nil indicates that the other functions on EVENT's hook
should be run too, and t indicates that other functions should
not be run.

When FORMS execute, the current buffer is the server buffer associated with the
connection over which the data was received that triggered EVENT.
(defalias 'erc-once-with-server-event-global #[(event &rest forms) "\304\305!\306!\211\307\310\311\312	D\312\nDE\313\312\nDDBBBBM\210\314	\n\315\211$\210\n*\207" [event hook fun forms make-symbol "fun" erc-get-hook lambda (proc parsed) remove-hook quote fmakunbound add-hook nil] 8 (#$ . 55747)])
#@49 Logs STRING if logging is on (see `erc-log-p').
(defalias 'erc-log '(macro . #[(string) "\301\302\303DE\207" [string when erc-log-p erc-log-aux] 4 (#$ . 56603)]))
#@143 Return the server buffer for the current buffer's process.
The buffer-local variable `erc-server-process' is used to find
the process buffer.
(defalias 'erc-server-buffer #[nil "\301 \205�\302!\207" [erc-server-process erc-server-buffer-live-p process-buffer] 2 (#$ . 56774)])
#@52 Return t if the server buffer has not been killed.
(defalias 'erc-server-buffer-live-p #[nil "\301!\205�\302\303!!\207" [erc-server-process processp buffer-live-p process-buffer] 3 (#$ . 57059)])
#@107 Return non-nil if argument BUFFER is an ERC server buffer.

If BUFFER is nil, the current buffer is used.
(defalias 'erc-server-buffer-p #[(&optional buffer) "r\206�pq\210	\302=\205�\303 ?)\207" [buffer major-mode erc-mode erc-default-target] 2 (#$ . 57265)])
#@136 Return non-nil if argument BUFFER is an ERC server buffer that
has an open IRC process.

If BUFFER is nil, the current buffer is used.
(defalias 'erc-open-server-buffer-p #[(&optional buffer) "\300 \205�\301 \207" [erc-server-buffer-p erc-server-process-alive] 1 (#$ . 57535)])
#@96 Return non-nil if BUFFER is an ERC query buffer.
If BUFFER is nil, the current buffer is used.
(defalias 'erc-query-buffer-p #[(&optional buffer) "r\206�pq\210\303 \n\304=\205�	\205�	\305H\306>?*\207" [buffer target major-mode erc-default-target erc-mode 0 (35 38 43 33)] 2 (#$ . 57820)])
#@35 Return non-nil if NICK is online.
(defalias 'erc-ison-p #[(nick) "\303 \304!\205P�rq\210\305\306\307\310\311\312\301\313\314\n\315BBDE\316BBB\"\210\317\320\321\n\"!\210	\305=\2036�\322 \210\202*�t\203N�\323\324	\206A�\n	\203I�\325\202J�\326#\202O�	*)\207" [#1=#:buffer erc-online-p nick erc-server-buffer buffer-live-p unknown erc-once-with-server-event 303 let ((ison (split-string (aref parsed 3)))) setq car erc-member-ignore-case (ison) (t) erc-server-send format "ISON %s" accept-process-output message "%s is %sonline" "" "not "] 10 (#$ . 58120) "sNick: "])
#@33 Do the debug logging of STRING.
(defalias 'erc-log-aux #[(string) "p\306\307\310 \203J�q\210\f\203 �\311\f!\203 �\312\f!\204'�\313\314
\315Q!\fq\210`mdb\210\316\317Qc\210	\203B�db\210\202E�\nb\210q\202O�\320\321\",\207" [session-buffer was-eob point cb erc-dbuf erc-session-server 1 nil erc-server-buffer bufferp buffer-live-p get-buffer-create "*ERC-DEBUG: " "*" "** " "\n" message "ERC: ** %s" string] 4 (#$ . 58694)])
#@151 The current active buffer, the one where the user typed the last command.
Defaults to the server buffer, and should only be set in the
server buffer.
(defvar erc-active-buffer nil (#$ . 59136))
(make-variable-buffer-local 'erc-active-buffer)
#@96 Return the value of `erc-active-buffer' for the current server.
Defaults to the server buffer.
(defalias 'erc-active-buffer #[nil "\302 \303!\205�rq\210\303	!\203�	\202�p\211))\207" [#1=#:buffer erc-active-buffer erc-server-buffer buffer-live-p] 2 (#$ . 59384)])
#@49 Set the value of `erc-active-buffer' to BUFFER.
(defalias 'erc-set-active-buffer #[(buffer) "\302 \203�r\302 q\210\211)\207\211\207" [buffer erc-active-buffer erc-server-buffer] 2 (#$ . 59660)])
#@116 Major mode for Emacs IRC.
Special commands:

\{erc-mode-map}

Turning on `erc-mode' runs the hook `erc-mode-hook'.
(defalias 'erc-mode #[nil "\306 \210\307!\210\310\311\312
!\210\313\314!\203�\315\314!\210\316\f\317\315\320!\210\321\322\323 !\324Q\315\325!\210\326\322\323 !\324Q\327\330!\207" [erc-mode-map mode-name major-mode erc-mode-abbrev-table local-abbrev-table erc-mode-syntax-table kill-all-local-variables use-local-map "ERC" erc-mode set-syntax-table boundp next-line-add-newlines make-local-variable nil t paragraph-separate "\f\\|\$^" regexp-quote erc-prompt "\$" paragraph-start "\\(" run-hooks erc-mode-hook line-move-ignore-invisible] 3 (#$ . 59867)])
#@55 IRC server to use if it cannot be detected otherwise.
(defconst erc-default-server "irc.freenode.net" (#$ . 60557))
#@53 IRC port to use if it cannot be detected otherwise.
(defconst erc-default-port 6667 (#$ . 60679))
#@382 Determines how to display a newly created IRC buffer.

The available choices are:

'window          - in another window,
  'window-noselect - in another window, but don't select that one,
  'frame           - in another frame,
  'bury            - bury it in a new buffer,
  'buffer          - in place of the current buffer,
  any other value  - in place of the current buffer.
(custom-declare-variable 'erc-join-buffer ''buffer '(#$ . 60784) :group 'erc-buffers :type '(choice (const :tag "Split window and select" window) (const :tag "Split window, don't select" window-noselect) (const :tag "New frame" frame) (const :tag "Bury in new buffer" bury) (const :tag "Use current buffer" buffer) (const :tag "Use current buffer" t)))
#@104 *Alist of frame parameters for creating erc frames.
A value of nil means to use `default-frame-alist'.
(custom-declare-variable 'erc-frame-alist 'nil '(#$ . -61525) :group 'erc-buffers :type '(repeat (cons :format "%v" (symbol :tag "Parameter") (sexp :tag "Value"))))
#@124 *Non-nil means the erc frames are dedicated to that buffer.
This only has effect when `erc-join-buffer' is set to `frame'.
(custom-declare-variable 'erc-frame-dedicated-flag 'nil '(#$ . -61800) :group 'erc-buffers :type 'boolean)
#@231 *Determines whether new frames are always created.
Non-nil means that a new frame is not created to display an ERC
buffer if there is already a window displaying it.  This only has
effect when `erc-join-buffer' is set to `frame'.
(custom-declare-variable 'erc-reuse-frames 't '(#$ . -62037) :group 'erc-buffers :type 'boolean)
#@60 Return non-nil if CHANNEL seems to be an IRC channel name.
(defalias 'erc-channel-p #[(channel) ";\203�\301H\302>\207\303!\203!�\304!\203!�rq\210\305\306 !)\207\307\207" [channel 0 (35 38 43 33) bufferp buffer-live-p erc-channel-p erc-default-target nil] 2 (#$ . 62370)])
#@290 *If nil, create new buffers on joining a channel/query.
If non-nil, a new buffer will only be created when you join
channels with same names on different servers, or have query buffers
open with nicks of the same name on different servers.  Otherwise,
the existing buffers will be reused.
(custom-declare-variable 'erc-reuse-buffers 't '(#$ . -62655) :group 'erc-buffers :type 'boolean)
#@246 Normalize the port specification PORT to integer form.
PORT may be an integer, a string or a symbol.  If it is a string or a
symbol, it may have these values:
* irc         -> 194
* ircs        -> 994
* ircd        -> 6667
* ircd-dalnet -> 7000
(defalias 'erc-normalize-port #[(port) "9\203�\302\303!!\207;\203I�\304!\211\305V\203�	\202G�\306\230\203(�\307\202G�\310\230\2032�\311\202G�\312\230\203<�\313\202G�\314\230\203F�\315\202G�\316)\207\247\203P�\207\316\207" [port port-nr erc-normalize-port symbol-name string-to-number 0 "irc" 194 "ircs" 994 "ircd" 6667 "ircd-dalnet" 7000 nil] 4 (#$ . 63049)])
#@40 Check whether ports A and B are equal.
(defalias 'erc-port-equal #[(a b) "\302!\302	!U\207" [a b erc-normalize-port] 3 (#$ . 63673)])
#@50 Create a new buffer name based on the arguments.
(defalias 'erc-generate-new-buffer-name #[(server port target &optional proc) "\247\203	�\306!	\206�\n\307Q\211G\310V\205�)\206�\311
\203Z�\312\f!\203Z�	\204@�r\312\f!q\210\313 \205<�\314 ?)\203Z�r\312\f!q\210\n\230\205R�\315\")\203Z�\f\202]�\316\f!)\207" [port target server name buf-name erc-reuse-buffers number-to-string ":" 1 "*erc-server-buffer*" get-buffer erc-server-buffer-p erc-server-process-alive erc-port-equal generate-new-buffer-name erc-session-server erc-session-port] 4 (#$ . 63814)])
#@45 Create a new buffer based on the arguments.
(defalias 'erc-get-buffer-create #[(server port target &optional proc) "\304\305	\n$!\207" [server port target proc get-buffer-create erc-generate-new-buffer-name] 6 (#$ . 64387)])
#@131 Return non-nil if STRING is a member of LIST.

All strings are compared according to IRC protocol case rules, see
`erc-downcase'.
(defalias 'erc-member-ignore-case #[(string list) "\301!\302\303\215\207" [string erc-downcase result (byte-code "\205�	\302@!\230\203�\303\304\"\210\202��A\211\204�\305\207" [list string erc-downcase throw result nil] 4)] 2 (#$ . 64621)])
#@368 Execute BODY in the buffer associated with SPEC.

SPEC should have the form

(TARGET [PROCESS])

If TARGET is a buffer, use it.  Otherwise, use the buffer
matching TARGET in the process specified by PROCESS.

If PROCESS is nil, use the current `erc-server-process'.
See `erc-get-buffer' for details.

See also `with-current-buffer'.

(fn (TARGET [PROCESS]) BODY...)
(defalias 'erc-with-buffer '(macro . #[(spec &rest body) "\306\307!\306\310!\306\311!\306\312!\313	\f@D\f\211A@)D\314\315	D	\316\n\317\320BBDC\314\321	\nE\322	\nEEEFDE\323\324D\325BBEE,\207" [process target proc buf spec x make-symbol "buf" "proc" "target" "process" let* if bufferp let or ((and (processp erc-server-process) erc-server-process)) and erc-get-buffer when buffer-live-p with-current-buffer body] 15 (#$ . 65008)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put erc-with-buffer lisp-indent-function 1 edebug-form-spec ((form &optional form) body)] 4)
#@109 Return the buffer matching TARGET in the process PROC.
If PROC is not supplied, all processes are searched.
(defalias 'erc-get-buffer #[(target &optional proc) "\302!\303\304\215)\207" [target downcased-target erc-downcase buffer (erc-buffer-filter #[nil "\302 \211;\205�	\303!\230\205�\304\305p\")\207" [current downcased-target erc-default-target erc-downcase throw buffer] 4] proc)] 2 (#$ . 65974)])
#@296 Return a list of `erc-mode' buffers matching certain criteria.
PREDICATE is a function executed with each buffer, if it returns t, that buffer
is considered a valid match.

PROC is either an `erc-server-process', identifying a certain
server connection, or nil which means all open connections.
(defalias 'erc-buffer-filter #[(predicate &optional proc) "\212\300\301\302\303\304 \"\")\207" [delq nil mapcar #[(buf) "\305!\205!�rq\210	\306=\205 �\n\203�\n=\205 �\f \205 �)\207" [buf major-mode proc erc-server-process predicate buffer-live-p erc-mode] 2] buffer-list] 5 (#$ . 66390)])
#@268 Return a list of ERC buffers.
PREDICATE is a function which executes with every buffer satisfying
the predicate.  If PREDICATE is passed as nil, return a list of all ERC
buffers.  If PROC is given, the buffers local variable `erc-server-process'
needs to match PROC.
(defalias 'erc-buffer-list #[(&optional predicate proc) "\204�\302\303	\"\207" [predicate proc #[nil "\300\207" [t] 1] erc-buffer-filter] 3 (#$ . 66986)])
#@215 Execute FORMS in all buffers which have same process as this server.
FORMS will be evaluated in all buffers having the process PROCESS and
where PRED matches or in all buffers of the server process if PRED is
nil.
(defalias 'erc-with-all-buffers-of-server '(macro . #[(process pred &rest forms) "\305\306!\305\307!\310\nD	D\311\312\313\314\315\316\fBBE\317	EEDE*\320BB\207" [pro pre process pred forms make-symbol "pre" "pro" let* res mapcar lambda (buffer) with-current-buffer buffer erc-buffer-list (res)] 10 (#$ . 67419)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put erc-with-all-buffers-of-server lisp-indent-function 1 edebug-form-spec (form form body)] 4)
#@429 Use `iswitchb-read-buffer' to prompt for a ERC buffer to switch to.
When invoked with prefix argument, use all erc buffers.  Without prefix
ARG, allow only buffers related to same session server.
If `erc-track-mode' is in enabled, put the last element of
`erc-modified-channels-alist' in front of the buffer list.

Due to some yet unresolved reason, global function `iswitchb-mode'
needs to be active for this function to work.
(defalias 'erc-iswitchb #[(&optional arg) "\305\300!\205�\211\204�\300\306!\210\307\216\310\311\312\313\305\303!\205'�\314\315!\211@@)!\316#!+\207" [iswitchb-mode enabled iswitchb-make-buflist-hook erc-modified-channels-alist x boundp 1 ((byte-code "\204�\301\302!\210\301\207" [enabled iswitchb-mode -1] 2)) #[nil "\303\304\305\306\205	�	\"\"\211\207" [arg erc-server-process iswitchb-temp-buflist mapcar buffer-name erc-buffer-list nil] 5] switch-to-buffer iswitchb-read-buffer "Switch-to: " buffer-name last t] 7 (#$ . 68111) "P"])
#@142 Return a list of channel buffers.
PROC is the process for the server connection.  If PROC is nil, return
all channel buffers on all servers.
(defalias 'erc-channel-list #[(proc) "\301\302\"\207" [proc erc-buffer-filter #[nil "\300 \205	�\301\300 !\207" [erc-default-target erc-channel-p] 2]] 3 (#$ . 69092)])
#@65 Return buffers containing NICK in the `erc-channel-users' list.
(defalias 'erc-buffer-list-with-nick #[(nick proc) "r\305!q\210\306\307	!\n\"\211\205 �\310H\f>\204�\311\312!\210\313H*\207" [proc nick erc-server-users user cl-struct-erc-server-user-tags process-buffer gethash erc-downcase 0 error "erc-server-user-buffers accessing a non-erc-server-user" 6] 4 (#$ . 69408)])
#@51 List of default recipients of the current buffer.
(defvar erc-default-recipients nil (#$ . 69794))
(make-variable-buffer-local 'erc-default-recipients)
#@46 Full name of the user on the current server.
(defvar erc-session-user-full-name nil (#$ . 69952))
(make-variable-buffer-local 'erc-session-user-full-name)
#@29 Limit of users per channel.
(defvar erc-channel-user-limit nil (#$ . 70113))
(make-variable-buffer-local 'erc-channel-user-limit)
#@29 Key needed to join channel.
(defvar erc-channel-key nil (#$ . 70249))
(make-variable-buffer-local 'erc-channel-key)
#@26 Last invitation channel.
(defvar erc-invitation nil (#$ . 70371))
(make-variable-buffer-local 'erc-invitation)
#@138 Non-nil indicates that we are away.

Use `erc-away-time' to access this if you might be in a channel
buffer rather than a server buffer.
(defvar erc-away nil (#$ . 70489))
(make-variable-buffer-local 'erc-away)
#@22 Server channel list.
(defvar erc-channel-list nil (#$ . 70706))
(make-variable-buffer-local 'erc-channel-list)
#@71 Non-nil indicates that we got a `nick in use' error while connecting.
(defvar erc-bad-nick nil (#$ . 70823))
(make-variable-buffer-local 'erc-bad-nick)
#@42 Non-nil indicates that we are logged in.
(defvar erc-logged-in nil (#$ . 70981))
(make-variable-buffer-local 'erc-logged-in)
#@66 The local copy of `erc-nick' - the list of nicks to choose from.
(defvar erc-default-nicks nil (#$ . 71112))
(make-variable-buffer-local 'erc-default-nicks)
#@75 Used to keep track of how many times an attempt at changing nick is made.
(defvar erc-nick-change-attempt-count 0 (#$ . 71275))
(make-variable-buffer-local 'erc-nick-change-attempt-count)
#@47 Migrate old names of ERC modules to new ones.
(defalias 'erc-migrate-modules #[(mods) "\302\303\304\305	\"!)\207" [transforms mods ((pcomplete . completion)) erc-delete-dups mapcar #[(m) "\302	\"A\206	�\207" [m transforms assoc] 3]] 4 (#$ . 71469)])
#@231 A list of modules which ERC should enable.
If you set the value of this without using `customize' remember to call
(erc-update-modules) after you change it.  When using `customize', modules
removed from the list will be disabled.
(custom-declare-variable 'erc-modules ''(netsplit fill button match track completion readonly networks ring autojoin noncommands irccontrols move-to-prompt stamp menu list) '(#$ . 71729) :get #[(sym) "\301J!\207" [sym erc-migrate-modules] 2] :set #[(sym val) "\306\300!\203I�\203I�	\203I�\307\211\203H�@\211	\235\204A�\310\311\312\n\"!\313\f!\203@�\306\f!\203@�\fJ\203@�\314\315\n\"\210\f\316!\210)A\211\204�*
	L\210\313\317!\205U�\317 \207" [erc-modules val module #1=#:--cl-dolist-temp-- f sym boundp nil intern-soft format "erc-%s-mode" fboundp message "Disabling `erc-%s'" 0 erc-update-modules] 5] :type '(set :greedy t (const :tag "autoaway: Set away status automatically" autoaway) (const :tag "autojoin: Join channels automatically" autojoin) (const :tag "button: Buttonize URLs, nicknames, and other text" button) (const :tag "capab: Mark unidentified users on servers supporting CAPAB" capab-identify) (const :tag "completion: Complete nicknames and commands (programmable)" completion) (const :tag "hecomplete: Complete nicknames and commands (old)" hecomplete) (const :tag "dcc: Provide Direct Client-to-Client support" dcc) (const :tag "fill: Wrap long lines" fill) (const :tag "identd: Launch an identd server on port 8113" identd) (const :tag "irccontrols: Highlight or remove IRC control characters" irccontrols) (const :tag "keep-place: Leave point above un-viewed text" keep-place) (const :tag "list: List channels in a separate buffer" list) (const :tag "log: Save buffers in logs" log) (const :tag "match: Highlight pals, fools, and other keywords" match) (const :tag "menu: Display a menu in ERC buffers" menu) (const :tag "move-to-prompt: Move to the prompt when typing text" move-to-prompt) (const :tag "netsplit: Detect netsplits" netsplit) (const :tag "networks: Provide data about IRC networks" networks) (const :tag "noncommands: Don't display non-IRC commands after evaluation" noncommands) (const :tag "notify: Notify when the online status of certain users changes" notify) (const :tag "page: Process CTCP PAGE requests from IRC" page) (const :tag "readonly: Make displayed lines read-only" readonly) (const :tag "replace: Replace text in messages" replace) (const :tag "ring: Enable an input history" ring) (const :tag "scrolltobottom: Scroll to the bottom of the buffer" scrolltobottom) (const :tag "services: Identify to Nickserv (IRC Services) automatically" services) (const :tag "smiley: Convert smileys to pretty icons" smiley) (const :tag "sound: Play sounds when you receive CTCP SOUND requests" sound) (const :tag "stamp: Add timestamps to messages" stamp) (const :tag "spelling: Check spelling" spelling) (const :tag "track: Track channel activity in the mode-line" track) (const :tag "truncate: Truncate buffers to a certain size" truncate) (const :tag "unmorse: Translate morse code in messages" unmorse) (const :tag "xdcc: Act as an XDCC file-server" xdcc) (repeat :tag "Others" :inline t symbol)) :group 'erc)
#@67 Run this to enable erc-foo-mode for all modules in `erc-modules'.
(defalias 'erc-update-modules #[nil "\305	\305\211\203d�@\306\307\n!P\211\310\230\203�\311\202<�\312\230\203)�\313\202<�\313\230\2034�\314\202<�\315\230\203<�\316\305\317\320\217\210\321\306\307\n!\322Q!\323\f!\203W�\f\324!\210\202\\�\325\326\n\"\210)A\211\204\n�+\305\207" [req erc-modules mod #1=#:--cl-dolist-temp-- sym nil "erc-" symbol-name "erc-capab-identify" "erc-capab" "erc-completion" "erc-pcomplete" completion "erc-autojoin" "erc-join" (byte-code "\301\302!!\207" [req require intern] 3) ((error)) intern-soft "-mode" fboundp 1 error "`%s' is not a known ERC module"] 5 (#$ . 74930)])
#@65 Consults `erc-join-buffer' to find out how to display `BUFFER'.
(defalias 'erc-setup-buffer #[(buffer) "\306=\203�\307 \203�\310	!\207\311	!\207\312=\203�\310	!\207\313=\203%�\314\207\305=\203W�\n\2037�\315	\316\"?\205c�\317\206=�\f!\320
!\210\321
!\210)\322	!\210\205V�\323\324 \316\"\207\307 \203`�\310	!\207\322	!\207" [erc-join-buffer buffer erc-reuse-frames erc-frame-alist default-frame-alist frame window active-minibuffer-window display-buffer switch-to-buffer-other-window window-noselect bury nil get-buffer-window t make-frame raise-frame select-frame switch-to-buffer set-window-dedicated-p selected-window erc-frame-dedicated-flag] 3 (#$ . 75618)])
#@365 Connect to SERVER on PORT as NICK with FULL-NAME.

If CONNECT is non-nil, connect to the server.  Otherwise assume
already connected and just create a separate buffer for the new
target CHANNEL.

Use PASSWD as user password on the server.  If TGT-LIST is
non-nil, use it to initialize `erc-default-recipients'.

Returns the buffer for the given server or channel.
(defalias 'erc-open #[(&optional server port nick full-name connect passwd tgt-list channel process) "\306\301!\205
�	\230\205
�\n?\205�\f\307
$#p\310\211%&'()*\2034�\311\312
+$\210\313 \210(q\210`&\314 \210*),-\315 .\315 /db\210\316y\210\317`\320\"\203p�\321%/\322`\320\"\206m�d\310\223\210%\204{�db\210\323c\210.`\310\223\21001\3102\203\230�\324\325\326\"3\3104\202\241�\3103\324\325\326\"4\3105\3276\310\21178\330(!\210\310\2119:\310\211;<=:\203\311�=\202\314�=C>?@A\205\335�\331\332\333Q!B%\204\352�db\210\323c\210%\203\366�&b\210\202.`\310\223\210\334 \210db\210\335
+C$\210\311\336(\"\210\203\337	D(#\210\340 \210('=\204:A\2035\341\342'(#\210\343(!\210(.\207" [server erc-session-server erc-server-announced-name connect erc-server-connected port boundp erc-get-buffer-create nil run-hook-with-args erc-before-connect erc-update-modules erc-mode make-marker 0 get-text-property erc-prompt t next-single-property-change "\n" make-hash-table :test equal "" erc-set-active-buffer get-buffer-create "*ERC-DEBUG: " "*" erc-display-prompt erc-determine-parameters erc-connect-pre-hook erc-server-connect erc-update-mode-line message "erc: old buffer %s, switching to %s" erc-setup-buffer channel continued-session old-point old-buffer buffer connected-p server-announced-name nick process erc-server-process erc-insert-marker erc-input-marker tgt-list erc-default-recipients erc-server-current-nick erc-server-users erc-channel-users erc-server-filter-data erc-channel-topic erc-channel-user-limit erc-channel-key erc-invitation erc-channel-list erc-bad-nick erc-logged-in erc-nick erc-default-nicks passwd erc-session-password erc-log-p erc-dbuf full-name erc-session-port] 7 (#$ . 76298)])
#@103 Initialize the `erc-last-saved-position' marker to a sensible position.
BUFFER is the current buffer.
(defalias 'erc-initialize-log-marker #[(buffer) "rq\210\303 \211\304\n!S\305\223)\207" [buffer erc-last-saved-position erc-insert-marker make-marker marker-position nil] 4 (#$ . 78440)])
#@48 IRC server interactive selection history list.
(defvar erc-server-history-list nil (#$ . 78737))
#@46 Nickname interactive selection history list.
(defvar erc-nick-history-list nil (#$ . 78840))
#@216 Return the buffers corresponding to a NICK on PORT of a session SERVER.
This is determined by looking for the appropriate buffer and checking
whether the connection is still alive.
If no buffer matches, return nil.
(defalias 'erc-already-logged-in #[(server port nick) "\300\301!\207" [erc-buffer-list #[nil "\305 \205�	\230\205�\306\n\"\205�\307\f!\207" [erc-session-server server erc-session-port port nick erc-server-process-alive erc-port-equal erc-current-nick-p] 3]] 2 (#$ . 78940)])
(byte-code "\300\301!\204�\302\301\303\"\210\300\207" [fboundp read-passwd defalias #[(prompt) "\301!\207" [prompt read-from-minibuffer] 2 "Substitute for `read-passwd' in early emacsen."]] 3)
#@211 Hook called before connecting to a server.
This hook gets executed before `erc' actually invokes `erc-mode'
with your input data.  The functions in here get called with three
parameters, SERVER, PORT and NICK.
(custom-declare-variable 'erc-before-connect 'nil '(#$ . 79637) :group 'erc-hooks :type 'hook)
#@177 Hook called after connecting to a server.
This hook gets executed when an end of MOTD has been received.  All
functions in here get called with the parameters SERVER and NICK.
(custom-declare-variable 'erc-after-connect 'nil '(#$ . 79949) :group 'erc-hooks :type 'hook)
#@65 Prompt the user for values of nick, server, port, and password.
(defalias 'erc-select-read-args #[nil "\306\211\211\211\211\307\310\311 \306\211\312%\313\314\f\"\203)�\315\316\317\f\"!\316\320\f\"\2023�\315\307\321\322\323 !\"!\313\324\f\"\203G�\316\320\f\"\316\317\f\"\202g�\325\n	#\203]�\307\326\327\330	#	\306\211\331%\202f�\307\332\333	!\306\211\331%\f
\203\203�%\203}�\334\335!\203}�%\202\205�\336\337!\202\205�%\211\203\222�\340\230\203\222�\306\325\n	#\203\251�\307\326\327\330	#	\306\211\331%\202\222�\341\342\n\343	\344\257-\207" [passwd nick port server user-input erc-prompt-for-password nil read-from-minibuffer "IRC server: " erc-compute-server erc-server-history-list string-match "\$.*\$:\$.*\$\\'" erc-string-to-port match-string 2 1 "IRC port: " erc-port-to-string erc-compute-port "\\`\$.*\$@\$.*\$" erc-already-logged-in erc-format-message nick-in-use 110 erc-nick-history-list "Nickname: " erc-compute-nick y-or-n-p "Use the default password? " read-passwd "Password: " "" :server :port :nick :password erc-password] 9 (#$ . 80225)])
#@790 ERC is a powerful, modular, and extensible IRC client.
This function is the main entry point for ERC.

It permits you to select connection parameters, and then starts ERC.

Non-interactively, it takes the keyword arguments
   (server (erc-compute-server))
   (port   (erc-compute-port))
   (nick   (erc-compute-nick))
   password
   (full-name (erc-compute-full-name)))

That is, if called with

(erc :server "irc.freenode.net" :full-name "Harry S Truman")

then the server and full-name will be set to those values, whereas
`erc-compute-port', `erc-compute-nick' and `erc-compute-full-name' will
be invoked for the values of the other parameters.

(fn &key (SERVER (erc-compute-server)) (PORT (erc-compute-port)) (NICK (erc-compute-nick)) PASSWORD (FULL-NAME (erc-compute-full-name)))
(defalias 'erc #[(&rest #1=#:--cl-rest--) "\306>\206\n�\307\310 DA@\311>\206�\307\312 DA@\313>\206$�\307\314 DA@\315>A@\316>\2067�\307\317 DA@\203m�@\320>\203T�AA\211\202?�\321>A@\203c�\307\211\202?�\322\323@\"\210\202=�)\324	\n
\325\f&-\207" [#1# server port nick password full-name :server nil erc-compute-server :port erc-compute-port :nick erc-compute-nick :password :full-name erc-compute-full-name (:server :port :nick :password :full-name :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:server :port :nick :password :full-name)" erc-open t #2=#:--cl-keys--] 8 (#$ . 81319) (erc-select-read-args)])
(defalias 'erc-select 'erc)
#@98 Interactively select SSL connection parameters and run ERC.
Arguments are the same as for `erc'.
(defalias 'erc-ssl #[(&rest r) "\302\303\304	\")\207" [erc-server-connect-function r erc-open-ssl-stream apply erc] 3 (#$ . 82805) (erc-select-read-args)])
(defalias 'erc-select-ssl 'erc-ssl)
#@159 Open an SSL stream to an IRC server.
The process will be given the name NAME, its target buffer will be
BUFFER.  HOST and PORT specify the connection target.
(defalias 'erc-open-ssl-stream #[(name buffer host port) "\305\306\307\217\205�\310	\n$\311\312!\210\f)\207" [name buffer host port proc nil (byte-code "\300\301!\207" [require ssl] 2) ((error (message "You don't have ssl.el.  %s" "Try using `erc-tls' instead.") nil)) open-ssl-stream sit-for 5] 5 (#$ . 83102)])
#@98 Interactively select TLS connection parameters and run ERC.
Arguments are the same as for `erc'.
(defalias 'erc-tls #[(&rest r) "\302\303\304	\")\207" [erc-server-connect-function r erc-open-tls-stream apply erc] 3 (#$ . 83583) (erc-select-read-args)])
#@159 Open an TLS stream to an IRC server.
The process will be given the name NAME, its target buffer will be
BUFFER.  HOST and PORT specify the connection target.
(defalias 'erc-open-tls-stream #[(name buffer host port) "\304\305\306\217\205
�\307	\n$\207" [name buffer host port nil (byte-code "\300\301!\207" [require tls] 2) ((error (message "You don't have tls.el.  %s" "Try using `erc-ssl' instead.") nil)) open-tls-stream] 5 (#$ . 83844)])
#@184 Pass ARGS to `format', and display the result as an error message.
If `debug-on-error' is set to non-nil, then throw a real error with this
message instead, to make debugging easier.
(defalias 'erc-error #[(&rest args) "\203	�\302\303	\"\207\302\304	\"\210\305 \207" [debug-on-error args apply error message beep] 3 (#$ . 84294)])
#@386 If non-nil, log all IRC protocol traffic to the buffer "*erc-protocol*".

The buffer is created if it doesn't exist.

NOTE: If this variable is non-nil, and you kill the only
visible "*erc-protocol*" buffer, it will be recreated shortly,
but you won't see it.

WARNING: Do not set this variable directly!  Instead, use the
function `erc-toggle-debug-irc-protocol' to toggle its value.
(defvar erc-debug-irc-protocol nil (#$ . 84633))
#@271 Append STRING to the buffer *erc-protocol*.

This only has any effect if `erc-debug-irc-protocol' is non-nil.

The buffer is created if it doesn't exist.

If OUTBOUND is non-nil, STRING is being sent to the IRC server
and appears in face `erc-input-face' in the buffer.
(defalias 'erc-log-irc-protocol #[(string &optional outbound) "\205\217�\306\307\310\217\206\f�\311r\312\313!q\210\212db\210\314\204O�\315\316\317\f\320\"\"\316\211\306 \211!\203I�!@ 
	\321 \322\260!A\211!\2042�*
*\202c�\323	\324\f\211\211GSH\325U?\205_�\322R\326\327#c\210*\330 \331p\314\"\"#\"\205\216�\332\"!\210\333`d\"\334U\203\212�db\210\335\336!\210\332#!,\207" [erc-debug-irc-protocol network-name inhibit-read-only outbound string result nil (erc-network-name) ((error)) "???" get-buffer-create "*erc-protocol*" t delete "" split-string "\n\\|
\n" " << " "\n" erc-propertize " >> " 10 face erc-input-face selected-window get-buffer-window select-window count-lines 1 recenter -1 lines line #1=#:--cl-dolist-temp-- debug-buffer-window orig-win] 7 (#$ . 85074)])
#@99 Toggle the value of `erc-debug-irc-protocol'.

If ARG is non-nil, show the *erc-protocol* buffer.
(defalias 'erc-toggle-debug-irc-protocol #[(&optional arg) "\304\305!rq\210\306 \210\307 \204'�\310\311\312!c\210\311\313!c\210)\314\315 !\210\316\317\320\"\210\321\322\323\324\325$\210db\210\310\311\326\327\n\203>�\330\202?�\331\332 #!c\210*\n?\203Y�\333\305\310\"\204Y�\334\310\"\210\335\336\n\203c�\331\202d�\330\")\207" [buf inhibit-read-only erc-debug-irc-protocol arg get-buffer-create "*erc-protocol*" erc-view-mode-enter current-local-map t erc-make-notice "This buffer displays all IRC protocol traffic exchanged with each server.\n" "Kill this buffer to terminate protocol logging.\n\n" use-local-map make-sparse-keymap local-set-key "
" erc-toggle-debug-irc-protocol add-hook kill-buffer-hook #[nil "\301\211\207" [erc-debug-irc-protocol nil] 2] nil local format "IRC protocol logging %s at %s -- Press ENTER to toggle logging.\n" "disabled" "enabled" current-time-string get-buffer-window display-buffer message "IRC protocol traffic logging %s (see buffer *erc-protocol*)."] 5 (#$ . 86141) "P"])
#@55 Send CTCP ACTION information described by STR to TGT.
(defalias 'erc-send-action #[(tgt str &optional force) "\303\304\305	\"\n#\210\306\307\310p\311\312\313 \314	\315\316\317\316&\f\207" [tgt str force erc-send-ctcp-message format "ACTION %s" erc-display-message nil input ACTION 110 erc-current-nick 97 117 "" 104] 13 (#$ . 87262)])
#@97 Check whether STRING is invisible or not.
I.e. any char in it has the `invisible' property set.
(defalias 'erc-string-invisible-p #[(string) "\301\302G\303\304%\207" [string text-property-any 0 invisible t] 6 (#$ . 87604)])
#@228 Whether to remove the erc-parsed text property after displaying a message.

The default is to remove it, since it causes ERC to take up extra
memory.  If you have code that relies on this property, then set
this option to nil.
(custom-declare-variable 'erc-remove-parsed-property 't '(#$ . 87837) :type 'boolean :group 'erc)
#@375 Display STRING in `erc-mode' BUFFER.
Auxiliary function used in `erc-display-line'.  The line gets filtered to
interpret the control characters.  Then, `erc-insert-pre-hook' gets called.
If `erc-insert-this' is still t, STRING gets inserted into the buffer.
Afterwards, `erc-insert-modify' and `erc-insert-post-hook' get called.
If STRING is nil, the function does nothing.
(defalias 'erc-display-line-1 #[(string buffer) "\205\217�\212	\206\f�\306\n!q\210\307!\206�d\310\211\311\312\"\2046�\313P\314!\2036�\315\316G\317$\210 \203K�\320\321\322\323\"\324\322\325	\"\260!\210\310!\326\327\"\210!\204^�\310!\202\202�\212\214~\210\fb\210\330!\210\214\f`}\210\331\332!\210\331\333!\210\"\203\201�\334ed\335#\210++\336\307!\206\213�d\fZ!*\207" [string buffer erc-server-process erc-insert-marker insert-position inhibit-read-only process-buffer marker-position t string-match "\n$" "\n" erc-string-invisible-p erc-put-text-properties 0 (invisible intangible) erc-log-aux "erc-display-line: " format "(%S)" " in buffer " "%s" run-hook-with-args erc-insert-pre-hook insert-before-markers run-hooks erc-insert-modify-hook erc-insert-post-hook remove-text-properties (erc-parsed nil) erc-update-undo-list buffer-undo-list erc-log-p erc-insert-this erc-remove-parsed-property] 8 (#$ . 88169)])
(defalias 'erc-update-undo-list #[(shift) "\305!\206	�	:??\205\210�	\306\211\205\207�@\211\250\203'�\211@\\\240\210\202�\n:\203�\307\n@!\204�\n@\250\203J�\n\211@\\\240\210\n\211A\\\241\210\202�\n@;\203g�\n\211A\310\nA!\203^�\311\202_�\312_\\\241\210\202�\n@\204�\313\n\233\211\211@\\\240\210\f\211A\\\241\210)A\211\204�\306*\207" [shift buffer-undo-list elt list cons zerop nil markerp natnump 1 -1 3] 5])
#@62 Regexp which matches all valid characters in a IRC nickname.
(defvar erc-valid-nick-regexp "[]a-zA-Z^[;\\`_{}|][]^[;\\`_{}|a-zA-Z0-9-]*" (#$ . 89913))
#@40 Check if NICK is a valid IRC nickname.
(defalias 'erc-is-valid-nick-p #[(nick) "\302\303\304Q	\"\207" [erc-valid-nick-regexp nick string-match "^" "$"] 4 (#$ . 90070)])
#@563 Display STRING in the ERC BUFFER.
All screen output must be done through this function.  If BUFFER is nil
or omitted, the default ERC buffer for the `erc-session-server' is used.
The BUFFER can be an actual buffer, a list of buffers, 'all or 'active.
If BUFFER = 'all, the string is displayed in all the ERC buffers for the
current session.  'active means the current active buffer
(`erc-active-buffer').  If the buffer can't be resolved, the current
buffer is used.  `erc-display-line-1' is used to display STRING.

If STRING is nil, the function does nothing.
(defalias 'erc-display-line #[(string &optional buffer) "\306\307\310\n!\203�\nC\202Q�\n<\203�\n\202Q�\311\n!\203%�\312\n!C\202Q�\n\313=\2032�\314\307\"\202Q�\n\315=\203C�\316 \203C�\316 C\202Q�\317 \203O�\312!C\202Q�pC\307\211\203s�
@\320\f!\203l�\321\f\"\210\322\300\f\"\210
A\211\204X�*?\205\215�\317 \203\210�\321\312!\"\202\215�\321p\"*\207" [new-bufs inhibit-point-motion-hooks buffer erc-server-process buf #1=#:--cl-dolist-temp-- t nil bufferp processp process-buffer all erc-buffer-list active erc-active-buffer erc-server-buffer-live-p buffer-live-p erc-display-line-1 add-to-list string] 4 (#$ . 90247)])
#@102 Highlight STRING according to TYPE, where erc-TYPE-face is an ERC face.

See also `erc-make-notice'.
(defalias 'erc-display-message-highlight #[(type string) "\302=\203\n�\303	!\207\304\305	G\306\307\310\311!\312Q!\206�\313	%\210	\207" [type string notice erc-make-notice erc-put-text-property 0 face intern-soft "erc-" symbol-name "-face" "erc-default-face"] 8 (#$ . 91450)])
#@136 Display MSG in BUFFER.

ARGS, PARSED, and TYPE are used to format MSG sensibly.

See also `erc-format-message' and `erc-display-line'.
(defalias 'erc-display-message #[(parsed type buffer msg &rest args) "9\203
�\306\307	#\202�\204�\n\202.�<\203%�\310\311\"\210\n\202.�9\205.�\312\n\"\313\f!\203D�\fG\314Y\203D�\f\315H
>\204L�\316\n\"\202y�\f\315H
>\204X�\317\320!\210\f\321H\235?\205y�\322\315\nG\323\f\n%\210\322\315\nG\324\325\n%\210\316\n\")\207" [msg args string type parsed cl-struct-erc-response-tags apply erc-format-message mapc #[(type) "\302	\"\211\207" [type string erc-display-message-highlight] 3] erc-display-message-highlight vectorp 6 0 erc-display-line error "erc-response.command accessing a non-erc-response" 3 erc-put-text-property erc-parsed rear-sticky t buffer erc-hide-list] 6 (#$ . 91837)])
#@141 Return non-nil if the erc-parsed text-property at POSITION is in LIST.

This function relies on the erc-parsed text-property being
present.
(defalias 'erc-message-type-member #[(position list) "\304!\211\205�	\305H\n>\204�\306\307!\210	\310H\235)\207" [position prop-val cl-struct-erc-response-tags list erc-get-parsed-vector 0 error "erc-response.command accessing a non-erc-response" 3] 3 (#$ . 92681)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305\301!\207" [current-load-list erc-send-input-line-function default-boundp set-default erc-send-input-line make-variable-buffer-local] 3)
#@51 Send LINE to TARGET.

See also `erc-server-send'.
(defalias 'erc-send-input-line #[(target line &optional force) "\303\304	\305\230\203
�\306\202�	#\307	\n#\207" [target line force format "PRIVMSG %s :%s" "\n" " \n" erc-server-send] 5 (#$ . 93291)])
#@60 Return the argument list of a function without the parens.
(defalias 'erc-get-arglist #[(fun) "\302\303\304!\"\305\306	\"\203�\307\310	\"\202�	)\207" [fun arglist format "%S" erc-function-arglist string-match "^(\$.*\$)$" match-string 1] 4 (#$ . 93551)])
#@103 Return non-nil if STR is an ERC command that can be run when the process
is not alive, nil otherwise.
(defalias 'erc-command-no-process-p #[(str) "\302!\211\205�	@9\205�	@\303N)\207" [str fun erc-extract-command-from-line process-not-needed] 3 (#$ . 93819)])
#@107 For CMD being the function name of a ERC command, something like
erc-cmd-FOO, this returns a string /FOO.
(defalias 'erc-command-name #[(cmd) "\302!\303\304	\"\203�\305\306\307	\"P\202�	)\207" [cmd command-name symbol-name string-match "^erc-cmd-\$.*\$$" "/" match-string 1] 4 (#$ . 94089)])
#@530 Translate LINE to an RFC1459 command and send it based.
Returns non-nil if the command is actually sent to the server, and nil
otherwise.

If the command in the LINE is not bound as a function `erc-cmd-<COMMAND>',
it is passed to `erc-cmd-default'.  If LINE is not a command (i.e. doesn't
start with /<COMMAND>) then it is sent as a message.

An optional FORCE argument forces sending the line when flood
protection is in effect.  The optional NO-COMMAND argument prohibits
this function from interpreting the line as a command.
(defalias 'erc-process-input-line #[(line &optional force no-command) "\306!\211\203�\n\204�	@	A@\307\310\311\217*\2025�\312 \211\203,�
#\2024�\313\307\314p\315$\210\307))\207" [line command-list no-command cmd args r erc-extract-command-from-line nil (byte-code "<\203\n�\302	\"\207	!\207" [args cmd apply] 3) ((wrong-number-of-arguments (byte-code "\301\302\303p\304\305\306!\307\310!\206�\311\312\313\314\315!\206�\311\"&\n\210\302\207" [cmd erc-display-message nil error incorrect-args 99 erc-command-name 117 erc-get-arglist "" 100 format "%s\n" documentation] 14))) erc-default-target erc-display-message error no-target erc-send-input-line-function force] 6 (#$ . 94394)])
#@66 Send LINE to all channels of the current server that you are on.
(defalias 'erc-cmd-AMSG #[(line) "\303!\304\305\306\307\310\n	\"\"*\207" [line #1=#:pro #2=#:pre erc-trim-string nil #[nil "\300\301 !\207" [erc-channel-p erc-default-target] 2] mapcar #[(buffer) "rq\210\302	!)\207" [buffer line erc-send-message] 2] erc-buffer-list] 6 (#$ . 95629) "sSend to all channels you're on: "])
(put 'erc-cmd-AMSG 'do-not-parse-args t)
#@249 Send LINE to the current query or channel as a message, not a command.

Use this when you want to send a message with a leading '/'.  Note
that since multi-line messages are never a command, you don't
need this when pasting multiple lines of text.
(defalias 'erc-cmd-SAY #[(line) "\301\302\"?\205�\301\303\"\210\304\305\306\"\307\310#\207" [line string-match "^\\s-*$" "^ ?\$.*\$" erc-process-input-line match-string 1 nil t] 4 (#$ . 96067)])
(put 'erc-cmd-SAY 'do-not-parse-args t)
#@123 Set the variable named by the first word in LINE to some VALUE.
VALUE is computed by evaluating the rest of LINE in Lisp.
(defalias 'erc-cmd-SET #[(line) "\303\304\"\203^�\305\306\307\310\"P!\305\307\311\"!\312\n!\2032�\n\313	!L\210\314\315\211\316\317\320\n	#$\210\321\202\\�\305\307\310\"!\312\n!\203T�\n\313	!L\210\314\315\211\316\317\320\n	#$\210\321\202\\�\314\315\322\316\323$\210\315*\207\303\324\"\203w�\325\326\327\330\331\332\333\334\335\"\"\"Pp\"\210\321\207\315\207" [line val var string-match "^\\s-*\$\\S-+\$\\s-+\$.*\$$" read "erc-" match-string 1 2 boundp eval erc-display-message nil active format "Set %S to %S" t error variable-not-bound "^\\s-*$" erc-display-line "Available user variables:\n" apply concat mapcar #[(var) "J\302\303\"	:\203�\304\305	!P\202�\302\306	\"P)\207" [var val format "%S:" "\n" pp-to-string " %S\n"] 4] apropos-internal "^erc-" user-variable-p] 9 (#$ . 96563)])
(byte-code "\300\301\302\"\210\300\303\302\"\210\304\302\305\306#\210\304\302\307\306#\207" [defalias erc-cmd-VAR erc-cmd-SET erc-cmd-VARIABLE put do-not-parse-args t process-not-needed] 4)
#@194 Fallback command.

Commands for which no erc-cmd-xxx exists, are tunnelled through
this function.  LINE is sent to the server verbatim, and
therefore has to contain the command itself as well.
(defalias 'erc-cmd-default #[(line) "\203�\302\303\304	\"!\210\305	\306\307O!\210\310\207" [erc-log-p line erc-log-aux format "cmd: DEFAULT: %s" erc-server-send 1 nil t] 4 (#$ . 97684)])
#@138 Ignore USER.  This should be a regexp matching nick!user@host.
If no USER argument is specified, list the contents of `erc-ignore-list'.
(defalias 'erc-cmd-IGNORE #[(&optional user) "\203:�\306!	\230\204�\307\310\311	\"!\203�	\312\313\310\314\"!\315\"\210\316 \317\n!\2036�r\nq\210\320\304\"\210)*\202r�\316 \317!\205I�rq\210\f))\204W�\312\313\321!\315\"\210\202r�\312\313\322!\315\"\210\323\324\316 \317
!\205o�r
q\210\f))\"\210\325\207" [user quoted #1=#:buffer #2=#:buffer erc-ignore-list #3=#:buffer regexp-quote y-or-n-p format "Use regexp-quoted form (%s) instead? " erc-display-line erc-make-notice "Now ignoring %s" active erc-server-buffer buffer-live-p add-to-list "Ignore list is empty" "Ignore list:" mapc #[(item) "\301\302!\303\"\207" [item erc-display-line erc-make-notice active] 3] t] 5 (#$ . 98073)])
#@57 Remove the user specified in USER from the ignore list.
(defalias 'erc-cmd-UNIGNORE #[(user) "\305 \306!\205�rq\210\307\310	!\n\"))@\211\204;�\311	!\211\2031�\312\313\314\"!\204;�\315\202;�\316\317\313\320	\"!\321\"\210\203]�\316\317\313\322	\"!\321\"\210\305 \306\f!\203\\�r\fq\210\323\n\")))\324\207" [#1=#:buffer user erc-ignore-list ignored-nick #2=#:buffer erc-server-buffer buffer-live-p erc-member-ignore-case regexp-quote erc-ignored-user-p y-or-n-p format "Remove this regexp (%s)? " nil erc-display-line erc-make-notice "%s is not currently ignored!" active "No longer ignoring %s" delete t] 6 (#$ . 98913)])
#@27 Clear the window content.
(defalias 'erc-cmd-CLEAR #[nil "\300\301!\210\302\207" [recenter 0 t] 2 (#$ . 99550)])
(put 'erc-cmd-CLEAR 'process-not-needed t)
#@38 Show the ops in the current channel.
(defalias 'erc-cmd-OPS #[nil "\302	\203�\303\304	\"\210\305\306\"\211\2035�\307\302\310p\300\311G\312G\313V\203(�\314\202)�\315\316\317\320\321#&\n\210\202<�\307\302\310p\322$\210)\323\207" [ops erc-channel-users nil maphash #[(nick user-data) "A\211\205.�	\305H\n>\204�\306\307!\210	\310H\205.�@\305H>\204&�\306\311!\210@\310H\fB\211)\207" [user-data cuser cl-struct-erc-channel-user-tags cl-struct-erc-server-user-tags ops 0 error "erc-channel-user-op accessing a non-erc-channel-user" 1 "erc-server-user-nickname accessing a non-erc-server-user"] 3] sort string-lessp erc-display-message notice 105 115 1 "s" "" 111 mapconcat identity " " ops-none t] 15 (#$ . 99712) nil])
#@63 Display the country associated with the top level domain TLD.
(defalias 'erc-cmd-COUNTRY #[(tld) "\302\303!\210\304\305\306\217\211\203�\307\304\310\311\312\313\314	&\210\202&�\307\304\310\311\315\314	&\210)\316\207" [co tld require mail-extr nil (what-domain tld) ((error)) erc-display-message notice active country 99 100 country-unknown t] 10 (#$ . 100445)])
(put 'erc-cmd-COUNTRY 'process-not-needed t)
#@108 Mark the user as being away, the reason being indicated by LINE.
If no reason is given, unset away status.
(defalias 'erc-cmd-AWAY #[(line) "\303\304\"\205)�\305\306\"\n\203�\307\310\311	\"!\210\312	\313\230\203\"�\314\202%�\315	P!\210)\316\207" [line reason erc-log-p string-match "^\\s-*\$.*\$$" match-string 1 erc-log-aux format "cmd: AWAY: %s" erc-server-send "" "AWAY" "AWAY :" t] 4 (#$ . 100864)])
(put 'erc-cmd-AWAY 'do-not-parse-args t)
#@77 Mark the user as being away everywhere, the reason being indicated by LINE.
(defalias 'erc-cmd-GAWAY #[(line) "\302\303\304\305\306	\"\"*\207" [#1=#:pro #2=#:pre nil erc-open-server-buffer-p mapcar #[(buffer) "rq\210\302	!)\207" [buffer line erc-cmd-AWAY] 2] erc-buffer-list] 6 (#$ . 101321)])
(put 'erc-cmd-GAWAY 'do-not-parse-args t)
#@175 Send a Client To Client Protocol message to NICK.

CMD is the CTCP command, possible values being ECHO, FINGER, CLIENTINFO, TIME,
VERSION and so on.  It is called with ARGS.
(defalias 'erc-cmd-CTCP #[(nick cmd &rest args) "	\205\f�\305\306\307	\305#PP\203�\310\311\312\f\n#!\210\313\f\n\"\210)\314\207" [cmd args str erc-log-p nick " " mapconcat identity erc-log-aux format "cmd: CTCP [%s]: [%s]" erc-send-ctcp-message t] 6 (#$ . 101668)])
#@400 Popup help information.

If FUNC contains a valid function or variable, help about that
will be displayed.  If FUNC is empty, display an apropos about
ERC commands.  Otherwise, do `apropos' in the ERC namespace
("erc-.*LINE").

Examples:
To find out about erc and bbdb, do
  /help bbdb.*

For help about the WHOIS command, do:
  /help whois

For a list of user commands (/join /part, ...):
  /help.
(defalias 'erc-cmd-HELP #[(&optional func) "\203}�\302\303\226P!\211\205�\304	!\204�\305	!\205�	)\206Q�\302!\211\2055�\304	!\2044�\305	!\2055�	)\206Q�\302\306P!\211\205P�\304	!\204O�\305	!\205P�	)\211\203r�\304	!\203b�\307	!\202{�\305	!\203n�\310	!\202{�\311\202{�\312\313P\311\314#\210\315)\207\316\303!\210\317\320!\210\315\207" [func sym intern-soft "erc-cmd-" boundp fboundp "erc-" describe-variable describe-function nil apropos-command "erc-.*" #[(x) "\301!\206	�\302N\207" [x commandp custom-type] 2] t apropos message "Type C-h m to get additional information about keybindings."] 5 (#$ . 102119)])
(byte-code "\300\301\302\"\210\303\302\304\305#\207" [defalias erc-cmd-H erc-cmd-HELP put process-not-needed t] 4)
#@177 Join the channel given in CHANNEL, optionally with KEY.
If CHANNEL is specified as "-invite", join the channel to which you
were most recently invited.  See also `invitation'.
(defalias 'erc-cmd-JOIN #[(channel &optional key) "\306	\226\307\230\203�\n\203�\n\202 �\310\306\311p\312$\210\202 �\313	!\203e�\314\315\316!\"\317\f\"\203=�\320\317\f\"@!\210\202d�
\203H�\321\322\323\"!\210\203]�\203]�\324\322\325#!\210\202d�\324\322\326\"!\210))\327\207" [chnl channel erc-invitation erc-server-process joined-channels erc-log-p nil "-INVITE" erc-display-message error no-invitation erc-ensure-channel-name mapcar #[(chanbuf) "rq\210\301 )\207" [chanbuf erc-default-target] 1] erc-channel-list erc-member-ignore-case switch-to-buffer erc-log-aux format "cmd: JOIN: %s" erc-server-send "JOIN %s %s" "JOIN %s" t key] 5 (#$ . 103261)])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias erc-cmd-CHANNEL erc-cmd-JOIN erc-cmd-J] 3)
#@137 If non-nil, a names list is currently being received.

If non-nil, this variable is a hash-table that associates
received nicks with t.
(defvar erc-channel-new-member-names nil (#$ . 104218))
(make-variable-buffer-local 'erc-channel-new-member-names)
#@176 Display the users in CHANNEL.
If CHANNEL is not specified, display the users in the current channel.
This function clears the channel name list first, then sends the
command.
(defalias 'erc-cmd-NAMES #[(&optional channel) "\306!\203\n�\206\f�\307 \211\203h�\306	!\203h�\n\203\"�\310\311\312	\"!\210	\313\314!\2030�\202L�\f\206;�\315
!\205;�
\205K�\205K�\316\")\317!\203^�rq\210\320 \210)+\321\322	P!\210\202o�\323\313\324p\325$\210)\326\207" [channel tgt erc-log-p #1=#:target #2=#:process erc-server-process erc-channel-p erc-default-target erc-log-aux format "cmd: DEFAULT: NAMES %s" nil bufferp processp erc-get-buffer buffer-live-p erc-channel-begin-receiving-names erc-server-send "NAMES " erc-display-message error no-default-channel t #3=#:proc #4=#:buf] 6 (#$ . 104476)])
(defalias 'erc-cmd-N 'erc-cmd-NAMES)
#@121 Kick the user indicated in LINE from the current channel.
LINE has the format: "#CHANNEL NICK REASON" or "NICK REASON".
(defalias 'erc-cmd-KICK #[(target &optional reason-or-nick &rest reasonwords) "\306\307\310#\211\311\230\203�\312\313\314 \"\315\n!\2037�
\203'�\316\312\317\f\n	$!\210\320\312\321\n\f	$\322\n#\210)\323\202u�\n\205u�\324 \205F�\310P	P\203l�
\203\\�\316\312\317\n	$!\210\320\312\321\n	$\322#\210\202s�\325\322\326p\327$\210)\323)\207" [reasonwords reasonstring target reason-or-nick nick erc-log-p mapconcat identity " " "" format "Kicked by %s" erc-current-nick erc-channel-p erc-log-aux "cmd: KICK: %s/%s: %s" erc-server-send "KICK %s %s :%s" nil t erc-default-target erc-display-message error no-default-channel ch] 7 (#$ . 105321)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list erc-script-args default-boundp set-default nil] 3)
#@300 Load the script provided in the LINE.
If LINE continues beyond the file name, the rest of
it is put in a (local) variable `erc-script-args',
which can be used in Emacs Lisp scripts.

The optional FORCE argument is ignored here - you can't force loading
a script after exceeding the flood threshold.
(defalias 'erc-cmd-LOAD #[(line) "\306\307\"\203V�\310\311\"\310\312\"\313	\"
\203!�\314\315\316	\"!\210\f\2042�\317\320\321p\322\323	&\210\202S�\324\f!\204E�\317\320\321p\325\323\f&\210\202S�\326\327\f\"\210\330\f!\210\326\331\f\"\210+\332\207\320\207" [line file-to-find erc-script-args erc-script-path file erc-log-p string-match "^\\s-*\$\\S-+\$\$.*\$$" match-string 1 2 erc-find-file erc-log-aux format "cmd: LOAD: %s" erc-display-message nil error cannot-find-file 102 file-readable-p cannot-read-file message "Loading '%s'..." erc-load-script "Loading '%s'...done" t] 7 (#$ . 106234)])
#@102 Display whois information for USER.

If SERVER is non-nil, use that, rather than the current server.
(defalias 'erc-cmd-WHOIS #[(user &optional server) "\203\f�\304\305	#\202�\304\306	\"\203�\307\304\310\n\"!\210\311\n!\210)\312\207" [server user send erc-log-p format "WHOIS %s %s" "WHOIS %s" erc-log-aux "cmd: %s" erc-server-send t] 4 (#$ . 107146)])
(defalias 'erc-cmd-WI 'erc-cmd-WHOIS)
#@43 Display whois information about yourself.
(defalias 'erc-cmd-WHOAMI #[nil "\300\301 !\210\302\207" [erc-cmd-WHOIS erc-current-nick t] 2 (#$ . 107549)])
#@45 Show the length of time NICK has been idle.
(defalias 'erc-cmd-IDLE #[(nick) "p\304\305 \306\n!\203\231�r\nq\210\307\300\310\311\312\313BB\"\314B\"\210\307\300\310\315\312\316BB\"\317B\"\210\307\300\310\320\312\321BB\"\322B\"\210\307\300\310\323\312\324BB\"\325B\"\210\307\300\310\326\312\327BB\"\330B\"\210\307\300\310\331\312\332BB\"\333B\"\210\307\300\310\334\335\336\337\340\341\342\343D\344BBBD	EE\345#\346B\"\210\347!\210\350\351\304\352\304\353p\354\355\356DD\357BBEE#\210)+\345\207" [symlist origbuf #1=#:buffer nick nil erc-server-buffer buffer-live-p add-to-list erc-once-with-server-event 311 string= ((second (erc-response\.command-args parsed))) erc-server-311-functions 312 ((second (erc-response\.command-args parsed))) erc-server-312-functions 318 ((second (erc-response\.command-args parsed))) erc-server-318-functions 319 ((second (erc-response\.command-args parsed))) erc-server-319-functions 320 ((second (erc-response\.command-args parsed))) erc-server-320-functions 330 ((second (erc-response\.command-args parsed))) erc-server-330-functions 317 let ((idleseconds (string-to-number (third (erc-response\.command-args parsed))))) erc-display-line erc-make-notice format "%s has been idle for %s." erc-string-no-properties ((erc-seconds-to-string idleseconds)) t erc-server-317-functions erc-cmd-WHOIS run-at-time 20 lambda with-current-buffer dolist sym quote ((let ((hooksym (cdr sym)) (funcsym (car sym))) (remove-hook hooksym funcsym t)))] 12 (#$ . 107707)])
#@72 Pose some action to a certain user.
LINE has the format "USER ACTION".
(defalias 'erc-cmd-DESCRIBE #[(line) "\304\305\"\203%�\306\307\"\306\310\"\203�\311\312\313\n	#!\210\314\n	\"\210*\315\207\316\207" [line s dst erc-log-p string-match "^\\s-*\$\\S-+\$\\s-\$.*\$$" match-string 1 2 erc-log-aux format "cmd: DESCRIBE: [%s] %s" erc-send-action t nil] 5 (#$ . 109208)])
(put 'erc-cmd-DESCRIBE 'do-not-parse-args t)
#@25 Send LINE as an action.
(defalias 'erc-cmd-ME #[(line) "\303\304\"\203 �\305\306\"\n\203�\307\310\311	\"!\210\312\313 	\"\210)\314\207\315\207" [line s erc-log-p string-match "^\\s-\$.*\$$" match-string 1 erc-log-aux format "cmd: ME: %s" erc-send-action erc-default-target t nil] 4 (#$ . 109639)])
(put 'erc-cmd-ME 'do-not-parse-args t)
#@62 Do a /ME command, but add the string " 's" to the beginning.
(defalias 'erc-cmd-ME\'S #[(line) "\301\302P!\207" [line erc-cmd-ME " 's"] 3 (#$ . 109988)])
(put 'erc-cmd-ME\'S 'do-not-parse-args t)
#@407 Show all lines in the current buffer matching the regexp LINE.

If a match spreads across multiple lines, all those lines are shown.

The lines are shown in a buffer named `*Occur*'.
It serves as a menu to find any of the occurrences in this buffer.
\[describe-mode] in that buffer will explain how.

If LINE contains upper case characters (excluding those preceded by `'),
the matching is case-sensitive.
(defalias 'erc-cmd-LASTLOG #[(line) "\301!\210\302\207" [line occur t] 2 (#$ . 110192)])
(byte-code "\300\301\302\303#\210\300\301\304\303#\207" [put erc-cmd-LASTLOG do-not-parse-args t process-not-needed] 4)
#@106 Send LINE to the current channel or user and display it.

See also `erc-message' and `erc-display-line'.
(defalias 'erc-send-message #[(line &optional force) "\302\303\304 \305Q	#\210\306\307 Pp\"\210\310\207" [line force erc-message "PRIVMSG" erc-default-target " " erc-display-line erc-format-my-nick t] 5 (#$ . 110815)])
#@298 Change or display the mode value of a channel or user.
The first word specifies the target.  The rest is the mode string
to send.

If only one word is given, display the mode of that target.

A list of valid mode strings for Freenode may be found at
`http://freenode.net/using_the_network.shtml'.
(defalias 'erc-cmd-MODE #[(line) "\303\304\"\203 �\305\306\"\n\203�\307\310\311	\"!\210\312\313P!\210)\314\207\315\207" [line s erc-log-p string-match "^\\s-\$.*\$$" match-string 1 erc-log-aux format "cmd: MODE: %s" erc-server-send "MODE " t nil] 4 (#$ . 111148)])
(put 'erc-cmd-MODE 'do-not-parse-args t)
#@96 Send a notice to the channel or user given as the first word.
The rest is the message to send.
(defalias 'erc-cmd-NOTICE #[(channel-or-user &rest message) "\302\303\304\305\306	\304#Q\"\207" [channel-or-user message erc-message "NOTICE" " " mapconcat identity] 8 (#$ . 111764)])
#@114 Send a message to the channel or user given as the first word in LINE.

The rest of LINE is the message to send.
(defalias 'erc-cmd-MSG #[(line) "\301\302\"\207" [line erc-message "PRIVMSG"] 3 (#$ . 112051)])
(byte-code "\300\301\302\"\210\303\302\304\305#\207" [defalias erc-cmd-M erc-cmd-MSG put do-not-parse-args t] 4)
#@112 Send a Service Query to the service given as the first word in LINE.

The rest of LINE is the message to send.
(defalias 'erc-cmd-SQUERY #[(line) "\301\302\"\207" [line erc-message "SQUERY"] 3 (#$ . 112381)])
#@34 Change current nickname to NICK.
(defalias 'erc-cmd-NICK #[(nick) "\203\f�\306\307\310	\n#!\210\311\312\313 \314!\205�rq\210\f))\"A\211\203;�	G\315
!V\203;�\316\317\320\321\322\323	G\324
&\210)\325\307\326	\"!\210\n\203P�\327	!\210\330 \210\317\331\207" [erc-log-p nick erc-bad-nick #1=#:buffer erc-server-parameters nicklen erc-log-aux format "cmd: NICK: %s (erc-bad-nick: %S)" assoc "NICKLEN" erc-server-buffer buffer-live-p string-to-number erc-display-message nil notice active nick-too-long 105 108 erc-server-send "NICK %s" erc-set-current-nick erc-update-mode-line t] 10 (#$ . 112597)])
#@105 When LINE is an empty string, leave the current channel.
Otherwise leave the channel indicated by LINE.
(defalias 'erc-cmd-PART #[(line) "\306\307\"\203B�\310\311\"\310\312\"\n\313\232?\205�\n!
\203(�\314\315\316	\f#!\210\317\f\313\230\2036�\315\320	\"\202;�\315\321	\f#\322	#\210+\323\207\306\324\"\203\226�\325 \310\311\"\n\313\232?\205Z�\n!	\203\214�\326	!\203\214�
\203r�\314\315\316	\f#!\210\317\f\313\230\203\200�\315\320	\"\202\205�\315\321	\f#\322	#\210\202\223�\327\322\330p\331$\210+\323\207\322\207" [line ch msg erc-part-reason reason erc-log-p string-match "^\\s-*\$[&#+!]\\S-+\$\\s-?\$.*\$$" match-string 1 2 "" erc-log-aux format "cmd: PART: %s: %s" erc-server-send "PART %s" "PART %s :%s" nil t "^\\s-*\$.*\$$" erc-default-target erc-channel-p erc-display-message error no-target] 5 (#$ . 113206)])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put erc-cmd-PART do-not-parse-args t defalias erc-cmd-LEAVE] 4)
#@17 Ping RECIPIENT.
(defalias 'erc-cmd-PING #[(recipient) "\303\304\305 \"	\203�\306\303\307\"!\210\310\n\311#)\207" [time erc-log-p recipient format "%f" erc-current-time erc-log-aux "cmd: PING: %s" erc-cmd-CTCP "PING"] 4 (#$ . 114165)])
#@156 Send LINE directly to the server.
All the text given as argument is sent to the sever as unmodified,
just as you provided it.  Use this command with care!
(defalias 'erc-cmd-QUOTE #[(line) "\301\302\"\203�\303\304\305\"!\207\306\207" [line string-match "^ ?\$.+\$$" erc-server-send match-string 1 nil] 4 (#$ . 114411)])
(put 'erc-cmd-QUOTE 'do-not-parse-args t)
#@367 Indicates how to display query buffers when using the /QUERY
command to talk to someone.

The default behavior is to display the message in a new window
and bring it to the front.  See the documentation for
`erc-join-buffer' for a description of the available choices.

See also `erc-auto-query' to decide how private messages from
other people should be displayed.
(custom-declare-variable 'erc-query-display ''window '(#$ . 114785) :group 'erc-query :type '(choice (const :tag "Split window and select" window) (const :tag "Split window, don't select" window-noselect) (const :tag "New frame" frame) (const :tag "Bury in new buffer" bury) (const :tag "Use current buffer" buffer) (const :tag "Use current buffer" t)))
#@207 Open a query with USER.
The type of query window/frame/etc will depend on the value of
`erc-query-display'.

If USER is omitted, close the current query buffer if one exists
- except this is broken now ;-)
(defalias 'erc-cmd-QUERY #[(&optional user) "\304 \203�\305\n\"\202�\306\307\310\"*\207" [erc-query-display erc-join-buffer session-buffer user erc-server-buffer erc-query signal wrong-number-of-arguments ""] 3 (#$ . 115512) (list (read-from-minibuffer "Start a query with: " nil))])
(defalias 'erc-cmd-Q 'erc-cmd-QUERY)
#@76 Normal quit message.

If S is non-nil, it will be used as the quit reason.
(defalias 'erc-quit-reason-normal #[(&optional s) "\206�\302\303	\"\207" [s erc-version-string format "ERC %s (IRC client for Emacs)"] 3 (#$ . 116052)])
#@75 Zippy quit message.

If S is non-nil, it will be used as the quit reason.
(defalias 'erc-quit-reason-zippy #[(&optional s) "\206\n�\301\302\303\304 #\207" [s erc-replace-regexp-in-string "\n" "" yow] 4 (#$ . 116290)])
#@45 Choose a quit reason based on S (a string).
(defalias 'erc-quit-reason-various #[(s) "\303\206�\304	\305#@\306\n!\203�\n \202)�\n;\203�\n\202)�\203'�\202)�\307 )\207" [s erc-quit-reason-various-alist res assoc-default "" string-match functionp erc-quit-reason-normal] 4 (#$ . 116515)])
#@76 Normal part message.

If S is non-nil, it will be used as the quit reason.
(defalias 'erc-part-reason-normal #[(&optional s) "\206�\302\303	\"\207" [s erc-version-string format "ERC %s (IRC client for Emacs)"] 3 (#$ . 116814)])
#@75 Zippy part message.

If S is non-nil, it will be used as the quit reason.
(defalias 'erc-part-reason-zippy #[(&optional s) "\206\n�\301\302\303\304 #\207" [s erc-replace-regexp-in-string "\n" "" yow] 4 (#$ . 117052)])
#@45 Choose a part reason based on S (a string).
(defalias 'erc-part-reason-various #[(s) "\303\206�\304	\305#@\306\n!\203�\n \202)�\n;\203�\n\202)�\203'�\202)�\307 )\207" [s erc-part-reason-various-alist res assoc-default "" string-match functionp erc-part-reason-normal] 4 (#$ . 117277)])
#@138 Disconnect from the current server.
If REASON is omitted, display a default quit message, otherwise display
the message given by REASON.
(defalias 'erc-cmd-QUIT #[(reason) "\204�\306\307\310\"\203j�\311\312\"\313 	\306\232?\205�	!\314r\n\2031�\315\n!\2031�\n\2022�pq\210
\203?�\316\317\320\"!\210\321\322\313 !\210\323\317\324\"!\210)\325\326\f\"\210\203`�\327\f!\210\330\331\314\332\f$\210,\321\207\314\207" [reason s buffer erc-quit-reason server-proc erc-log-p "" string-match "^\\s-*\$.*\$$" match-string 1 erc-server-buffer nil bufferp erc-log-aux format "cmd: QUIT: %s" t erc-set-active-buffer erc-server-send "QUIT :%s" run-hook-with-args erc-quit-hook erc-kill-query-buffers run-at-time 4 #[(proc) "\301!\205�\302!\303>\205�\304!\207" [proc processp process-status (run open) delete-process] 2] erc-server-quitting erc-server-process erc-kill-queries-on-quit] 5 (#$ . 117577)])
(byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\305\302\306\307#\210\305\302\310\307#\207" [defalias erc-cmd-BYE erc-cmd-QUIT erc-cmd-EXIT erc-cmd-SIGNOFF put do-not-parse-args t process-not-needed] 4)
#@64 Disconnect from all servers at once with the same quit REASON.
(defalias 'erc-cmd-GQUIT #[(reason) "\303\304\305\306\307	\"\"\210*\n\203�\310\311\303\312#\210\313\207" [#1=#:pro #2=#:pre erc-kill-queries-on-quit nil erc-open-server-buffer-p mapcar #[(buffer) "rq\210\302	!)\207" [buffer reason erc-cmd-QUIT] 2] erc-buffer-list run-at-time 4 #[nil "\302\303!\304\211\203�	@\305!\210	A\211\204\n�*\304\207" [buffer #3=#:--cl-dolist-temp-- erc-buffer-list #[(buf) "\301!?\207" [buf erc-server-buffer-p] 2] nil kill-buffer] 3] t] 6 (#$ . 118717)])
(byte-code "\300\301\302\"\210\303\302\304\305#\210\303\302\306\305#\207" [defalias erc-cmd-GQ erc-cmd-GQUIT put do-not-parse-args t process-not-needed] 4)
#@45 Try to reconnect to the current IRC server.
(defalias 'erc-cmd-RECONNECT #[nil "\305 \306\307	!\204
�pr	q\210\306\310\311\312\305 !\211\203'�\313!\210\202*�\314 \210\306+\310\207" [process buffer erc-server-quitting erc-server-reconnecting erc-server-reconnect-count erc-server-buffer nil buffer-live-p t 0 get-buffer-process delete-process erc-server-reconnect] 3 (#$ . 119435)])
(put 'erc-cmd-RECONNECT 'process-not-needed t)
#@56 Connect to SERVER, leaving existing connection intact.
(defalias 'erc-cmd-SERVER #[(server) "\203�\302\303\304	\"!\210\305\306\307\217\210\310\207" [erc-log-p server erc-log-aux format "cmd: SERVER: %s" nil (byte-code "\301\302\303\304 $\207" [server erc :server :nick erc-current-nick] 5) ((error (erc-error "Cannot find host %s." server))) t] 4 (#$ . 119878)])
(put 'erc-cmd-SERVER 'process-not-needed t)
#@53 Say the current ERC and Emacs version into channel.
(defalias 'erc-cmd-SV #[nil "\306\307\310\311	\n\312\313!\203�\314\315\316OP\202-�\312\317!\203\"�\320\fP\202-�\312\321!\203,�\322\202-�\323\324\305!\203D�
\325>\203D�\307\326\327\330
!!\"\202E�\323\312\331!\203O�\332\202P�\323Q&!\210\333\207" [erc-version-string emacs-version system-configuration motif-version-string gtk-version-string x-toolkit-scroll-bars erc-send-message format "I'm using ERC %s with %s %s (%s%s) of %s." "GNU Emacs" featurep motif ", " 4 nil gtk ", GTK+ Version " x-toolkit ", X toolkit" "" boundp (xaw xaw3d) ", %s scroll bars" capitalize symbol-name multi-tty ", multi-tty" t erc-emacs-build-time] 13 (#$ . 120294)])
#@41 Say the current ERC modes into channel.
(defalias 'erc-cmd-SM #[nil "\300\301\302\303 \"!\210\304\207" [erc-send-message format "I'm using the following modules: %s!" erc-modes t] 4 (#$ . 121002)])
#@59 Remove the operator setting from user(s) given in PEOPLE.
(defalias 'erc-cmd-DEOP #[(&rest people) "G\301V\205�\302\303\304 \305\306G\307\"\310\311\312\310#\260!\210\313\207" [people 0 erc-server-send "MODE " erc-default-target " -" make-string 111 " " mapconcat identity t] 10 (#$ . 121206)])
#@55 Add the operator setting to users(s) given in PEOPLE.
(defalias 'erc-cmd-OP #[(&rest people) "G\301V\205�\302\303\304 \305\306G\307\"\310\311\312\310#\260!\210\313\207" [people 0 erc-server-send "MODE " erc-default-target " +" make-string 111 " " mapconcat identity t] 10 (#$ . 121511)])
#@60 Request the current time and date from the current server.
(defalias 'erc-cmd-TIME #[(&optional line) "\203$�\303\304\"\203$�\305\306\"\n\203�\307\310\311	\"!\210\312\313	P!\210)\314\207\312\315!\207" [line args erc-log-p string-match "^\\s-*\$.*\$$" match-string 1 erc-log-aux format "cmd: TIME: %s" erc-server-send "TIME " t "TIME"] 4 (#$ . 121810)])
(defalias 'erc-cmd-DATE 'erc-cmd-TIME)
#@274 Set or request the topic for a channel.
LINE has the format: "#CHANNEL TOPIC", "#CHANNEL", "TOPIC"
or the empty string.

If no #CHANNEL is given, the default channel is used.  If TOPIC is
given, the channel topic is modified, otherwise the current topic will
be displayed.
(defalias 'erc-cmd-TOPIC #[(topic) "\303\304\"\203*�\305\306\"\305\307\"\n\203�\310\311\312	#!\210\313\311\314	#\315	#\210*\316\207\303\317\"\203B�\305\306\"\313\311\320	\"\315	#\210)\316\207\303\321\"\203X�\322 \313\311\320	\"\315	#\210)\316\207\303\323\"\203\224�\322 \305\306\"\211\203\212�\324	!\203\212�\n\203}�\310\311\312	#!\210\313\311\314	#\315	#\210\202\221�\325\315\326p\327$\210*\316\207\315\207" [topic ch erc-log-p string-match "^\\s-*\$[&#+!]\\S-+\$\\s-\$.*\$$" match-string 1 2 erc-log-aux format "cmd: TOPIC [%s]: %s" erc-server-send "TOPIC %s :%s" nil t "^\\s-*\$[&#+!]\\S-+\$" "TOPIC %s" "^\\s-*$" erc-default-target "^\\s-*\$.*\$$" erc-channel-p erc-display-message error no-target] 6 (#$ . 122216)])
(byte-code "\300\301\302\"\210\303\302\304\305#\207" [defalias erc-cmd-T erc-cmd-TOPIC put do-not-parse-args t] 4)
#@66 Append TOPIC to the current channel topic, separated by a space.
(defalias 'erc-cmd-APPENDTOPIC #[(topic) "\303\304\n\"\203�\305\306\307\"\210\303\310	\"\205�\311\312\313	\"\nP!)\207" [erc-channel-topic oldtopic topic string-match "^\\s-*$" signal wrong-number-of-arguments nil "\$.*\$" erc-cmd-TOPIC match-string 1] 4 (#$ . 123358)])
(byte-code "\300\301\302\"\210\303\302\304\305#\207" [defalias erc-cmd-AT erc-cmd-APPENDTOPIC put do-not-parse-args t] 4)
#@102 Clear the topic for a CHANNEL.
If CHANNEL is not specified, clear the topic for the default channel.
(defalias 'erc-cmd-CLEARTOPIC #[(&optional channel) "\302!\203\n�\206\f�\303 \211\205�\304\305\306	\"!\210\307)\207" [channel chnl erc-channel-p erc-default-target erc-server-send format "TOPIC %s :" t] 5 (#$ . 123829) "sClear topic of channel (RET is current channel): "])
#@210 A list of bans seen for the current channel.

Each ban is an alist of the form:
  (WHOSET . MASK)

The property `received-from-server' indicates whether
or not the ban list has been requested from the server.
(defvar erc-channel-banlist nil (#$ . 124215))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local erc-channel-banlist put received-from-server nil] 4)
#@108 Pretty-print the contents of `erc-channel-banlist'.

The ban list is fetched from the server if necessary.
(defalias 'erc-cmd-BANLIST #[nil "\306 \307 \310	!\204�\311\312\313!\314\"\210\202\316�\304\315N\204M�\n\316\317\320 \321
!\203I�r
q\210\322\323\324\325\326\302\327DE\330BBBB\"\210\331\332\333	\"!\210)*\202\316�\f\204d�\311\312\332\334	\"!\314\"\210\335\304\315\317#\210\202\316�\336\337!\203o�\206}�\336\340!\203z� \206}�\341 S\342\343\"0\344\345\346\245!\347\350\345\346\245!\347\2601\311\312\332\351\306 \"!\314\"\210\3110\314\"\210\311\3321\352\353#\314\"\210\3110\314\"\210\354\355\f\"\210\311\312\356!\314\"\210\335\304\315\317#\210+*\357\207" [chnl-name chnl erc-server-367-functions old-367-hook erc-channel-banlist #1=#:buffer erc-default-target buffer-name erc-channel-p erc-display-line erc-make-notice "You're not on a channel\n" active received-from-server erc-banlist-store nil erc-server-buffer buffer-live-p erc-once-with-server-event 368 with-current-buffer (put 'erc-channel-banlist 'received-from-server t) setq quote ((erc-cmd-BANLIST) t) erc-server-send format "MODE %s b" "No bans for channel: %s\n" put boundp erc-fill-column fill-column window-width make-string 61 "%-" number-to-string 2 "s" "%" "Ban list for channel: %s\n" "Ban Mask" "Banned By" mapc #[(x) "\303\304\305	A\n\306\245\"	@\203�\305	@\n\306\245\"\202�\307#\310\"\207" [fmt x erc-fill-column erc-display-line format truncate-string-to-width 2 "" active] 8] "End of Ban list" t separator fmt] 9 (#$ . 124607)])
(defalias 'erc-cmd-BL 'erc-cmd-BANLIST)
#@71 Mass Unban.

Unban all currently banned users in the current channel.
(defalias 'erc-cmd-MASSUNBAN #[nil "\306 \307!\204�\310\311\312!\313\"\202W�\304\314N\204D�	\315\316 \317!\205@�rq\210\320\321\322\323\324\301\nE\325BBBB\"\210\326\327\330\"!)*\202W�\331\332\f\"\211\203U�\333\334\335
\336\"\"\210)\337)\207" [chnl erc-server-367-functions old-367-hook #1=#:buffer erc-channel-banlist bans erc-default-target erc-channel-p erc-display-line erc-make-notice "You're not on a channel\n" active received-from-server erc-banlist-store erc-server-buffer buffer-live-p erc-once-with-server-event 368 with-current-buffer (put 'erc-channel-banlist 'received-from-server t) setq ((erc-cmd-MASSUNBAN) t) erc-server-send format "MODE %s b" mapcar cdr mapc #[(x) "\301\302\303\304 \305G\306\"\307\310\311#$!\207" [x erc-server-send format "MODE %s -%s %s" erc-default-target make-string 98 mapconcat identity " "] 9] erc-group-list 3 t] 9 (#$ . 126188)])
(defalias 'erc-cmd-MUB 'erc-cmd-MASSUNBAN)
#@126 Return CHANNEL if it is a valid channel name.
Eventually add a # in front of it, if that turns it into a valid channel name.
(defalias 'erc-ensure-channel-name #[(channel) "\301!\203�\207\302P\207" [channel erc-channel-p "#"] 2 (#$ . 127195)])
#@268 Copy the region between START and END in a recreatable format.

Converts all the IRC text properties in each line of the region
into control codes and writes them to a separate buffer.  The
resulting text may be used directly as a script to generate this
text again.
(defalias 'erc-grab-region #[(start end) "\306p!\210\212p\307	!\f{\310
!\nq\210\311\211\2035�@\211\312Pc\210A\211\204\"�*q\210\313\n!\210-\314\315!\210\316 \207" [cb erc-grab-buffer-name buf start end region erc-set-active-buffer generate-new-buffer erc-split-multiline-safe nil "\n" switch-to-buffer-other-window message "erc-grab-region doesn't grab colors etc. anymore. If you use this, please tell the maintainers." ding lines line #1=#:--cl-dolist-temp--] 3 (#$ . 127450) "r"])
#@355 Display PROMPT in BUFFER at position POS.
Display an ERC prompt in BUFFER.

If PROMPT is nil, one is constructed with the function `erc-prompt'.
If BUFFER is nil, the `current-buffer' is used.
If POS is nil, PROMPT will be displayed at `point'.
If FACE is non-nil, it will be used to propertize the prompt.  If it is nil,
`erc-prompt-face' will be used.
(defalias 'erc-display-prompt #[(&optional buffer pos prompt face) "\206�\306 \211Gp\203�\307!\203�q\210\212\f\206�`\211b\210	\310V\203I�\311\312\313\314\313\306\313\315\313\316\313&\317\310GS\305
\206C�\320%\210c\210`\321\223\210)\f\203Z�`\fX\203]�	u\210\321\nq+\207" [prompt l ob buffer pos face erc-prompt bufferp 0 erc-propertize start-open t rear-nonsticky front-sticky read-only erc-put-text-property erc-prompt-face nil erc-input-marker buffer-undo-list] 13 (#$ . 128228)])
#@33 Read input from the minibuffer.
(defalias 'erc-input-message #[nil "\304\305\306\307!	#c\210\310 *\207" [minibuffer-local-map read-map minibuffer-allow-text-properties last-command-event t read-from-minibuffer "Message: " string erc-send-current-line] 4 (#$ . 129091) nil])
#@44 History list for interactive action input.
(defvar erc-action-history-list nil (#$ . 129375))
#@55 Interactively input a user action and send it to IRC.
(defalias 'erc-input-action #[nil "\301p!\210\302\303\304\211\211\305%\306\307\"?\205�\310\311 \")\207" [action erc-set-active-buffer read-from-minibuffer "Action: " nil erc-action-history-list string-match "^\\s-*$" erc-send-action erc-default-target] 6 (#$ . 129475) ""])
#@87 Join CHANNEL.

If `point' is at the beginning of a channel name, use that as default.
(defalias 'erc-join-channel #[(channel &optional key) "\302	G\303Y\205\n�	\"\207" [channel key erc-cmd-JOIN 1] 4 (#$ . 129813) (list (let ((chnl (if (looking-at "\$[&#+!][^ \n]+\$") (match-string 1) "")) (table (when (erc-server-buffer-live-p) (set-buffer (process-buffer erc-server-process)) erc-channel-list))) (completing-read "Join channel: " table nil nil nil nil chnl)) (when (or current-prefix-arg erc-prompt-for-channel-key) (read-from-minibuffer "Channel key (RET for none): " nil)))])
#@56 Part from the current channel and prompt for a REASON.
(defalias 'erc-part-from-channel #[(reason) "\301\302 \303Q!\207" [reason erc-cmd-PART erc-default-target " "] 4 (#$ . 130403) (list (if (and (boundp 'reason) (stringp reason) (not (string= reason ""))) reason (read-from-minibuffer (concat "Reason for leaving " (erc-default-target) ": "))))])
#@45 Prompt for a TOPIC for the current channel.
(defalias 'erc-set-topic #[(topic) "\302\303\"\304\305 \306	@Q!)\207" [topic topic-list split-string "" erc-cmd-TOPIC erc-default-target " "] 4 (#$ . 130759) (list (read-from-minibuffer (concat "Set topic of " (erc-default-target) ": ") (when erc-channel-topic (let ((ss (split-string erc-channel-topic ""))) (cons (apply 'concat (if (cdr ss) (butlast ss) ss)) 0)))))])
#@100 Set a LIMIT for the current channel.  Remove limit if nil.
Prompt for one if called interactively.
(defalias 'erc-set-channel-limit #[(&optional limit) "\302 	\203�	G\303Y\203�\304\305\306	#!\202�\304\305\307\"!)\207" [tgt limit erc-default-target 1 erc-server-send format "MODE %s +l %s" "MODE %s -l"] 5 (#$ . 131184) (list (read-from-minibuffer (format "Limit for %s (RET to remove limit): " (erc-default-target))))])
#@96 Set a KEY for the current channel.  Remove key if nil.
Prompt for one if called interactively.
(defalias 'erc-set-channel-key #[(&optional key) "\302 	\203�	G\303Y\203�\304\305\306	#!\202�\304\305\307\"!)\207" [tgt key erc-default-target 1 erc-server-send format "MODE %s +k %s" "MODE %s -k"] 5 (#$ . 131616) (list (read-from-minibuffer (format "Key for %s (RET to remove key): " (erc-default-target))))])
#@125 Disconnect from current server after prompting for REASON.
`erc-quit-reason' works with this just like with `erc-cmd-QUIT'.
(defalias 'erc-quit-server #[(reason) "\301!\207" [reason erc-cmd-QUIT] 2 (#$ . 132035) (list (read-from-minibuffer (format "Reason for quitting %s: " (or erc-server-announced-name erc-session-server))))])
#@129 Move `point' to the beginning of the current line.

This places `point' just after the prompt, or at the beginning of the line.
(defalias 'erc-bol #[nil "\301y\210\302`\303\"\203
�b\210`\207" [erc-input-marker 0 get-text-property erc-prompt] 3 (#$ . 132373) nil])
#@66 Kill current input line using `erc-bol' followed by `kill-line'.
(defalias 'erc-kill-input #[nil "\301 \205�`dU?\205�\302\300!\203�\303\304 \207" [erc-input-ring-index erc-bol boundp nil kill-line] 2 (#$ . 132644) nil])
#@79 Complete the word before point.

This function uses `erc-complete-functions'.
(defalias 'erc-complete-word #[nil "\300\301!?\205	�\302 \207" [run-hook-with-args-until-success erc-complete-functions beep] 2 (#$ . 132874) nil])
#@74 *Default for server messages which aren't covered by `erc-server-hooks'.
(custom-declare-variable 'erc-default-server-hook ''(erc-debug-missing-hooks erc-default-server-handler) '(#$ . -133106) :group 'erc-server-hooks :type 'hook)
#@94 Default server handler.

Displays PROC and PARSED appropriately using `erc-display-message'.
(defalias 'erc-default-server-handler #[(proc parsed) "\303\304	\305\306\307\310\311\"\210\n)\312#$\207" [parsed proc res erc-display-message notice mapconcat identity nil mapc #[(x) ";\205\f�\302	C\"\211\207" [x res append] 3] " "] 9 (#$ . 133344)])
#@105 List of received server messages which ERC does not specifically handle.
See `erc-debug-missing-hooks'.
(defvar erc-server-vectors '(["msgtype" "sender" "to" "arg1" "arg2" "arg3" "..."]) (#$ . 133701))
#@184 Add PARSED server message ERC does not yet handle to `erc-server-vectors'.
These vectors can be helpful when adding new server message handlers to ERC.
See `erc-default-server-hook'.
(defalias 'erc-debug-missing-hooks #[(proc parsed) "	C\244\210\302\207" [erc-server-vectors parsed nil] 2 (#$ . 133910)])
#@149 Open a query buffer on TARGET, using SERVER.
To change how this query window is displayed, use `let' to bind
`erc-join-buffer' before calling this.
(defalias 'erc-query #[(target server) "\203�\306!\203�q\204�\307\310!\210\311	\n\312 \313\211\fC\f
&	\211\204+�\307\314!\210\315 \210)\207" [server erc-session-server erc-session-port erc-session-user-full-name target erc-server-process buffer-live-p error "Couldn't switch to server buffer" erc-open erc-current-nick nil "Couldn't open query window" erc-update-mode-line buf] 11 (#$ . 134223)])
#@384 If non-nil, create a query buffer each time you receive a private message.
If the buffer doesn't already exist, it is created.

This can be set to a symbol, to control how the new query window
should appear.  The default behavior is to display the buffer in
a new window, but not to select it.  See the documentation for
`erc-join-buffer' for a description of the available choices.
(custom-declare-variable 'erc-auto-query ''window-noselect '(#$ . 134786) :group 'erc-query :type '(choice (const :tag "Don't create query window" nil) (const :tag "Split window and select" window) (const :tag "Split window, don't select" window-noselect) (const :tag "New frame" frame) (const :tag "Bury in new buffer" bury) (const :tag "Use current buffer" buffer) (const :tag "Use current buffer" t)))
#@249 If non-nil create query buffer on receiving any PRIVMSG at all.
This includes PRIVMSGs directed to channels.  If you are using an IRC
bouncer, such as dircproxy, to keep a log of channels when you are
disconnected, you should set this option to t.
(custom-declare-variable 'erc-query-on-unjoined-chan-privmsg 't '(#$ . 135581) :group 'erc-query :type 'boolean)
#@115 If non-nil, format text from others in a query buffer like in a channel,
otherwise format like a private message.
(custom-declare-variable 'erc-format-query-as-channel-p 't '(#$ . 135949) :group 'erc-query :type 'boolean)
#@115 If non-nil, print ERC notices for the user in the minibuffer.
Only happens when the session buffer isn't visible.
(custom-declare-variable 'erc-minibuffer-notice 'nil '(#$ . 136178) :group 'erc-display :type 'boolean)
#@72 If non-nil, print a message in the minibuffer if we ignored something.
(custom-declare-variable 'erc-minibuffer-ignored 'nil '(#$ . 136402) :group 'erc-ignore :type 'boolean)
#@279 Remove duplicate text from quit REASON.
Specifically in relation to NICK (user@host) information.  Returns REASON
unmodified if nothing can be removed.
E.g. "Read error to Nick [user@some.host]: 110" would be shortened to
"Read error: 110". The same applies for "Ping Timeout".
(defalias 'erc-wash-quit-reason #[(reason nick login host) "\304!\304	!\304\n!\305\306\307\n\310\311\260\"\203'�\312\313\"\314\312\315\"Q\206<�\305\316\307\n\317\260\"\203;�\312\313\"\206<�\207" [nick login host reason regexp-quote string-match "^\$Read error\$ to " "\\[" "\\]: " "\$.+\$$" match-string 1 ": " 2 "^\$Ping timeout\$ for " "\\]$"] 7 (#$ . 136584)])
#@89 If NICK is unavailable, tell the user the REASON.

See also `erc-display-error-notice'.
(defalias 'erc-nickname-in-use #[(nick reason) "\203�	\n:\203�\nGT\202�\306=\203�\307\310\311\312\f#\"\207	T
A@\313\314\315 \316!\2059�rq\210))\"A\317
\203J�
A\204q�\320\203f�\203f�\321!GZ\202k�\322GZ\"P\323!\210\307\310\311\324\f$\"*\207" [erc-try-new-nick-p erc-nick-change-attempt-count erc-nick nick reason erc-default-nicks 1 erc-display-error-notice nil format "Nickname %s is %s, try another." assoc "NICKLEN" erc-server-buffer buffer-live-p t truncate-string-to-width string-to-number 9 erc-cmd-NICK "Nickname %s is %s, trying %s" #1=#:buffer erc-server-parameters nicklen newnick erc-bad-nick erc-server-connected erc-nick-uniquifier] 7 (#$ . 137252)])
(custom-declare-group 'erc-server-hooks nil "Server event callbacks.\nEvery server event - like numeric replies - has its own hook.\nThose hooks are all called using `run-hook-with-args-until-success'.\nThey receive as first argument the process object from where the event\noriginated from,\nand as second argument the event parsed as a vector." :group 'erc-hooks)
#@53 Display the message sent by the server as a notice.
(defalias 'erc-display-server-message #[(proc parsed) "\302\303\304\305H	>\204�\306\307!\210\310H$\207" [parsed cl-struct-erc-response-tags erc-display-message notice active 0 error "erc-response.contents accessing a non-erc-response" 5] 6 (#$ . 138418)])
#@45 Put this on `erc-server-PRIVMSG-functions'.
(defalias 'erc-auto-query #[(proc parsed) "\205\210�\306	\307H\n>\204�\310\311!\210	\312H!@	\307H\n>\204#�\310\313!\210	\314H@	\307H\n>\2044�\310\315!\210	\316H\204A�\202L�\317\f!\203K�\202L�\f\320	\307H\n>\204[�\310\311!\210	\312H!\204\206�\204n�\f\321 \230\203\206�\322\"\204\206�\323
!\204\206�\324!\210),\325\207" [erc-auto-query parsed cl-struct-erc-response-tags nick target msg erc-parse-user 0 error "erc-response.sender accessing a non-erc-response" 2 "erc-response.command-args accessing a non-erc-response" 4 "erc-response.contents accessing a non-erc-response" 5 erc-current-nick-p erc-ignored-user-p erc-current-nick erc-get-buffer erc-is-message-ctcp-and-not-action-p erc-cmd-QUERY nil erc-query-on-unjoined-chan-privmsg query proc erc-query-display] 3 (#$ . 138736)])
#@44 Check if MESSAGE is a CTCP message or not.
(defalias 'erc-is-message-ctcp-p #[(message) "\301\302\"\207" [message string-match "^\$[^]*\$?$"] 3 (#$ . 139591)])
#@44 Check if MESSAGE is a CTCP message or not.
(defalias 'erc-is-message-ctcp-and-not-action-p #[(message) "\301!\205�\302\303\"?\207" [message erc-is-message-ctcp-p string-match "^\\ACTION.*$"] 3 (#$ . 139763)])
#@44 Format a PRIVMSG in an insertible fashion.
(defalias 'erc-format-privmessage #[(nick msg privp msgp) "\203�	\203\f�\306\202�\307\202�\310\203\"�	\203�\306\202#�\311\202#�\310\312\313\n\f
%	\2035�\314\2026�\315	\203@�\316\202A�\317\320\321\nG\322%\210\320\nG\nG\fG\\\322%\210\320\nG\fG\\G\322%\210-\207" [msgp privp mark-s mark-e nick msg "*" "<" "-" ">" format "%s%s%s %s" erc-nick-msg-face erc-nick-default-face erc-direct-msg-face erc-default-face erc-put-text-property 0 face str nick-face msg-face] 6 (#$ . 139983)])
#@53 *Function to format a nickname for message display.
(custom-declare-variable 'erc-format-nick-function ''erc-format-nick '(#$ . -140541) :group 'erc-display :type 'function)
#@67 Return the nickname of USER.
See also `erc-format-nick-function'.
(defalias 'erc-format-nick #[(&optional user channel-data) "\205�\302H	>\204�\303\304!\210\305H\207" [user cl-struct-erc-server-user-tags 0 error "erc-server-user-nickname accessing a non-erc-server-user" 1] 2 (#$ . 140721)])
#@224 Format the nickname of USER showing if USER is an operator or has voice.
Operators have "@" and users with voice have "+" as a prefix.
Use CHANNEL-DATA to determine op and voice status.
See also `erc-format-nick-function'.
(defalias 'erc-format-@nick #[(&optional user channel-data) "\205G�	\205�	\306H\n>\204�\307\310!\210	\311H\205�\312	\2052�	\306H\n>\204+�\307\313!\210	\314H\2052�\315\f\306H
>\204B�\307\316!\210\311HQ*\207" [user channel-data cl-struct-erc-channel-user-tags voice op cl-struct-erc-server-user-tags 0 error "erc-channel-user-op accessing a non-erc-channel-user" 1 "@" "erc-channel-user-voice accessing a non-erc-channel-user" 2 "+" "erc-server-user-nickname accessing a non-erc-server-user"] 4 (#$ . 141025)])
#@69 Return the beginning of this user's message, correctly propertized.
(defalias 'erc-format-my-nick #[nil "\203�\305\306\307 \310\311\312#\310	\311\313#\310\n\311\312#Q+\207\306\310\f\311\312#)\207" [erc-show-my-nick nick close open prefix "<" "> " erc-current-nick erc-propertize face erc-default-face erc-my-nick-face] 6 (#$ . 141772)])
#@270 Echos a private notice in the default buffer, namely the
target buffer specified by BUFFER, or there is no target buffer,
the server buffer.  This function is designed to be added to
either `erc-echo-notice-hook' or `erc-echo-notice-always-hook',
and always returns t.
(defalias 'erc-echo-notice-in-default-buffer #[(s parsed buffer sender) "\303\304	\n$\210\305\207" [parsed buffer s erc-display-message nil t] 5 (#$ . 142123)])
#@205 Echos a private notice in BUFFER, if BUFFER is non-nil.  This
function is designed to be added to either `erc-echo-notice-hook'
or `erc-echo-notice-always-hook', and returns non-nil if BUFFER
is non-nil.
(defalias 'erc-echo-notice-in-target-buffer #[(s parsed buffer sender) "\205\f�\303	\304\n$\210\305\207" [buffer parsed s erc-display-message nil t] 5 (#$ . 142561)])
#@171 Echos a private notice in the minibuffer.  This function is
designed to be added to either `erc-echo-notice-hook' or
`erc-echo-notice-always-hook', and always returns t.
(defalias 'erc-echo-notice-in-minibuffer #[(s parsed buffer sender) "\301\302\303P\"\210\304\207" [s message "%s" "NOTICE: " t] 4 (#$ . 142941)])
#@174 Echos a private notice in the server buffer.  This function is
designed to be added to either `erc-echo-notice-hook' or
`erc-echo-notice-always-hook', and always returns t.
(defalias 'erc-echo-notice-in-server-buffer #[(s parsed buffer sender) "\302\303\211	$\210\304\207" [parsed s erc-display-message nil t] 5 (#$ . 143265)])
#@265 Echos a private notice in the active buffer if the active
buffer is not the server buffer.  This function is designed to be
added to either `erc-echo-notice-hook' or
`erc-echo-notice-always-hook', and returns non-nil if the active
buffer is not the server buffer.
(defalias 'erc-echo-notice-in-active-non-server-buffer #[(s parsed buffer sender) "\302 \303 =?\205�\304\305\306	$\210\307\207" [parsed s erc-server-buffer erc-active-buffer erc-display-message nil active t] 5 (#$ . 143601)])
#@174 Echos a private notice in the active buffer.  This function is
designed to be added to either `erc-echo-notice-hook' or
`erc-echo-notice-always-hook', and always returns t.
(defalias 'erc-echo-notice-in-active-buffer #[(s parsed buffer sender) "\302\303\304	$\210\305\207" [parsed s erc-display-message nil active t] 5 (#$ . 144100)])
#@348 Echos a private notice in all of the buffers for which SENDER
is a member.  This function is designed to be added to either
`erc-echo-notice-hook' or `erc-echo-notice-always-hook', and
returns non-nil if there is at least one buffer for which the
sender is a member.

See also: `erc-echo-notice-in-first-user-buffer',
`erc-buffer-list-with-nick'.
(defalias 'erc-echo-notice-in-user-buffers #[(s parsed buffer sender) "\305	\"\211\205�\306\307\n\f$\210\310)\207" [sender erc-server-process buffers parsed s erc-buffer-list-with-nick erc-display-message nil t] 6 (#$ . 144443)])
#@379 Echos a private notice in BUFFER and in all of the buffers for
which SENDER is a member.  This function is designed to be added
to either `erc-echo-notice-hook' or
`erc-echo-notice-always-hook', and returns non-nil if there is
at least one buffer for which the sender is a member or the
default target.

See also: `erc-echo-notice-in-user-buffers',
`erc-buffer-list-with-nick'.
(defalias 'erc-echo-notice-in-user-and-target-buffers #[(s parsed buffer sender) "\306	\"\307\302\"\210\n\205�\310\f\311\n
$\210\312)\207" [sender erc-server-process buffers buffer parsed s erc-buffer-list-with-nick add-to-list erc-display-message nil t] 5 (#$ . 145031)])
#@343 Echos a private notice in one of the buffers for which SENDER
is a member.  This function is designed to be added to either
`erc-echo-notice-hook' or `erc-echo-notice-always-hook', and
returns non-nil if there is at least one buffer for which the
sender is a member.

See also: `erc-echo-notice-in-user-buffers',
`erc-buffer-list-with-nick'.
(defalias 'erc-echo-notice-in-first-user-buffer #[(s parsed buffer sender) "\305	\"\211\205�\306\307\n@\f$\210\310)\207" [sender erc-server-process buffers parsed s erc-buffer-list-with-nick erc-display-message nil t] 6 (#$ . 145693)])
#@35 Record ban entries for a channel.
(defalias 'erc-banlist-store #[(proc parsed) "\306H	>\204\f�\307\310!\210\311HA\211@\nA@\312\n8\313
\"rq\210
\fB\235\2049�
\fBB.\314\207" [parsed cl-struct-erc-response-tags #1=#:--cl-var-- channel mask whoset 0 error "erc-response.command-args accessing a non-erc-response" 4 2 erc-get-buffer nil proc buffer erc-channel-banlist] 4 (#$ . 146281)])
#@43 Record that we have received the banlist.
(defalias 'erc-banlist-finished #[(proc parsed) "\306H	>\204\f�\307\310!\210\311H\211A@)\312\f\"r
q\210\313\314\315\316#\210+\316\207" [parsed cl-struct-erc-response-tags x channel proc buffer 0 error "erc-response.command-args accessing a non-erc-response" 4 erc-get-buffer put erc-channel-banlist received-from-server t] 5 (#$ . 146689)])
#@68 Check MODE commands for bans and update the banlist appropriately.
(defalias 'erc-banlist-update #[(proc parsed) "\306H	>\204\f�\307\310!\210\311H@\306H	>\204�\307\312!\210\313H\306H	>\204-�\307\314!\210\315H\316\n
\"\211\203n�rq\210\317\320N\203m�\321\322\"\203m�\321\323\"\203^�\324\325\"\202m�\321\326\"\203m�\327\330\331!A\"\210),\332\207" [parsed cl-struct-erc-response-tags tgt mode whoset proc 0 error "erc-response.command-args accessing a non-erc-response" 4 "erc-response.contents accessing a non-erc-response" 5 "erc-response.sender accessing a non-erc-response" 2 erc-get-buffer erc-channel-banlist received-from-server string-match "^\$[+-]\$b" "^-" erc-delete-if #[(y) "A\226\302\303\304	!A\"\235\207" [y mode mapcar upcase split-string] 5] "^+" mapc #[(mask) "	B\n\235?\205�	B\nB\211\207" [whoset mask erc-channel-banlist] 2] split-string nil buffer] 5 (#$ . 147084)])
#@39 Group LIST into sublists of length N.
(defalias 'erc-group-list #[(list n) "\204�\302\207	\233\204�C\207\303\304	#\305	\233	\"B\207" [list n nil erc-subseq 0 erc-group-list] 4 (#$ . 148003)])
#@46 Handle the logging in process of connection.
(defalias 'erc-handle-login #[nil "?\205�\302\303\304\305 \"\210\306 \211\205�\307	!)\207" [erc-logged-in f t message "Logging in as '%s'... done" erc-current-nick erc-select-startup-file erc-load-script] 4 (#$ . 148208)])
#@78 Run just after connection.

Set user modes and run `erc-after-connect' hook.
(defalias 'erc-connection-established #[(proc parsed) "r\306!q\210	?\205M�\n\206�\307H\f>\204�\310\311!\210\312H\307H\f>\204*�\310\313!\210\314H@\306!\315\316 \210\317
\"\210\320
!\210\321\322#+)\207" [proc erc-server-connected erc-server-announced-name parsed cl-struct-erc-response-tags buffer process-buffer 0 error "erc-response.sender accessing a non-erc-response" 2 "erc-response.command-args accessing a non-erc-response" 4 t erc-update-mode-line erc-set-initial-user-mode erc-server-setup-periodical-ping run-hook-with-args erc-after-connect nick server] 4 (#$ . 148487)])
#@99 If `erc-user-mode' is non-nil for NICK, set the user modes.
The server buffer is given by BUFFER.
(defalias 'erc-set-initial-user-mode #[(nick buffer) "rq\210	\205.�\305	!\203�	 \202�	\211;\205-�\203&�\306\307\310\f\n#!\210\311\307\312\f\n#!))\207" [buffer erc-user-mode mode erc-log-p nick functionp erc-log-aux format "changing mode for %s to %s" erc-server-send "MODE %s %s"] 6 (#$ . 149171)])
#@69 Display STRING as an error notice.

See also `erc-display-message'.
(defalias 'erc-display-error-notice #[(parsed string) "\302\303\304	$\207" [parsed string erc-display-message (notice error) active] 5 (#$ . 149579)])
#@23 Process a CTCP query.
(defalias 'erc-process-ctcp-query #[(proc parsed nick login host) "\306\307\310\311H	>\204�\312\313!\210\314H\315\"\"\211G\316V\203(�\317\320\312D\321$\202\n\nG\311U\203=�\317\320\312D\322\323\f&\202\n\n\205\n\310\n@!@\226\324\325
\326Q!\211%\203\370�\327%!\203\370�
\330\230\203\203�\331%\f&'\311H	>\204w�\312\332!\210\316H@\n@&\210\202(\203\327�\333\311H	>\204\225�\312\332!\210\316H@!\203\263�\317\312\334\335\323\f\336&\337'\340\n@&\f\210\202\327�\317\312\334\341\323\f\336&\337'\340\n@\342\311H	>\204\320�\312\332!\210\316H@&\210\331%\f&'\311H	>\204\354�\312\332!\210\316H@\n@&\210\202\317\320\312D\343$\210*\nA\211\204A�\344)\207" [parsed cl-struct-erc-response-tags queries proc nick type delete "" split-string 0 error "erc-response.contents accessing a non-erc-response" 5 "" 4 erc-display-message notice ctcp-too-many ctcp-empty 110 intern-soft "erc-ctcp-query-" "-hook" boundp "ACTION" run-hook-with-args-until-success "erc-response.command-args accessing a non-erc-response" erc-current-nick-p active ctcp-request 117 104 114 ctcp-request-to 116 undefined-ctcp nil hook login host erc-paranoid] 17 (#$ . 149805)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list erc-ctcp-query-ACTION-hook default-boundp set-default (erc-ctcp-query-ACTION)] 3)
#@33 Respond to a CTCP ACTION query.
(defalias 'erc-ctcp-query-ACTION #[(proc parsed nick login host to msg) "\306\307\"\2051�\310\311\"\312	\n\"\206�\312\n\"\206�\313\n!\314\315\f\316\317\320\321\322
&\f*\207" [msg to proc nick buf s string-match "^ACTION\\s-\$.*\$\\s-*$" match-string 1 erc-get-buffer process-buffer erc-display-message action ACTION 110 117 104 97 parsed login host] 13 (#$ . 151172)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list erc-ctcp-query-CLIENTINFO-hook default-boundp set-default (erc-ctcp-query-CLIENTINFO)] 3)
#@37 Respond to a CTCP CLIENTINFO query.
(defalias 'erc-ctcp-query-CLIENTINFO #[(proc nick login host to msg) "\304\305\"\203�\306\307\310\311\"!!\n\204�\312\313\314	\"\"\210)\315\207" [msg s erc-disable-ctcp-replies nick string-match "^CLIENTINFO\$\\s-*\\|\\s-+.*\$$" erc-client-info erc-trim-string match-string 1 erc-send-ctcp-notice format "CLIENTINFO %s" nil] 5 (#$ . 151766)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list erc-ctcp-query-ECHO-hook default-boundp set-default (erc-ctcp-query-ECHO)] 3)
#@31 Respond to a CTCP ECHO query.
(defalias 'erc-ctcp-query-ECHO #[(proc nick login host to msg) "\304\305\"\203�\306\307\"\n\204�\310\311\312	\"\"\210)\313\207" [msg s erc-disable-ctcp-replies nick string-match "^ECHO\\s-+\$.*\$\\s-*$" match-string 1 erc-send-ctcp-notice format "ECHO %s" nil] 5 (#$ . 152317)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list erc-ctcp-query-FINGER-hook default-boundp set-default (erc-ctcp-query-FINGER)] 3)
#@33 Respond to a CTCP FINGER query.
(defalias 'erc-ctcp-query-FINGER #[(proc nick login host to msg) "\2043�	\203�\306\307\310 \"\202�\306\311\312 \313 \314 $\315\n\316 \"\317V\203-�\f\320\321!Q\322
\f\"\210*\323\207" [erc-disable-ctcp-replies erc-anonymous-login erc-server-last-sent-time ns s nick format "FINGER I'm %s." erc-current-nick "FINGER %s (%s@%s)." user-full-name user-login-name system-name erc-time-diff erc-current-time 0 " Idle for " erc-sec-to-time erc-send-ctcp-notice nil] 5 (#$ . 152803)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list erc-ctcp-query-PING-hook default-boundp set-default (erc-ctcp-query-PING)] 3)
#@31 Respond to a CTCP PING query.
(defalias 'erc-ctcp-query-PING #[(proc nick login host to msg) "\304\305\"\203�	\204�\306\307\"\310\311\312\n\"\"\210)\313\207" [msg erc-disable-ctcp-replies arg nick string-match "^PING\\s-+\$.*\$" match-string 1 erc-send-ctcp-notice format "PING %s" nil] 5 (#$ . 153483)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list erc-ctcp-query-TIME-hook default-boundp set-default (erc-ctcp-query-TIME)] 3)
#@31 Respond to a CTCP TIME query.
(defalias 'erc-ctcp-query-TIME #[(proc nick login host to msg) "\204
�\302	\303\304\305 \"\"\210\306\207" [erc-disable-ctcp-replies nick erc-send-ctcp-notice format "TIME %s" current-time-string nil] 5 (#$ . 153961)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list erc-ctcp-query-USERINFO-hook default-boundp set-default (erc-ctcp-query-USERINFO)] 3)
#@35 Respond to a CTCP USERINFO query.
(defalias 'erc-ctcp-query-USERINFO #[(proc nick login host to msg) "\204\f�\303	\304\305\n\"\"\210\306\207" [erc-disable-ctcp-replies nick erc-user-information erc-send-ctcp-notice format "USERINFO %s" nil] 5 (#$ . 154383)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list erc-ctcp-query-VERSION-hook default-boundp set-default (erc-ctcp-query-VERSION)] 3)
#@34 Respond to a CTCP VERSION query.
(defalias 'erc-ctcp-query-VERSION #[(proc nick login host to msg) "\204
�\304	\305\306\n#\"\210\307\207" [erc-disable-ctcp-replies nick erc-version-string erc-official-location erc-send-ctcp-notice format "VERSION ERC %s - an IRC client for emacs (%s)" nil] 6 (#$ . 154814)])
#@30 Process MSG as a CTCP reply.
(defalias 'erc-process-ctcp-reply #[(proc parsed nick login host msg) "\306!@\307\310	\311Q!\312\n!\2032�\313\n\f
\314H>\204'�\315\316!\210\317H@&\202C�\320\321\322\323\324\f\325
\326\327&\f*\207" [msg type hook proc nick login split-string intern "erc-ctcp-reply-" "-hook" boundp run-hook-with-args-until-success 0 error "erc-response.command-args accessing a non-erc-response" 4 erc-display-message notice active CTCP-UNKNOWN 110 117 104 109 host parsed cl-struct-erc-response-tags] 13 (#$ . 155135)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list erc-ctcp-reply-ECHO-hook default-boundp set-default (erc-ctcp-reply-ECHO)] 3)
#@27 Handle a CTCP ECHO reply.
(defalias 'erc-ctcp-reply-ECHO #[(proc nick login host to msg) "\303\304\"\203�\305\306\"\307\310\311\312\313\314\n\315	&\210)\310\207" [msg message nick string-match "^ECHO\\s-+\$.*\$\\s-*$" match-string 1 erc-display-message nil (notice action) active CTCP-ECHO 110 109] 9 (#$ . 155852)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list erc-ctcp-reply-CLIENTINFO-hook default-boundp set-default (erc-ctcp-reply-CLIENTINFO)] 3)
#@33 Handle a CTCP CLIENTINFO reply.
(defalias 'erc-ctcp-reply-CLIENTINFO #[(proc nick login host to msg) "\303\304\"\203�\305\306\"\307\310\311\312\313\314\n\315	&\210)\310\207" [msg message nick string-match "^CLIENTINFO\\s-+\$.*\$\\s-*$" match-string 1 erc-display-message nil notice active CTCP-CLIENTINFO 110 109] 9 (#$ . 156353)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list erc-ctcp-reply-FINGER-hook default-boundp set-default (erc-ctcp-reply-FINGER)] 3)
#@29 Handle a CTCP FINGER reply.
(defalias 'erc-ctcp-reply-FINGER #[(proc nick login host to msg) "\303\304\"\203�\305\306\"\307\310\311\312\313\314\n\315	&\210)\310\207" [msg message nick string-match "^FINGER\\s-+\$.*\$\\s-*$" match-string 1 erc-display-message nil notice active CTCP-FINGER 110 109] 9 (#$ . 156861)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list erc-ctcp-reply-PING-hook default-boundp set-default (erc-ctcp-reply-PING)] 3)
#@27 Handle a CTCP PING reply.
(defalias 'erc-ctcp-reply-PING #[(proc nick login host to msg) "\302\303\"\205�\304\305\"\306\307\310\217)\207" [msg time string-match "^PING\\s-+\$[0-9.]+\$" match-string 1 nil (byte-code "\303\304!\305 \"\306\307\310\311\312\313\n\314\315	!&)\207" [time delta nick erc-time-diff string-to-number erc-current-time erc-display-message nil notice active CTCP-PING 110 116 erc-sec-to-time] 10) ((range-error (byte-code "\302\303\304\305\306\307\310	&\207" [nick time erc-display-message nil error active bad-ping-response 110 116] 9)))] 3 (#$ . 157349)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list erc-ctcp-reply-TIME-hook default-boundp set-default (erc-ctcp-reply-TIME)] 3)
#@27 Handle a CTCP TIME reply.
(defalias 'erc-ctcp-reply-TIME #[(proc nick login host to msg) "\303\304\"\203�\305\306\"\307\310\311\312\313\314\n\315	&\210)\310\207" [msg message nick string-match "^TIME\\s-+\$.*\$\\s-*$" match-string 1 erc-display-message nil notice active CTCP-TIME 110 109] 9 (#$ . 158104)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list erc-ctcp-reply-VERSION-hook default-boundp set-default (erc-ctcp-reply-VERSION)] 3)
#@30 Handle a CTCP VERSION reply.
(defalias 'erc-ctcp-reply-VERSION #[(proc nick login host to msg) "\303\304\"\203�\305\306\"\307\310\311\312\313\314\n\315	&\210)\310\207" [msg message nick string-match "^VERSION\\s-+\$.*\$\\s-*$" match-string 1 erc-display-message nil notice active CTCP-VERSION 110 109] 9 (#$ . 158590)])
#@137 Toggle the away status of the user depending on the value of AWAY-P.

If nil, set the user as away.
If non-nil, return from being away.
(defalias 'erc-process-away #[(proc away-p) "\306!\211\203a�r	q\210\n\203(�\203�\307\310\311\n\f#!\210\312\f\203%�\n\202&�
!\210\f\2033�\313 \202`�\314\212\315 q\210\203_�\316\317 \203\\�\310\320\321\322\323!\324 \"!\"\202]�\325\"\210*)\326 )\207" [proc sessionbuf erc-away-nickname erc-log-p away-p erc-nick process-buffer erc-log-aux format "erc-process-away: away-nick: %s, away-p: %s" erc-cmd-NICK current-time nil erc-active-buffer erc-send-action erc-default-target "is back (gone for %s)" erc-sec-to-time erc-time-diff erc-emacs-time-to-erc-time erc-current-time "is back" erc-update-mode-line erc-away away-time erc-public-away-p] 9 (#$ . 158924)])
#@191 Internal function.

Used when a channel names list is about to be received.  Should
be called with the current buffer set to the channel buffer.

See also `erc-channel-end-receiving-names'.
(defalias 'erc-channel-begin-receiving-names #[nil "\301\302\303\"\211\207" [erc-channel-new-member-names make-hash-table :test equal] 3 (#$ . 159742)])
#@215 Internal function.

Used to fix `erc-channel-users' after a channel names list has been
received.  Should be called with the current buffer set to the
channel buffer.

See also `erc-channel-begin-receiving-names'.
(defalias 'erc-channel-end-receiving-names #[nil "\302\303\"\210\304\211\207" [erc-channel-users erc-channel-new-member-names maphash #[(nick user) "\302	\"?\205�\303!\207" [nick erc-channel-new-member-names gethash erc-remove-channel-user] 3] nil] 3 (#$ . 160093)])
#@121 Return an alist of valid prefix character types and their representations.
Example: (operator) o => @, (voiced) v => +.
(defalias 'erc-parse-prefix #[nil "\306\307\310 \311!\205�rq\210	))\"A\206�\312\313\211\314\315\f\"\205Y�\316\317\f\"\316\320\f\"G\nG^\321\313W\203W�\234\n\234B
BT\211\202<�
++\207" [#1=#:buffer erc-server-parameters chars types str alist assoc "PREFIX" erc-server-buffer buffer-live-p "(ov)@+" nil string-match "^(\$[^)]+\$)\$.+\$$" match-string 1 2 0 i len] 5 (#$ . 160586)])
#@163 This function is for internal use only.

Update `erc-channel-users' according to NAMES-STRING.
NAMES-STRING is a string listing some of the names on the
channel.
(defalias 'erc-channel-receive-names #[(names-string) "\306\211\211\211\211\211\211\307 \310\236A\311\236A\312\313\314!\"\306\306\211\203\270�@\315\306\316\317\234\"\203\221�G\320U\203X�\306\202\230�\317\234
=\203n�\320\306O\321\322\202\230�\317\234\f=\203\204�\320\306O\322\321\202\230�\320\306O\322\211\202\230�\322\211\203\256�\323\324\n!\315#\210\325\n\211\315	%\210*A\211\2044�+\326\327!.\207" [voice op name names voice-ch op-ch nil erc-parse-prefix 111 118 delete "" split-string t rassq 0 1 on off puthash erc-downcase erc-update-current-channel-member run-hooks erc-channel-members-changed-hook prefix names-string item #1=#:--cl-dolist-temp-- ch updatep erc-channel-new-member-names] 7 (#$ . 161125)])
#@148 *This hook is called every time the variable `channel-members' changes.
The buffer where the change happened is current while this hook is called.
(custom-declare-variable 'erc-channel-members-changed-hook 'nil '(#$ . -162082) :group 'erc-hooks :type 'hook)
#@100 Updates the stored user information for the user with nickname
NICK.

See also: `erc-update-user'.
(defalias 'erc-update-user-nick #[(nick &optional new-nick host login full-name info) "\306\307 \310	!\205�r	q\210\311\312!\n\")*\f
\f&\207" [nick #1=#:buffer erc-server-users new-nick host login erc-update-user erc-server-buffer buffer-live-p gethash erc-downcase full-name info] 7 (#$ . 162347)])
#@369 Update user info for USER.  USER must be an erc-server-user
struct.  Any of NEW-NICK, HOST, LOGIN, FULL-NAME, INFO which are
non-nil and not equal to the existing values for USER are used to
replace the stored values in USER.

If, and only if, a change is made,
`erc-channel-members-changed-hook' is run for each channel for
which USER is a member, and t is returned.
(defalias 'erc-update-user #[(user &optional new-nick host login full-name info) "\306	\203\n\203%�	\307H>\204�\310\311!\210	\312H\n\232\204%�\313\314	\n\"\210\f\203P�	\307H>\2045�\310\315!\210	\316H\f\232\204P�\313	\307H>\204K�\310\317!\210	\316\fI\210
\203{�	\307H>\204`�\310\320!\210	\321H
\232\204{�\313	\307H>\204v�\310\322!\210	\321
I\210\203\251�	\307H>\204\214�\310\323!\210	\324H\232\204\251�\313	\307H>\204\243�\310\325!\210	\324I\210\203\327�	\307H>\204\272�\310\326!\210	\327H\232\204\327�\313	\307H>\204\321�\310\330!\210	\327I\210\203	\307H>\204\347�\310\331!\210	\332H\306 \211!\203!@ \333 !\203	r q\210\334\335!\210)!A\211!\204\363�*)\207" [changed user new-nick cl-struct-erc-server-user-tags host login nil 0 error "erc-server-user-nickname accessing a non-erc-server-user" 1 t erc-change-user-nickname "erc-server-user-host accessing a non-erc-server-user" 2 "erc-server-user-host storing a non-erc-server-user" "erc-server-user-login accessing a non-erc-server-user" 3 "erc-server-user-login storing a non-erc-server-user" "erc-server-user-full-name accessing a non-erc-server-user" 4 "erc-server-user-full-name storing a non-erc-server-user" "erc-server-user-info accessing a non-erc-server-user" 5 "erc-server-user-info storing a non-erc-server-user" "erc-server-user-buffers accessing a non-erc-server-user" 6 buffer-live-p run-hooks erc-channel-members-changed-hook full-name info buf #1=#:--cl-dolist-temp--] 3 (#$ . 162762)])
#@773 Updates the stored user information for the user with nickname
NICK.  `erc-update-user' is called to handle changes to nickname,
HOST, LOGIN, FULL-NAME, and INFO.  If OP or VOICE are non-nil,
they must be equal to either `on' or `off', in which case the
operator or voice status of the user in the current channel is
changed accordingly.  If UPDATE-MESSAGE-TIME is non-nil, the
last-message-time of the user in the current channel is set
to (current-time).

If ADD is non-nil, the user will be added with the specified
information if it is not already present in the user or channel
lists.

If, and only if, changes are made, or the user is added,
`erc-channel-members-updated-hook' is run, and t is returned.

See also: `erc-update-user' and `erc-update-channel-member'.
(defalias 'erc-update-current-channel-member #[(nick new-nick &optional add op voice host login full-name info update-message-time) "\306\211\n\307\310\n!\")\211\205�\fA\f\203�\f@\2029�\n\311 )\312)!\2058�r)q\210\307\310\n!*\")*+
\203,\203M�\313\314\315+
#!\210-\203\235�
\316H.>\204_�\317\320!\210
\321H-=\204\235�\322
/-\323=\203x�\322\202\205�-\324=\203\203�\306\202\205�-0/\316H.>\204\225�\317\325!\210/\3210I\210*1\203\355�
\316H.>\204\257�\317\326!\210
\327H1=\204\355�\322
21\323=\203\310�\322\202\325�1\324=\203\323�\306\202\325�132\316H.>\204\345�\317\330!\2102\3273I\210*4\203
\316H.>\204\377�\317\331!\210
\332\333 I\210\334+56789&\202\313:\203\313+\204Y\335\336\n6789pC&+\n++\311 ;\312;!\205Sr;q\210\337\310\n!+*#))\210*\202\200+\316H<>\204g\317\340!\210+\341p+\316H<>\204y\317\342!\210+\341HBI\210\343\344-\323=\203\215\322\202\232-\324=\203\230\306\202\232-\3451\323=\203\246\322\202\2631\324=\203\261\306\202\2631\3464\205\273\333 &\337\310\n!+
B#\210\322\203\327	\204\327\347\350!\210\206\341	\206\341:-\207" [changed user-changed nick erc-channel-users channel-data cuser nil gethash erc-downcase erc-server-buffer buffer-live-p erc-log-aux format "update-member: user = %S, cuser = %S" 0 error "erc-channel-user-op accessing a non-erc-channel-user" 1 t on off "erc-channel-user-op storing a non-erc-channel-user" "erc-channel-user-voice accessing a non-erc-channel-user" 2 "erc-channel-user-voice storing a non-erc-channel-user" "erc-channel-user-last-message-time storing a non-erc-channel-user" 3 current-time erc-update-user vector erc-server-user puthash "erc-server-user-buffers storing a non-erc-server-user" 6 "erc-server-user-buffers accessing a non-erc-server-user" make-erc-channel-user :op :voice :last-message-time run-hooks erc-channel-members-changed-hook #1=#:buffer erc-server-users user erc-log-p op cl-struct-erc-channel-user-tags #2=#:--cl-x-- #3=#:--cl-store-- voice #4=#:--cl-x-- #5=#:--cl-store-- update-message-time new-nick host login full-name info add #6=#:buffer cl-struct-erc-server-user-tags] 9 (#$ . 164635)])
#@138 Updates user and channel information for the user with
nickname NICK in channel CHANNEL.

See also: `erc-update-current-channel-member'.
(defalias 'erc-update-channel-member #[(channel nick new-nick &optional add op voice host login full-name info update-message-time) "\306\307	!\203�	\202'�\n\206�\310!\205�	\205&�\f\205&�\311	\f\")\312
!\205J�r
q\210\313\f
&\n)+\207" [channel #1=#:target #2=#:process erc-server-process #3=#:proc #4=#:buf nil bufferp processp erc-get-buffer buffer-live-p erc-update-current-channel-member nick new-nick add op voice host login full-name info update-message-time] 11 (#$ . 167585)])
#@92 Remove NICK from current channel membership list.
Runs `erc-channel-members-changed-hook'.
(defalias 'erc-remove-current-channel-member #[(nick) "\303\304!	\")\211\205�\305!\210\306\307!)\207" [nick erc-channel-users channel-data gethash erc-downcase erc-remove-channel-user run-hooks erc-channel-members-changed-hook] 4 (#$ . 168239)])
#@92 Remove NICK from CHANNEL's membership list.

See also `erc-remove-current-channel-member'.
(defalias 'erc-remove-channel-member #[(channel nick) "\306\307	!\203�	\202'�\n\206�\310!\205�	\205&�\f\205&�\311	\f\")\312
!\2057�r
q\210\313\f!)+\207" [channel #1=#:target #2=#:process erc-server-process #3=#:proc #4=#:buf nil bufferp processp erc-get-buffer buffer-live-p erc-remove-current-channel-member nick] 3 (#$ . 168588)])
#@159 Find a buffer for CHANNEL and set the TOPIC for it.

If optional MODIFY is 'append or 'prepend, then append or prepend the
TOPIC string to the current topic.
(defalias 'erc-update-channel-topic #[(channel topic &optional modify) "\306\307	!\203�	\202'�\n\206�\310!\205�	\205&�\f\205&�\311	\f\")\312
!\205\\�r
q\210\313=\203C�P\202X�\314=\203T�P\202X�\315p!)+\207" [channel #1=#:target #2=#:process erc-server-process #3=#:proc #4=#:buf nil bufferp processp erc-get-buffer buffer-live-p append prepend erc-update-mode-line-buffer modify erc-channel-topic topic] 3 (#$ . 169030)])
#@52 Set the modes for the TGT provided as MODE-STRING.
(defalias 'erc-set-modes #[(tgt mode-string) "\306!\211@	A@\307	8\310
!\205y�\205�\311
\"\211\205x�rq\210\n\312\211\f\203s�\f@@\f@A@\307\f@8\313\314\"\203[�\315
#\210\202k�\313\316\"\203k�\317
#\210+\fA\211\2047�\320!)),\207" [mode-string modes add-modes remove-modes arg-modes tgt erc-parse-modes 2 erc-channel-p erc-get-buffer nil string-match "^[Ll]" erc-update-channel-limit "^[Kk]" erc-update-channel-key erc-update-mode-line-buffer erc-server-process buf erc-channel-modes erc-channel-user-limit erc-channel-key arg onoff mode] 5 (#$ . 169645)])
#@65 Sort LIST-OF-STRINGS in lexicographic order.

Side-effect free.
(defalias 'erc-sort-strings #[(list-of-strings) "\301\302!\303\"\207" [list-of-strings sort copy-sequence string<] 3 (#$ . 170295)])
#@318 Parse MODE-STRING into a list.

Returns a list of three elements:

(ADD-MODES REMOVE-MODES ARG-MODES).

The add-modes and remove-modes are lists of single-character strings
for modes without parameters to add and remove respectively.  The
arg-modes is a list of triples of the form:

(MODE-CHAR ON/OFF ARGUMENT).
(defalias 'erc-parse-modes #[(mode-string) "\306\307\"\205\341�\310\311\312\313\"\"\312\314\"\315\211\211\211\316\306\317\"\203:�\312\313\"
B\312\314\"\202 �
\237\203\322�@\320\230\203O�\316\202\311�@\321\230\203\\�\315\202\311�\306\322@\"\203\205�@	\203p�\323\202q�\324
\205w�
@E\nB
\203\311�
A\202\311�\306\325@\"\203\266�@	\203\231�\323\202\232�\324	\205\244�
\205\244�
@E\nB	\203\311�
\203\311�
A\202\311�	\203\303�@\fB\202\311�@BA\211\204B�\f\237\237\n\237\f\nE.\207" [mode-string add-p arg-modes remove-modes add-modes args string-match "^\\s-*\$\\S-+\$\$\\s-.*$\\|$\$" mapcar char-to-string match-string 1 2 nil t "^\\s-*\$\\S-+\$\$\\s-+.*$\\|$\$" "+" "-" "^[ovbOVB]" on off "^[LlKk]" args-str chars] 8 (#$ . 170500)])
#@158 Update the mode information for TGT, provided as MODE-STRING.
Optional arguments: NICK, HOST and LOGIN - the attributes of the
person who changed the modes.
(defalias 'erc-update-modes #[(tgt mode-string &optional nick host login) "\306!\211@	A@\307	8\310
!\203\320�\205�\311
\"\211\205\314�q\210\312\313!\2042�\314\203E�\315@\"A\211\2046�\n\203W�\n@B\nA\211\204I�\316!\f\203\310�\f@@\f@A@\307\f@8\317\320\"\203\207�\321
\211\314%\210\202\301�\317\322\"\203\236�\321
\211\314\211&\210\202\301�\317\323\"\203\261�\324
#\210\202\301�\317\325\"\203\301�\326
#\210\fA+\202]�\327!)\202\321�\314,\207" [mode-string modes add-modes remove-modes arg-modes tgt erc-parse-modes 2 erc-channel-p erc-get-buffer boundp erc-channel-modes nil delete erc-sort-strings string-match "^[oO]" erc-update-channel-member "^[Vv]" "^[Ll]" erc-update-channel-limit "^[Kk]" erc-update-channel-key erc-update-mode-line erc-server-process buf arg onoff mode] 8 (#$ . 171617)])
#@35 Update CHANNEL's user limit to N.
(defalias 'erc-update-channel-limit #[(channel onoff n) "\306=\203�	;\205_�\307\310	\"\205_�\n\311\312!\203 �\202<�\f\206+�\313
!\205+�
\205;�\205;�\314\")\315!\205^�rq\210\306=\203Y�\316	!\211\202]�\311\211)+\207" [onoff n channel #1=#:target #2=#:process erc-server-process on string-match "^[0-9]+$" nil bufferp processp erc-get-buffer buffer-live-p string-to-number #3=#:proc #4=#:buf erc-channel-user-limit] 3 (#$ . 172639)])
#@69 Update CHANNEL's key to KEY if ONOFF is 'on or to nil if it's 'off.
(defalias 'erc-update-channel-key #[(channel onoff key) "\306\307	!\203�	\202'�\n\206�\310!\205�	\205&�\f\205&�\311	\f\")\312
!\205F�r
q\210\f\313=\203A�
\211\202E�\306\211)+\207" [channel #1=#:target #2=#:process erc-server-process #3=#:proc #4=#:buf nil bufferp processp erc-get-buffer buffer-live-p on onoff key erc-channel-key] 3 (#$ . 173135)])
#@426 Handle changes in any user's status.

So far, only nick change is handled.

Generally, the TYPE argument is a symbol describing the change type, NLH is
a list containing the original nickname, login name and hostname for the user,
and L is a list containing additional TYPE-specific arguments.

So far the following TYPE/L pairs are supported:

Event			TYPE		       L

nickname change	       'nick		    (NEW-NICK)
(defalias 'erc-handle-user-status-change #[(type nlh &optional l) "\203
�\304\305\306	\n$!\210	\307\232\203�\310\207\311\207" [erc-log-p type nlh l erc-log-aux format "user-change: type: %S  nlh: %S  l: %S" nick t nil] 6 (#$ . 173576)])
#@90 Highlight notice message S and return it.
See also variable `erc-notice-highlight-type'.
(defalias 'erc-highlight-notice #[(s) "\303=\203�\304\305	G\306\307\n%\210\n\207\310=\203\"�\304\305\nG\306\307\n%\210\n\207\n\207" [erc-notice-highlight-type erc-notice-prefix s prefix erc-put-text-property 0 face erc-notice-face all] 6 (#$ . 174247)])
#@29 Notify the user of MESSAGE.
(defalias 'erc-make-notice #[(message) "\203	�\301\303	\"\210\304\n	P!\207" [erc-minibuffer-notice message erc-notice-prefix "%s" erc-highlight-notice] 3 (#$ . 174599)])
#@42 Highlight error message S and return it.
(defalias 'erc-highlight-error #[(s) "\301\302G\303\304%\210\207" [s erc-put-text-property 0 face erc-error-face] 6 (#$ . 174804)])
#@453 Set text-property for an object (usually a string).
START and END define the characters covered.
PROPERTY is the text-property set, usually the symbol `face'.
VALUE is the value for the text-property, usually a face symbol such as
the face `bold' or `erc-pal-face'.
OBJECT is a string which will be modified and returned.
OBJECT is modified without being copied first.

You can redefine or `defadvice' this function in order to add
EmacsSpeak support.
(defalias 'erc-put-text-property #[(start end property value &optional object) "\305	\n\f%\207" [start end property value object put-text-property] 6 (#$ . 174987)])
#@71 Return THING if THING is a list, or a list with THING as its element.
(defalias 'erc-list #[(thing) "<\203�\207C\207" [thing] 1 (#$ . 175613)])
#@102 Parse STRING as a user specification (nick!login@host).

Return a list of the three separate tokens.
(defalias 'erc-parse-user #[(string) "\301\302\"\203�\303\304\"\303\305\"\303\306\"E\207\301\307\"\203'�\303\304\"\310\303\305\"E\207\310\211E\207" [string string-match "^\$[^!\n]*\$!\$[^@\n]*\$@\$.*\$$" match-string 1 2 3 "^\$[^!\n]*\$!\$.*\$$" ""] 5 (#$ . 175768)])
#@91 Return the nick corresponding to a user specification STRING.

See also `erc-parse-user'.
(defalias 'erc-extract-nick #[(string) "\301!@\207" [string erc-parse-user] 2 (#$ . 176162)])
#@203 Set text-properties for OBJECT.

START and END describe positions in OBJECT.
If VALUE-LIST is nil, set each property in PROPERTIES to t, else set
each property to the corresponding value in VALUE-LIST.
(defalias 'erc-put-text-properties #[(start end properties &optional object value-list) "\204	�\305\306	\"	\205$�\205$�\307\n	\211A@\211A@\f%\210\202	�\207" [value-list properties start end object mapcar #[(x) "\300\207" [t] 1] erc-put-text-property] 6 (#$ . 176354)])
#@124 Return the value of `point' at the beginning of the input line.

Specifically, return the position of `erc-insert-marker'.
(defalias 'erc-beg-of-input-line #[nil "\301\300!\203\f�\302!\204�\303\304!\210\305!\207" [erc-insert-marker boundp markerp error "erc-insert-marker has no value, please report a bug" marker-position] 2 (#$ . 176839)])
#@59 Return the value of `point' at the end of the input line.
(defalias 'erc-end-of-input-line #[nil "d\207" [] 1 (#$ . 177190)])
#@40 Parse current line and send it to IRC.
(defalias 'erc-send-current-line #[nil "\214~\210`\303 W\203�\304\305!\202>�\306\307 p\310 \204(�\311	!\204(�\304\312!\202=�\313p!\210\303 \314 |\210\315\216\316	!\210)\317\320	\"+)\207" [old-buf str inhibit-read-only erc-beg-of-input-line erc-error "Point is not in the input area" t erc-user-input erc-server-buffer-live-p erc-command-no-process-p "ERC: No process running" erc-set-active-buffer erc-end-of-input-line ((byte-code "\304!\203-�rq\210\214~\210db\210\305	!\203�\306	!`\307\223\210\n`\307\223\210\310 \311 \210\312!\210+\307\207" [old-buf erc-server-process erc-insert-marker buffer-modified buffer-live-p processp process-mark nil buffer-modified-p erc-display-prompt set-buffer-modified-p] 3)) erc-send-input run-hook-with-args erc-send-completed-hook] 3 (#$ . 177322) nil])
#@53 Return the input of the user in the current buffer.
(defalias 'erc-user-input #[nil "\301\302 \"\207" [erc-input-marker buffer-substring-no-properties erc-end-of-input-line] 3 (#$ . 178167)])
#@55 Regular expression used for matching commands in ERC.
(defvar erc-command-regexp "^/\$[A-Za-z']+\$\$\\s-+.*\\|\\s-*\$$" (#$ . 178366))
#@158 Treat INPUT as typed in by the user. It is assumed that the input
and the prompt is already deleted.
This returns non-nil only if we actually send anything.
(defalias 'erc-send-input #[(input) "\203\n�	\306\230\202�\307\310	\"\203�\n\203�\311\312!\210\313 \210\314\207	\315\315\316\317	\"\210
\205T�\307\320\f\"\204<�\307\f\"\204G�\321\322\323\f\320\"\"\210\202S�\324\f!\210\325\f\320P\315\314#\210\315*\207" [erc-send-whitespace-lines input erc-warn-about-blank-lines erc-insert-this str erc-send-this "" string-match "\\`[ 	
\f\n]*\\'" message "Blank line - ignoring..." beep nil t run-hook-with-args erc-send-pre-hook "\n" mapc #[(line) "\302\303\203\f�\304	!\206�	C\"\207" [erc-flood-protect line mapc #[(line) "\302!\210\303\304P	?\305#\207" [line erc-flood-protect erc-display-msg erc-process-input-line "\n" t] 4] erc-split-line] 4] split-string erc-display-command erc-process-input-line erc-command-regexp] 5 (#$ . 178512)])
(defalias 'erc-display-command #[(line) "\205H�`\n\204�\306\307\211\310 \310 \205�\311$\210`\fc\210\312`\313\311$\210\314c\210)\315
!\2034�\316
!`\307\223\210`\307\223\210\212\214	`}\210\317\320!\210\317\321!+\207" [erc-insert-this insert-position erc-hide-prompt beg line erc-server-process erc-display-prompt nil erc-command-indicator erc-command-indicator-face erc-put-text-property face "\n" processp process-mark run-hooks erc-send-modify-hook erc-send-post-hook erc-insert-marker] 5])
#@86 Display LINE as a message of the user to the current target at the
current position.
(defalias 'erc-display-msg #[(line) "\205:�`\306 c\210`c\210\307\n`\310\311$\210)\312c\210\313\f!\203'�\314\f!`\315\223\210
`\315\223\210\212\214	`}\210\316\317!\210\316\320!+\207" [erc-insert-this insert-position beg line erc-server-process erc-insert-marker erc-format-my-nick erc-put-text-property face erc-input-face "\n" processp process-mark nil run-hooks erc-send-modify-hook erc-send-post-hook] 5 (#$ . 179964)])
#@70 Return the ERC command symbol for COMMAND if it exists and is bound.
(defalias 'erc-command-symbol #[(command) "\302\303\304\226\"!\305	!\205�	)\207" [command cmd intern-soft format "erc-cmd-%s" fboundp] 4 (#$ . 180480)])
#@180 Extract command and args from the input LINE.
If no command was given, return nil.  If command matches, return a
list of the form: (command args) where both elements are strings.
(defalias 'erc-extract-command-from-line #[(line) "\306	\"\205P�\307\310\311	\"!\211\205 �\nK9\205 �\nK\211\204�\312\n\206&�\313\n\203J�\f\314N\203;�\315\316\310\317	\"\"\202K�\320\321\322\323\310\317	\"!\324\"\"\202K�	\f
,D\207" [erc-command-regexp line cmd canon-defun cmd-fun arg string-match erc-command-symbol match-string 1 nil erc-cmd-default do-not-parse-args format "%s" 2 delete "" split-string erc-trim-string " "] 8 (#$ . 180712)])
#@168 Split STRING, containing multiple lines and return them in a list.
Do it only for STRING as the complete input, do not carry unfinished
strings over to the next call.
(defalias 'erc-split-multiline-safe #[(string) "\306\307\310\203<�\311\312	#	\306O\211\203&�	
O\nB\307\225\2028�\fG\307V\2036�\f\nB\306\2028�\306*\202�\n\237+\207" [doit i0 l string s i nil 0 t string-match "
?\n"] 5 (#$ . 181349)])
#@35 Set the current nickname to NICK.
(defalias 'erc-set-current-nick #[(nick) "r\302\303 !\203
�\303 \202�pq\210\211)\207" [nick erc-server-current-nick buffer-live-p erc-server-buffer] 2 (#$ . 181770)])
#@30 Return the current nickname.
(defalias 'erc-current-nick #[nil "r\301\302 !\203
�\302 \202�pq\210)\207" [erc-server-current-nick buffer-live-p erc-server-buffer] 2 (#$ . 181980)])
#@49 Return non-nil if NICK is the current nickname.
(defalias 'erc-current-nick-p #[(nick) "\301\302 \"\207" [nick erc-nick-equal-p erc-current-nick] 3 (#$ . 182168)])
#@146 Return non-nil if NICK1 and NICK2 are the same.

This matches strings according to the IRC protocol's case convention.

See also `erc-downcase'.
(defalias 'erc-nick-equal-p #[(nick1 nick2) "\302!\302	!\230\207" [nick1 nick2 erc-downcase] 3 (#$ . 182340)])
#@75 Return the current default target (as a character string) or nil if none.
(defalias 'erc-default-target #[nil "@\211\204�\302\202�	<\203�	A\202�	)\207" [erc-default-recipients tgt nil] 2 (#$ . 182603)])
#@42 Add CHANNEL to the default channel list.
(defalias 'erc-add-default-channel #[(channel) "@A	\227\nB\211+\207" [erc-default-recipients channel chl d2 d1] 3 (#$ . 182818)])
#@47 Delete CHANNEL from the default channel list.
(defalias 'erc-delete-default-channel #[(channel &optional buffer) "pr	\203�\304	!\203�	\202�pq\210\305\n\227\"\211*\207" [ob buffer channel erc-default-recipients bufferp delete] 3 (#$ . 183002)])
#@108 Add QUERY'd NICKNAME to the default channel list.

The previous default target of QUERY type gets removed.
(defalias 'erc-add-query #[(nickname) "@A\305	\227B\211<\203�\f@\305=\203�\nB\211\202$�\nB\211+\207" [erc-default-recipients nickname qt d2 d1 QUERY] 5 (#$ . 183259)])
#@45 Delete the topmost target if it is a QUERY.
(defalias 'erc-delete-query #[nil "@A\211<\203�\n@\303=\203�	\211\202�\304\305!*\207" [erc-default-recipients d2 d1 QUERY error "Current target is not a QUERY"] 3 (#$ . 183551)])
#@219 Return non-nil if SPEC matches something in `erc-ignore-list'.

Takes a full SPEC of a user in the form "nick!login@host", and
matches against all the regexp's in `erc-ignore-list'.  If any
match, returns that regexp.
(defalias 'erc-ignored-user-p #[(spec) "\300\301\215\207" [found (byte-code "\305 \306!\205�rq\210	))\307\211\203-�@\310\n\f\"\203&�\311\312\n\"\210A\211\204�*\307\207" [#1=#:buffer erc-ignore-list ignored #2=#:--cl-dolist-temp-- spec erc-server-buffer buffer-live-p nil string-match throw found] 4)] 2 (#$ . 183789)])
#@192 Return non-nil if MSG matches something in `erc-ignore-reply-list'.

Takes a message MSG to a channel and returns non-nil if the addressed
user matches any regexp in `erc-ignore-reply-list'.
(defalias 'erc-ignored-reply-p #[(msg tgt proc) "\306!\211\205o�\n\f\307!\203�\2024�
\206#�\310!\205#�\2053�\2053�\311\")\312!\205n�rq\210	\313 \312!\205^�rq\210\314\315!\")*\211\205m�\316\317!\"*+)\207" [msg target-nick tgt #1=#:target proc #2=#:process erc-message-target bufferp processp erc-get-buffer buffer-live-p erc-server-buffer gethash erc-downcase erc-list-match erc-user-spec erc-server-process #3=#:proc #4=#:buf nick #5=#:buffer erc-server-users user erc-ignore-reply-list] 5 (#$ . 184344)])
#@104 Return the addressed target in MSG.

The addressed target is the string before the first colon in MSG.
(defalias 'erc-message-target #[(msg) "\301\302\"\205�\303\304\"\207" [msg string-match "^\$[^: \n]*\$:" match-string 1] 3 (#$ . 185091)])
#@50 Create a nick!user@host spec from a user struct.
(defalias 'erc-user-spec #[(user) "\305H	>\204\f�\306\307!\210\310H\305H	>\204�\306\311!\210\312H\305H	>\204*�\306\313!\210\314H\211\2038�\f\2029�\315\316\n\203B�\n\202C�\315\317\203L�\202M�\315\260+\207" [user cl-struct-erc-server-user-tags login host nick 0 error "erc-server-user-nickname accessing a non-erc-server-user" 1 "erc-server-user-host accessing a non-erc-server-user" 2 "erc-server-user-login accessing a non-erc-server-user" 3 "" "!" "@"] 6 (#$ . 185344)])
#@50 Return non-nil if any regexp in LST matches STR.
(defalias 'erc-list-match #[(lst str) "\301\302\303\">\207" [lst nil mapcar #[(regexp) "\302	\"?\207" [regexp str string-match] 3]] 4 (#$ . 185884)])
#@161 Toggle automatic CTCP replies (like VERSION and PING).

If ARG is positive, turns CTCP replies on.

If ARG is non-nil and not positive, turns CTCP replies off.
(defalias 'erc-toggle-ctcp-autoresponse #[(&optional arg) "\247\203�\302V\203�\303\202�\203�\304\202�	?\305\306	\203&�\307\202'�\310\"\207" [arg erc-disable-ctcp-replies 0 t nil message "ERC CTCP replies are %s" "OFF" "ON"] 3 (#$ . 186092) "P"])
#@242 Toggle use of flood control on sent messages.

If ARG is positive, use flood control.
If ARG is non-nil and not positive, do not use flood control.

See `erc-server-flood-margin' for an explanation of the available
flood control parameters.
(defalias 'erc-toggle-flood-control #[(&optional arg) "\247\203�\302V\203�\303\202�\203�\304\202�	?\305\306	\203&�\307\202'�\310\"\207" [arg erc-flood-protect 0 t nil message "ERC flood control is %s" "ON" "OFF"] 3 (#$ . 186516) "P"])
#@161 Turn on the invite only mode (+i) for the current channel.

If ARG is non-nil, turn this mode off (-i).

This command is sent even if excess flood is detected.
(defalias 'erc-invite-only-mode #[(&optional arg) "\303p!\210\304 \305\211\203�\306	!\204�\307\310\311p\312$\2023�\n\203+�\313\314	\315QC\305\"\2023�\313\314	\316QC\305\"*\207" [erc-force-send tgt arg erc-set-active-buffer erc-default-target t erc-channel-p erc-display-message nil error no-target erc-load-irc-script-lines "/mode " " -i" " +i"] 6 (#$ . 187010) "P"])
#@355 Read a key sequence and call the corresponding channel mode function.
After doing C-c C-o, type in a channel mode letter.

C-g means quit.
RET lets you type more than one mode at a time.
If "l" is pressed, `erc-set-channel-limit' gets called.
If "k" is pressed, `erc-set-channel-key' gets called.
Anything else will be sent to `erc-toggle-channel-mode'.
(defalias 'erc-get-channel-mode-from-keypress #[(key) "\301\232\203	�\302 \207\303\232\203�\304 \207\305\232\203�\306\307!\207\310\232\203&�\306\311!\207\312!\207" [key "" keyboard-quit "
" erc-insert-mode-command "l" call-interactively erc-set-channel-limit "k" erc-set-channel-key erc-toggle-channel-mode] 2 (#$ . 187549) "kChannel mode (RET to set more than one): "])
#@112 Toggle channel MODE.

If CHANNEL is non-nil, toggle MODE for that channel, otherwise use
`erc-default-target'.
(defalias 'erc-toggle-channel-mode #[(mode &optional channel) "\306p!\210\206\n�\307 \310\211\203�\311\n!\204 �\312\313\314\315\316$\202Y�\f\235\203A�
\2032�\317\320\321\n#!\210\322\323\"\210\324\320\325\n#!\202Y�
\203M�\317\320\326\n#!\210\322\327\"\210\324\320\330\n#!*\207" [channel erc-force-send tgt mode erc-channel-modes erc-log-p erc-set-active-buffer erc-default-target t erc-channel-p erc-display-message nil error active no-target erc-log-aux format "%s: Toggle mode %s OFF" message "Toggle channel mode %s OFF" erc-server-send "MODE %s -%s" "%s: Toggle channel mode %s ON" "Toggle channel mode %s ON" "MODE %s +%s"] 6 (#$ . 188289) "P"])
#@55 Insert the line "/mode <current target> " at `point'.
(defalias 'erc-insert-mode-command #[nil "\301 \211\203�\302\303Qc\202�\304\305\306p\307$)\207" [tgt erc-default-target "/mode " " " erc-display-message nil error no-target] 6 (#$ . 189067) nil])
#@47 Run "/names #channel" in the current channel.
(defalias 'erc-channel-names #[nil "\301p!\210\302 \211\203�\303\304PC!\202�\305\306\307p\310$)\207" [tgt erc-set-active-buffer erc-default-target erc-load-irc-script-lines "/names " erc-display-message nil error no-target] 6 (#$ . 189327) nil])
#@63 Clears the region (START,END) in OBJECT from all colors, etc.
(defalias 'erc-remove-text-properties-region #[(start end &optional object) "\212\304\305	\n\306$*\207" [inhibit-read-only start end object t set-text-properties nil] 5 (#$ . 189629) "r"])
(put 'erc-remove-text-properties-region 'disabled t)
#@181 Search for a FILE in the filesystem.
First the `default-directory' is searched for FILE, then any directories
specified in the list PATH.

If FILE is found, return the path to it.
(defalias 'erc-find-file #[(file &optional path) "\303	!\203\f�	\202(�\n\203#�\304\n@\"\303	!\204#�\nA\211\204�\n\205(�	)\207" [file filepath path file-readable-p expand-file-name] 4 (#$ . 189942)])
#@63 Select an ERC startup file.
See also `erc-startup-file-list'.
(defalias 'erc-select-startup-file #[nil "\300\301\215\207" [found (byte-code "\303\211\203!�\n@\304	!\305	!\203�\306\307	\"\210\nA\211\204�*\303\207" [erc-startup-file-list f #1=#:--cl-dolist-temp-- nil convert-standard-filename file-readable-p throw found] 4)] 2 (#$ . 190333)])
#@71 Search for FILE in `default-directory', and any in `erc-script-path'.
(defalias 'erc-find-script-file #[(file) "\302	\"\207" [file erc-script-path erc-find-file] 3 (#$ . 190690)])
#@219 Load a script from FILE.

FILE must be the full name, it is not searched in the
`erc-script-path'.  If the filename ends with `.el', then load it
as an Emacs Lisp program.  Otherwise, treat it as a regular IRC
script.
(defalias 'erc-load-script #[(file) "\203\n�\302\303	P!\210\304\305	\"\203�\306	!\207\307	!\207" [erc-log-p file erc-log-aux "erc-load-script: " string-match "\\.el$" load erc-load-irc-script] 3 (#$ . 190878)])
#@391 Process an IRC script LINE.

Does script-specific substitutions (script arguments, current nick,
server, etc.) in LINE and returns it.

Substitutions are: %C and %c = current target (channel or nick),
%S %s = current server, %N %n = my current nick, and %x is x verbatim,
where x is any other character;
$* = the entire argument string, $1 = the first argument, $2 = the second,
and so on.
(defalias 'erc-process-script-line #[(line &optional args) "\204�\306\307\310	\311\nQ\312 \313\305!\205�
\"\314 #\306$\315\211%&\316'\f\2041�\306\"\2049�\306\"#\204A�\306#%\317\320%\"\203`�\321\322%\"&B&\321\323%\"%\202D�&\237\211&G'\317(\"%%\203o(\316%O)\306\211*+(%\315O,\317\324	P,\"\203\247�\321\322,\"*,\322\225\315O,\202\300�\317\324\nP,\"\203\300�\321\322,\"*,\322\225\315O,$)P$*\306\230\203\322�\306\202W\317\325*\"\203\336�\202W\317\326*\"\203
\327\321\322*\"!-\330\331-\211\250#\210-'X\203-S&8\202	\306)\202W\317\332*\"\203\f\202W\317\333*\"\203&\"\202W\317\334*\"\2033#\202W\317\335*\"\203C\321\322*\"\202W.\203P\336\337\340*\"!\210\330\341*\"\210\306+,(\317(\"%$+P$,\202p�$(P\211$.\n\207" [args arg-esc-regexp percent-regexp esc-regexp tgt erc-session-server "" "\$\\$\\(\\*\\|[1-9][0-9]*\$\\)\$[^0-9]\\|$\$" "\$%.\$" "\\|" erc-default-target boundp erc-current-nick nil 0 string-match "^\\s-*\$\\S-+\$\$\\s-+.*$\\|$\$" match-string 1 2 "^" "^\\$\\*$" "^\\$\$[0-9]+\$$" string-to-number message "n = %S, integerp(n)=%S" "^%[Cc]$" "^%[Ss]$" "^%[Nn]$" "^%\$.\$$" erc-log-aux format "BUG in erc-process-script-line: bad escape sequence: %S\n" "BUG IN ERC: esc=%S" server nick res tmp arg-list arg-num line hd esc subst tail n erc-log-p] 5 (#$ . 191316)])
#@31 Load an IRC script from FILE.
(defalias 'erc-load-irc-script #[(file &optional force) "\203\n�\305\306	P!\210\307\310!r\nq\210\311\216\312	!\210\313 +\314\315!\f\")\207" [erc-log-p file #1=#:temp-buffer str force erc-log-aux "erc-load-script: " generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents buffer-string erc-load-irc-script-lines erc-split-multiline-safe] 3 (#$ . 193096)])
#@183 Load IRC script LINES (a list of strings).

If optional NOEXPAND is non-nil, do not expand script-specific
sequences, process the lines verbatim.  Use this for multiline
user input.
(defalias 'erc-load-irc-script-lines #[(lines &optional force noexpand) "p`\306\307 \206
�\310 \311\304!\205�\f\211\203&�\312\313
\"\203&�
\314\315O\316\317G\320\321%\210\205\205�@\203C�\322\323\nP!\210\312\324\n\"\204{�\203S�\n\202W�\325\n
\"\326\"\203z�\203z�\316\317G\320\327%\210\330P\"\210)A\211\2044�\315-\207" [cb pnt s sp erc-script-args args "" erc-command-indicator erc-prompt boundp string-match "^ " 1 nil erc-put-text-property 0 face erc-command-indicator-face erc-log-aux "erc-load-script: CMD: " "^\\s-*$" erc-process-script-line erc-process-input-line erc-input-face erc-display-line lines erc-log-p noexpand line force erc-script-echo] 7 (#$ . 193567)])
#@48 Perform user authentication at the IRC server.
(defalias 'erc-login #[nil "\203�\306\307\310\311 \312 	\206�\313 \n&!\210\f\203%�\314\307\315\f\"!\210\202)�\316\317!\210\314\307\320\311 \"!\210\314\307\321
\203=�\202?�\312 \322\323%!\210\324 \207" [erc-log-p erc-system-name erc-session-server erc-session-user-full-name erc-session-password erc-anonymous-login erc-log-aux format "login: nick: %s, user: %s %s %s :%s" erc-current-nick user-login-name system-name erc-server-send "PASS %s" message "Logging in without password" "NICK %s" "USER %s %s %s :%s" "0" "*" erc-update-mode-line erc-email-userid] 8 (#$ . 194464)])
#@189 Determine the connection and authentication parameters.
Sets the buffer local variables:

- `erc-session-server'
- `erc-session-port'
- `erc-session-full-name'
- `erc-server-current-nick'
(defalias 'erc-determine-parameters #[(&optional server port nick name) "\306!\n\206	�\307
!\n\310\311!!\207" [server erc-session-server port erc-default-port erc-session-port name erc-compute-server erc-compute-full-name erc-set-current-nick erc-compute-nick erc-session-user-full-name nick] 3 (#$ . 195102)])
#@279 Return an IRC server name.

This tries a number of increasingly more default methods until a
non-nil value is found.

- SERVER (the argument passed to this function)
- The `erc-server' option
- The value of the IRCSERVER environment variable
- The `erc-default-server' variable
(defalias 'erc-compute-server #[(&optional server) "\206�	\206�\303\304!\206�\n\207" [server erc-server erc-default-server getenv "IRCSERVER"] 2 (#$ . 195615)])
#@283 Return user's IRC nick.

This tries a number of increasingly more default methods until a
non-nil value is found.

- NICK (the argument passed to this function)
- The `erc-nick' option
- The value of the IRCNICK environment variable
- The result from the `user-login-name' function
(defalias 'erc-compute-nick #[(&optional nick) "\206�	:\203�	@\202�	\206�\302\303!\206�\304 \207" [nick erc-nick getenv "IRCNICK" user-login-name] 2 (#$ . 196065)])
#@298 Return user's full name.

This tries a number of increasingly more default methods until a
non-nil value is found.

- FULL-NAME (the argument passed to this function)
- The `erc-user-full-name' option
- The value of the IRCNAME environment variable
- The result from the `user-full-name' function
(defalias 'erc-compute-full-name #[(&optional full-name) "\206�	\206�\303\304!\206�\n\203�\305\207\306 \207" [full-name erc-user-full-name erc-anonymous-login getenv "IRCNAME" "unknown" user-full-name] 2 (#$ . 196525)])
#@229 Return a port for an IRC server.

This tries a number of increasingly more default methods until a
non-nil value is found.

- PORT (the argument passed to this function)
- The `erc-port' option
- The `erc-default-port' variable
(defalias 'erc-compute-port #[(&optional port) "\206	�	\206	�\n\207" [port erc-port erc-default-port] 1 (#$ . 197054)])
#@143 Convert the long number represented by STRING into an Emacs format.
Returns a list of the form (HIGH LOW), compatible with Emacs time format.
(defalias 'erc-string-to-emacs-time #[(string) "\302\303P!\304	\305\245!\304\306	\305\"!)D\207" [string n string-to-number ".0" truncate 65536 mod] 5 (#$ . 197410)])
#@60 Convert Emacs TIME to a number of seconds since the epoch.
(defalias 'erc-emacs-time-to-erc-time #[(time) "\205\f�@\301_A@\\\207" [time 65536.0] 2 (#$ . 197726)])
#@107 Return the `current-time' as a number of seconds since the epoch.

See also `erc-emacs-time-to-erc-time'.
(defalias 'erc-current-time #[nil "\300\301 !\207" [erc-emacs-time-to-erc-time current-time] 2 (#$ . 197899)])
#@58 Return the time difference in seconds between T1 and T2.
(defalias 'erc-time-diff #[(t1 t2) "\302	Z!\207" [t2 t1 abs] 3 (#$ . 198122)])
#@24 Check whether T1 > T2.
(defalias 'erc-time-gt #[(t1 t2) "	V\207" [t1 t2] 2 (#$ . 198265)])
#@39 Convert NS to a time string HH:MM.SS.
(defalias 'erc-sec-to-time #[(ns) "\301!\302\303\304\245\304\246\305\245\305\246$\207" [ns truncate format "%02d:%02d.%02d" 3600 60] 6 (#$ . 198363)])
#@53 Convert a number of SECONDS into an English phrase.
(defalias 'erc-seconds-to-string #[(seconds) "\306\211\211\211\211
\307\245
\307\246\211\310\245
\310\246\211\311\245
\311\246\f\312V\2032�\313\f\n
\257\202P�\312V\203@�\314\n
F\202P�\n\312V\203M�\315\n
E\202P�\316
D\317\320	\"\321\322\"\203l�\323\324\325\326\"\326\211\224%\202V�-\207" [output format-args minutes hours days seconds nil 86400 3600 60 0 "%d days, %d hours, %d minutes, %d seconds" "%d hours, %d minutes, %d seconds" "%d minutes, %d seconds" "%d seconds" apply format string-match "\$[^0-9]\\|^\$1 \\S-+\$s\$" erc-replace-match-subexpression-in-string "" match-string 2] 7 (#$ . 198563)])
#@44 Alist of CTCP CLIENTINFO for ERC commands.
(defconst erc-clientinfo-alist '(("ACTION" . "is used to inform about one's current activity") ("CLIENTINFO" . "gives help on CTCP commands supported by client") ("ECHO" . "echoes its arguments back") ("FINGER" . "shows user's name, location, and idle time") ("PING" . "measures delay between peers") ("TIME" . "shows client-side time") ("USERINFO" . "shows information provided by a user") ("VERSION" . "shows client type and version")) (#$ . 199252))
#@101 Return CTCP CLIENTINFO on command S.
If S is nil or an empty string then return general CLIENTINFO.
(defalias 'erc-client-info #[(s) "\203\n�\303\230\203�\304\305\306\307	\"\"\310P\207\311\226	\"\211\203&�\312\nAQ\202)�\313P)\207" [s erc-clientinfo-alist h "" apply concat mapcar #[(e) "@\301P\207" [e " "] 2] ": use CLIENTINFO <COMMAND> to get more specific information" assoc " " ": unknown command"] 6 (#$ . 199755)])
#@80 Determine whether DIR is a writable directory.
If it doesn't exist, create it.
(defalias 'erc-directory-writable-p #[(dir) "\301!\204\n�\302!\210\303!\206�\304\305\"\207" [dir file-attributes make-directory file-accessible-directory-p error "Cannot access %s"] 3 (#$ . 200190)])
#@30 Kill all buffers of PROCESS.
(defalias 'erc-kill-query-buffers #[(process) "\303\304\305\306\n	\"\"*\207" [process #1=#:pro #2=#:pre #[nil "\300 ?\207" [erc-server-buffer-p] 1] mapcar #[(buffer) "rq\210\301p!)\207" [buffer kill-buffer] 2] erc-buffer-list] 6 (#$ . 200480)])
#@205 Give information about the nickname at `point'.

If called interactively, give a human readable message in the
minibuffer.  If called programatically, return the corresponding
entry of `channel-members'.
(defalias 'erc-nick-at-point #[nil "\306\307!\210\310 \211\311\312	!\n\")\211A\203�@\2025�\313 \314
!\2054�r
q\210\311\312	!%\")*&\315\211'(\315\211)*\315\211+\315,&\205\"&\316H->\204^�\317\320!\210&\321H&\316H->\204q�\317\322!\210&\323H'&\316H->\204\205�\317\324!\210&\325H(&\316H->\204\231�\317\326!\210&\327H)&\316H->\204\255�\317\330!\210&\331H*\f\203\333�\f\316H.>\204\304�\317\332!\210\f\321H+\f\316H.>\204\326�\317\333!\210\f\323H,t\203 \334\335	(')\203\363�\336\337)\"\202\364�\340+\204\376�,\203\336\341+\203	\342\202\n\340,\203\343\202\340\344 $\202\340&\202\"&.\207" [word nick erc-channel-users channel-data cuser #1=#:buffer require thingatpt word-at-point gethash erc-downcase erc-server-buffer buffer-live-p nil 0 error "erc-server-user-nickname accessing a non-erc-server-user" 1 "erc-server-user-host accessing a non-erc-server-user" 2 "erc-server-user-login accessing a non-erc-server-user" 3 "erc-server-user-full-name accessing a non-erc-server-user" 4 "erc-server-user-info accessing a non-erc-server-user" 5 "erc-channel-user-op accessing a non-erc-channel-user" "erc-channel-user-voice accessing a non-erc-channel-user" message "%s is %s@%s%s%s" format " (%s)" "" " and is +%s%s on %s" "o" "v" erc-default-target erc-server-users user host login full-name info op voice cl-struct-erc-server-user-tags cl-struct-erc-channel-user-tags] 12 (#$ . 200765) nil])
#@167 Return non-nil if the current ERC process is set away.

In particular, the time that we were set away is returned.
See `current-time' for details on the time format.
(defalias 'erc-away-time #[nil "\302 \303!\205�rq\210	))\207" [#1=#:buffer erc-away erc-server-buffer buffer-live-p] 2 (#$ . 202424)])
#@851 A string to be formatted and shown in the mode-line in `erc-mode'.

The string is formatted using `format-spec' and the result is set as the value
of `mode-line-buffer-identification'.

The following characters are replaced:
%a: String indicating away status or "" if you are not away
%l: The estimated lag time to the server
%m: The modes of the channel
%n: The current nick name
%N: The name of the network
%o: The topic of the channel
%p: The session port
%t: The name of the target (channel, nickname, or servername:port)
%s: In the server-buffer, this gets filled with the value of
    `erc-server-announced-name', in a channel, the value of
    (erc-default-target) also get concatenated.
%S: In the server-buffer, this gets filled with the value of
    `erc-network', in a channel, the value of (erc-default-target)
    also get concatenated.
(custom-declare-variable 'erc-mode-line-format '"%S %a" '(#$ . 202736) :group 'erc-mode-line-and-header :type 'string)
#@237 A string to be formatted and shown in the header-line in `erc-mode'.
Only used starting in Emacs 21.

Set this to nil if you do not want the header line to be
displayed.

See `erc-mode-line-format' for which characters are can be used.
(custom-declare-variable 'erc-header-line-format '"%n on %t (%m,%l) %o" '(#$ . 203712) :group 'erc-mode-line-and-header :set #[(sym val) "	L\210\302\303!\205
�\303\304!\207" [sym val fboundp erc-update-mode-line nil] 2] :type '(choice (const :tag "Disabled" nil) string))
#@67 Use tabbar mode instead of the header line to display the header.
(custom-declare-variable 'erc-header-line-uses-tabbar-p 'nil '(#$ . 204227) :group 'erc-mode-line-and-header :type 'boolean)
#@113 Show the contents of the header line in the echo area or as a tooltip
when you move point into the header line.
(custom-declare-variable 'erc-header-line-uses-help-echo-p 't '(#$ . 204425) :group 'erc-mode-line-and-header :type 'boolean)
#@214 Determine what method to use when colorizing the header line text.

If nil, don't colorize the header text.
If given a function, call it and use the resulting face name.
Otherwise, use the `erc-header-line' face.
(custom-declare-variable 'erc-header-line-face-method 'nil '(#$ . 204670) :group 'erc-mode-line-and-header :type '(choice (const :tag "Don't colorize" nil) (const :tag "Use the erc-header-line face" t) (function :tag "Call a function")))
#@42 Show the channel key in the header line.
(custom-declare-variable 'erc-show-channel-key-p 't '(#$ . 205127) :group 'erc-paranoia :type 'boolean)
#@176 Alist of common server name suffixes.
This variable is used in mode-line display to save screen
real estate.  Set it to nil if you want to avoid changing
displayed hostnames.
(custom-declare-variable 'erc-common-server-suffixes ''(("openprojects.net$" . "OPN") ("freenode.net$" . "freenode") ("oftc.net$" . "OFTC")) '(#$ . 205279) :group 'erc-mode-line-and-header :type 'alist)
#@151 When you're away on a server, this is shown in the mode line.
This should be a string with substitution variables recognized by
`format-time-string'.
(custom-declare-variable 'erc-mode-line-away-status-format '"(AWAY since %a %b %d %H:%M) " '(#$ . 205664) :group 'erc-mode-line-and-header :type 'string)
#@64 Shorten SERVER-NAME according to `erc-common-server-suffixes'.
(defalias 'erc-shorten-server-name #[(server-name) ";\205<�\305\306!r	q\210\307\216c\210\n\211\2038�eb\210\310\211@@)\311\312#\2031�\313\211@A)!\210A\211\204�)\314 +\207" [server-name #1=#:temp-buffer erc-common-server-suffixes alist x generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) re-search-forward nil t replace-match buffer-string] 5 (#$ . 205974)])
#@73 Return the name of the target (channel or nickname or servername:port).
(defalias 'erc-format-target #[nil "\304 \211\206�\305	\206
�\n!\306\307!Q)\207" [target erc-server-announced-name erc-session-server erc-session-port erc-default-target erc-shorten-server-name ":" erc-port-to-string] 5 (#$ . 206471)])
#@72 Return the server name or the current target and server name combined.
(defalias 'erc-format-target-and/or-server #[nil "\303\206�	!\304 \203�\305\304 !\306\nQ\202\"�\n\203�\n\202\"�\307p!)\207" [erc-server-announced-name erc-session-server server-name erc-shorten-server-name erc-default-target erc-string-no-properties "@" buffer-name] 3 (#$ . 206788)])
#@53 Return the name of the network we are currently on.
(defalias 'erc-format-network #[nil "\301\302!\205�\302 \211\203�9\203�\303!\202�\304)\207" [network fboundp erc-network-name symbol-name ""] 3 (#$ . 207155)])
#@153 Return the network or the current target and network combined.
If the name of the network is not available, then use the
shortened server name instead.
(defalias 'erc-format-target-and/or-network #[nil "\303\304!\203�\304 \206�\305\206�	!\211\203 �\n9\203 �\306\n!\307 \203/�\310\307 !\311\nQ\202:�\n\2037�\n\202:�\312p!)\207" [erc-server-announced-name erc-session-server network-name fboundp erc-network-name erc-shorten-server-name symbol-name erc-default-target erc-string-no-properties "@" buffer-name] 4 (#$ . 207381)])
#@81 Return a formatted `erc-mode-line-away-status-format'
if `erc-away' is non-nil.
(defalias 'erc-format-away-status #[nil "\302 \211\203�\303	\"\202�\304)\207" [a erc-mode-line-away-status-format erc-away-time format-time-string ""] 4 (#$ . 207919)])
#@37 Return the current channel's modes.
(defalias 'erc-format-channel-modes #[nil "\304\305\306#	\203 �\n\203 �\203�\307\310	\n#\202?�\307\311	\"\202?�	\203+�\307\312	\"\202?�\n\203>�\203:�\307\313\n\"\202?�\314\202?�\315P\207" [erc-channel-modes erc-channel-user-limit erc-channel-key erc-show-channel-key-p apply concat "+" format "lk %.0f %s" "kl %.0f" "l %.0f" "k %s" "k" nil] 5 (#$ . 208178)])
#@60 Return the estimated lag time to server, `erc-server-lag'.
(defalias 'erc-format-lag-time #[nil "\303 \304!\205�rq\210	))\211\203�\305\306\n\"\202�\307)\207" [#1=#:buffer erc-server-lag lag erc-server-buffer buffer-live-p format "lag:%.0f" ""] 4 (#$ . 208583)])
#@53 Update the mode line in a single ERC buffer BUFFER.
(defalias 'erc-update-mode-line-buffer #[(buffer) "rq\210\306\307\310 \311\312 \313\314 \315\316 \206�\317\320\321 \322\323	!\324\325\n!\326\327 \330\331 \332\333 &\334 \2038�\2048�\335\202B�\334 \203A�\317\202B�\336\f\337=\203L�\337\202X�\340\f!\203W�\f \202X�\34134\34254\"C63C7\343\344!\203\357�8\205|�\34284\"9:\203\222�\345\346!\210$&\347\344!\210\202\356�9\204\235�\337$\202\356�;\203\335�\350\351!<r<q\210\352\2169c\210\353ed\"\210\354 +1\355\356\357
\203\317�\3609\3611\305
%\202\326�\3609\3611##$)\202\356�
\203\352�\3609\305
#\202\354�9$)+\362 )\207" [buffer erc-channel-topic erc-session-port erc-server-connected erc-header-line-face-method face format-spec-make 97 erc-format-away-status 108 erc-format-lag-time 109 erc-format-channel-modes 110 erc-current-nick "" 78 erc-format-network 111 erc-controls-strip 112 erc-port-to-string 115 erc-format-target-and/or-server 83 erc-format-target-and/or-network 116 erc-format-target erc-server-process-alive ":connecting" ": CLOSED" nil functionp erc-header-line format-spec boundp header-line-format make-local-variable tabbar--local-hlf kill-local-variable generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) fill-region buffer-string erc-replace-regexp-in-string "%" "%%" erc-propertize help-echo force-mode-line-update process-status spec erc-mode-line-format mode-line-buffer-identification mode-line-process erc-header-line-format header erc-header-line-uses-tabbar-p erc-header-line-uses-help-echo-p #1#] 21 (#$ . 208858)])
#@93 Update the mode line in BUFFER.

If BUFFER is nil, update the mode line in all ERC buffers.
(defalias 'erc-update-mode-line #[(&optional buffer) "\203�\303!\203�\304!\207\305 \306\211\203+�\n@\307	!\203$�\304	!\210\nA\211\204�*\306\207" [buffer buf #1=#:--cl-dolist-temp-- bufferp erc-update-mode-line-buffer erc-buffer-list nil buffer-live-p] 3 (#$ . 210509)])
#@68 Convert port P to a string.
P may be an integer or a service name.
(defalias 'erc-port-to-string #[(p) "\250\203	�\301!\207\207" [p int-to-string] 2 (#$ . 210887)])
#@70 Convert string S to either an integer port number or a service name.
(defalias 'erc-string-to-port #[(s) "\247\203�\207\302!\211\303U\203�\202�	)\207" [s n string-to-number 0] 3 (#$ . 211061)])
#@121 Show the version number of ERC in the minibuffer.
If optional argument HERE is non-nil, insert version number at point.
(defalias 'erc-version #[(&optional here) "\304\305	#\203�\nc\202�t\203�\306\307\n\"\202�\n)\207" [erc-version-string emacs-version version-string here format "ERC %s (GNU Emacs %s)" message "%s"] 4 (#$ . 211270) "P"])
#@116 Show the active ERC modes in the minibuffer.
If optional argument HERE is non-nil, insert version number at point.
(defalias 'erc-modes #[(&optional here) "\306\307\310\211\311\312!\310\211\203+�@\313\n!\203$�\nJ\203$�\314\n!	BA\211\204�*	*\315#
\203:�\fc\202F�t\203E�\316\317\f\"\202F�\f)\207" [case-fold-search modes var #1=#:--cl-dolist-temp-- string here mapconcat identity nil apropos-internal "^erc-.*mode$" boundp symbol-name ", " message "%s"] 5 (#$ . 211623) "P"])
#@41 Trim leading and trailing spaces off S.
(defalias 'erc-trim-string #[(s) ";\204�\301\207\302\303\"\203�\304\207\302\305\"\203�\306\307\"\207\207" [s nil string-match "^\\s-*$" "" "^\\s-*\$.*\\S-\$\\s-*$" match-string 1] 3 (#$ . 212114)])
#@122 Open a window for every non-server buffer related to `erc-session-server'.

All windows are opened in the current frame.
(defalias 'erc-arrange-session-in-multiple-windows #[nil "\204�\302\303!\210\304\305\"\211\2055�\306 \210\307	@!\210	A	\2055�\310 \210\311\312!\210\307	@!\210	A\313 \210\202�)\207" [erc-server-process bufs error "No erc-server-process found in current buffer" erc-buffer-list nil delete-other-windows switch-to-buffer split-window other-window 1 balance-windows] 4 (#$ . 212369) nil])
#@26 Provide an input buffer.
(defalias 'erc-popup-input-buffer #[nil "\302\303!\304\305\306\307\310\311\312\313\"\"\314\315$!\316\317p	\"!\210 \210``}\210\320 *\207" [mode buffer-name generate-new-buffer-name "*ERC input*" intern completing-read "Mode: " mapcar #[(e) "\301!C\207" [e symbol-name] 2] apropos-internal "-mode$" commandp nil t pop-to-buffer make-indirect-buffer shrink-window-if-larger-than-buffer] 9 (#$ . 212888) nil])
#@58 Create a variable name corresponding to CATALOG's ENTRY.
(defalias 'erc-make-message-variable-name #[(catalog entry) "\302\303\304!\305\304	!R!\207" [catalog entry intern "erc-message-" symbol-name "-"] 6 (#$ . 213329)])
#@37 Set CATALOG's ENTRY to FORMAT-SPEC.
(defalias 'erc-define-catalog-entry #[(catalog entry format-spec) "\303	\"\nL\207" [catalog entry format-spec erc-make-message-variable-name] 3 (#$ . 213557)])
#@40 Define a CATALOG according to ENTRIES.
(defalias 'erc-define-catalog #[(catalog entries) "\304\211\203�\n@\305	@	A#\210\nA\211\204�*\304\207" [entries entry #1=#:--cl-dolist-temp-- catalog nil erc-define-catalog-entry] 5 (#$ . 213760)])
(erc-define-catalog 'english '((bad-ping-response . "Unexpected PING response from %n (time %t)") (bad-syntax . "Error occurred - incorrect usage?\n%c %u\n%d") (incorrect-args . "Incorrect arguments. Usage:\n%c %u\n%d") (cannot-find-file . "Cannot find file %f") (cannot-read-file . "Cannot read file %f") (connect . "Connecting to %S:%p... ") (country . "%c") (country-unknown . "%d: No such domain") (ctcp-empty . "Illegal empty CTCP query received from %n. Ignoring.") (ctcp-request . "==> CTCP request from %n (%u@%h): %r") (ctcp-request-to . "==> CTCP request from %n (%u@%h) to %t: %r") (ctcp-too-many . "Too many CTCP queries in single message. Ignoring") (flood-ctcp-off . "FLOOD PROTECTION: Automatic CTCP responses turned off.") (flood-strict-mode . "FLOOD PROTECTION: Switched to Strict Flood Control mode.") (disconnected . "\n\nConnection failed!  Re-establishing connection...\n") (disconnected-noreconnect . "\n\nConnection failed!  Not re-establishing connection.\n") (finished . "\n\n*** ERC finished ***\n") (terminated . "\n\n*** ERC terminated: %e\n") (login . "Logging in as '%n'...") (nick-in-use . "%n is in use. Choose new nickname: ") (nick-too-long . "WARNING: Nick length (%i) exceeds max NICKLEN(%l) defined by server") (no-default-channel . "No default channel") (no-invitation . "You've got no invitation") (no-target . "No target") (ops . "%i operator%s: %o") (ops-none . "No operators in this channel.") (undefined-ctcp . "Undefined CTCP query received. Silently ignored") (variable-not-bound . "Variable not bound!") (ACTION . "* %n %a") (CTCP-CLIENTINFO . "Client info for %n: %m") (CTCP-ECHO . "Echo %n: %m") (CTCP-FINGER . "Finger info for %n: %m") (CTCP-PING . "Ping time to %n is %t") (CTCP-TIME . "Time by %n is %m") (CTCP-UNKNOWN . "Unknown CTCP message from %n (%u@%h): %m") (CTCP-VERSION . "Version for %n is %m") (ERROR . "==> ERROR from %s: %c\n") (INVITE . "%n (%u@%h) invites you to channel %c") (JOIN . "%n (%u@%h) has joined channel %c") (JOIN-you . "You have joined channel %c") (KICK . "%n (%u@%h) has kicked %k off channel %c: %r") (KICK-you . "You have been kicked off channel %c by %n (%u@%h): %r") (KICK-by-you . "You have kicked %k off channel %c: %r") (MODE . "%n (%u@%h) has changed mode for %t to %m") (MODE-nick . "%n has changed mode for %t to %m") (NICK . "%n (%u@%h) is now known as %N") (NICK-you . "Your new nickname is %N") (PART . erc-message-english-PART) (PING . "PING from server (last: %s sec. ago)") (PONG . "PONG from %h (%i second%s)") (QUIT . "%n (%u@%h) has quit: %r") (TOPIC . "%n (%u@%h) has set the topic for %c: \"%T\"") (WALLOPS . "Wallops from %n: %m") (s004 . "%s %v %U %C") (s221 . "User modes for %n: %m") (s252 . "%i operator(s) online") (s253 . "%i unknown connection(s)") (s254 . "%i channels formed") (s275 . "%n %m") (s301 . "%n is AWAY: %r") (s303 . "Is online: %n") (s305 . "%m") (s306 . "%m") (s307 . "%n %m") (s311 . "%n is %f (%u@%h)") (s312 . "%n is/was on server %s (%c)") (s313 . "%n is an IRC operator") (s314 . "%n was %f (%u@%h)") (s317 . "%n has been idle for %i") (s317-on-since . "%n has been idle for %i, on since %t") (s319 . "%n is on channel(s): %c") (s320 . "%n is an identified user") (s321 . "Channel  Users  Topic") (s322 . "%c [%u] %t") (s324 . "%c modes: %m") (s328 . "%c URL: %u") (s329 . "%c was created on %t") (s330 . "%n %a %i") (s331 . "No topic is set for %c") (s332 . "Topic for %c: %T") (s333 . "%c: topic set by %n, %t") (s341 . "Inviting %n to channel %c") (s352 . "%-11c %-10n %-4a %u@%h (%f)") (s353 . "Users on %c: %u") (s367 . "Ban for %b on %c") (s367-set-by . "Ban for %b on %c set by %s on %t") (s368 . "Banlist of %c ends.") (s379 . "%c: Forwarded to %f") (s391 . "The time at %s is %t") (s401 . "%n: No such nick/channel") (s403 . "%c: No such channel") (s404 . "%c: Cannot send to channel") (s405 . "%c: You have joined too many channels") (s406 . "%n: There was no such nickname") (s412 . "No text to send") (s421 . "%c: Unknown command") (s431 . "No nickname given") (s432 . "%n is an erroneous nickname") (s442 . "%c: You're not on that channel") (s445 . "SUMMON has been disabled") (s446 . "USERS has been disabled") (s451 . "You have not registered") (s461 . "%c: not enough parameters") (s462 . "Unauthorized command (already registered)") (s463 . "Your host isn't among the privileged") (s464 . "Password incorrect") (s465 . "You are banned from this server") (s474 . "You can't join %c because you're banned (+b)") (s475 . "You must specify the correct channel key (+k) to join %c") (s481 . "Permission Denied - You're not an IRC operator") (s482 . "You need to be a channel operator of %c to do that") (s483 . "You can't kill a server!") (s484 . "Your connection is restricted!") (s485 . "You're not the original channel operator") (s491 . "No O-lines for your host") (s501 . "Unknown MODE flag") (s502 . "You can't change modes for other users")))
#@109 Format a proper PART message.

This function is an example on what could be done with formatting
functions.
(defalias 'erc-message-english-PART #[(&rest args) "\306>\211A@)\307>\211A@)\310>\211A@)\311>\211A@)\312>\211A@)\211\313 \230\203<�\314\315\"\202W�\314\316
\f\n\317\230\204T�\314\320\321\322\323\n#\"\202U�\317&-\207" [args x reason channel host user 110 117 104 99 114 erc-current-nick format "You have left channel %s" "%s (%s@%s) has left channel %s%s" "" ": %s" erc-replace-regexp-in-string "%" "%%" nick] 13 (#$ . 218904)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305\301!\207" [current-load-list erc-current-message-catalog default-boundp set-default english make-variable-buffer-local] 3)
#@171 Retrieve ENTRY from CATALOG.

If CATALOG is nil, `erc-current-message-catalog' is used.

If ENTRY is nil in CATALOG, it is retrieved from the fallback,
english, catalog.
(defalias 'erc-retrieve-catalog-entry #[(entry &optional catalog) "\204�	\304\n\"\305!\203�J\202$�\305\304\306\n\"!\205$�\304\306\n\"J)\207" [catalog erc-current-message-catalog entry var erc-make-message-variable-name boundp english] 4 (#$ . 219648)])
#@56 Format MSG according to ARGS.

See also `format-spec'.
(defalias 'erc-format-message #[(msg &rest args) "\303G\304\"\304=\203�\305\306!\210\307	!\211\204�\305\310	\"\210\311\n!\203&�\312\n\"\313\n\312\314\"\")\207" [args msg entry logand 1 error "Obscure usage of this function appeared" erc-retrieve-catalog-entry "No format spec for message %s" functionp apply format-spec format-spec-make] 6 (#$ . 220085)])
(add-hook 'kill-buffer-hook 'erc-kill-buffer-function)
#@64 *Invoked whenever a server-buffer is killed via `kill-buffer'.
(custom-declare-variable 'erc-kill-server-hook ''(erc-kill-server) '(#$ . -220564) :group 'erc-hooks :type 'hook)
#@65 *Invoked whenever a channel-buffer is killed via `kill-buffer'.
(custom-declare-variable 'erc-kill-channel-hook ''(erc-kill-channel) '(#$ . -220747) :group 'erc-hooks :type 'hook)
#@87 *Hook run whenever a non-server or channel buffer is killed.

See also `kill-buffer'.
(custom-declare-variable 'erc-kill-buffer-hook 'nil '(#$ . -220933) :group 'erc-hooks :type 'hook)
#@347 Function to call when an ERC buffer is killed.
This function should be on `kill-buffer-hook'.
When the current buffer is in `erc-mode', this function will run
one of the following hooks:
`erc-kill-server-hook' if the server buffer was killed,
`erc-kill-channel-hook' if a channel buffer was killed,
or `erc-kill-buffer-hook' if any other buffer.
(defalias 'erc-kill-buffer-function #[nil "\301=\205\"�\302 \210\303 p=\203�\304\305!\207\306\307 !\203�\304\310!\207\304\311!\207" [major-mode erc-mode erc-remove-channel-users erc-server-buffer run-hooks erc-kill-server-hook erc-channel-p erc-default-target erc-kill-channel-hook erc-kill-buffer-hook] 2 (#$ . 221125)])
#@121 Sends a QUIT command to the server when the server buffer is killed.
This function should be on `erc-kill-server-hook'.
(defalias 'erc-kill-server #[nil "\302 \205�\303\304\305\306	\307!\"!\207" [erc-server-quitting erc-quit-reason erc-server-process-alive t erc-server-send format "QUIT :%s" nil] 5 (#$ . 221803)])
#@123 Sends a PART command to the server when the channel buffer is killed.
This function should be on `erc-kill-channel-hook'.
(defalias 'erc-kill-channel #[nil "\302 \205�\303 \304\305\306	\307!#\307#)\207" [tgt erc-part-reason erc-server-process-alive erc-default-target erc-server-send format "PART %s :%s" nil] 6 (#$ . 222128)])
#@61 Find the next occurrence of the `erc-parsed' text property.
(defalias 'erc-find-parsed-property #[nil "\300ed\301\302$\207" [text-property-not-all erc-parsed nil] 5 (#$ . 222466)])
#@50 Restore the property 'erc-parsed for the region.
(defalias 'erc-restore-text-properties #[nil "\301 \302ed\303\205�\304!$)\207" [parsed-posn erc-find-parsed-property put-text-property erc-parsed erc-get-parsed-vector] 6 (#$ . 222653)])
#@42 Return the whole parsed vector on POINT.
(defalias 'erc-get-parsed-vector #[(point) "\301\302\"\207" [point get-text-property erc-parsed] 3 (#$ . 222899)])
#@44 Return nickname in the parsed vector VECT.
(defalias 'erc-get-parsed-vector-nick #[(vect) "\205�\304H	>\204�\305\306!\210\307H\211\205�\310\n\311\"@\211??\205+�\312!\205+�\n*\207" [vect cl-struct-erc-response-tags untreated-nick maybe-nick 0 error "erc-response.sender accessing a non-erc-response" 2 split-string "!" erc-is-valid-nick-p] 4 (#$ . 223062)])
#@48 Return message type in the parsed vector VECT.
(defalias 'erc-get-parsed-vector-type #[(vect) "\205�\302H	>\204�\303\304!\210\305H\207" [vect cl-struct-erc-response-tags 0 error "erc-response.command accessing a non-erc-response" 3] 2 (#$ . 223434)])
#@186 Use ERC to IRC on HOST:PORT in CHANNEL as USER with PASSWORD.
If ERC is already connected to HOST:PORT, simply /join CHANNEL.
Otherwise, connect to HOST:PORT as USER and /join CHANNEL.
(defalias 'erc-handle-irc-url #[(host port channel user password) "\306\307!@r\206�pq\210\203�	\203�\310	!\2024�\311\n\f\206$�\312 \313 ?
\314	\2052�\315!&	*\207" [server-buffer channel host port user password erc-buffer-filter #[nil "	\230\205�\nU\205�\304 \207" [erc-session-server host erc-session-port port erc-open-server-buffer-p] 2] erc-cmd-JOIN erc-open erc-compute-nick erc-compute-full-name nil get-buffer-process] 11 (#$ . 223697)])
(byte-code "\300\301!\210\302\303!\207" [provide erc require erc-goodies] 2)

${this.title}

Code Editor : erc.elc