;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\302%\210\311\312\313\314\315DD\316\317\320%\210\311\321\313\314\322DD\323\317\324%\210\311\325\313\314\326DD\327\330\331\332\333\317\324\310\305&\207" [require pcomplete erc time-date custom-declare-group erc-pcomplete nil "Programmable completion for ERC." :group custom-declare-variable erc-pcomplete-nick-postfix funcall function #[0 "\300\207" [":"] 1 #1=""] "When `pcomplete' is used in the first word after the prompt,\nadd this string to nicks completed." :type string erc-pcomplete-order-nickname-completions #[0 "\300\207" [t] 1 #1#] "If t, order nickname completions with the most recent speakers first." boolean erc-pcomplete-mode #[0 "\300\207" [nil] 1 #1#] "Non-nil if Erc-Pcomplete mode is enabled.\nSee the `erc-pcomplete-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `erc-pcomplete-mode'." :set custom-set-minor-mode :initialize custom-initialize-default] 12)
#@274 Toggle ERC pcomplete mode.
With a prefix argument ARG, enable pcomplete if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
In ERC Completion mode, the TAB key does completion whenever possible.

(fn &optional ARG)
(defalias 'erc-pcomplete-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B	\203B\313 \210\202E\314 \210\315\316\305\301!\203Q\317\202R\320\"\210\321\322!\203z\323\301!\210\302 \203j\211\302 \232\203z\324\325\305\301!\203v\326\202w\327\330#\210\210\331 \210\305\301!\207" [global-minor-modes erc-pcomplete-mode current-message set-default toggle default-value 1 nil t boundp delq erc-pcomplete-enable erc-pcomplete-disable run-hooks erc-pcomplete-mode-hook erc-pcomplete-mode-on-hook erc-pcomplete-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-Pcomplete mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 1179) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar erc-pcomplete-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [erc-pcomplete-mode-map erc-pcomplete-mode-hook variable-documentation put "Hook run after entering or leaving `erc-pcomplete-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode erc-pcomplete-mode boundp] 6)
#@28 Enable ERC pcomplete mode.
(defalias 'erc-pcomplete-enable #[0 "\301\302\303\"\210\304\305\306\307\"\210\305\310\311\"\210\312\307!\207" [erc-pcomplete-mode add-to-list erc-modules pcomplete t add-hook erc-mode-hook pcomplete-erc-setup erc-complete-functions erc-pcompletions-at-point erc-buffer-list] 3 (#$ . 2825) nil])
#@29 Disable ERC pcomplete mode.
(defalias 'erc-pcomplete-disable #[0 "\302\303\"\304\305\306\307\"\210\305\310\311\"\207" [erc-modules erc-pcomplete-mode delq pcomplete nil remove-hook erc-mode-hook pcomplete-erc-setup erc-complete-functions erc-pcompletions-at-point] 3 (#$ . 3154) nil])
(byte-code "\300\301\302\"\210\303\302\304\305#\210\303\306\304\305#\210\303\307\304\305#\207" [defalias erc-completion-mode erc-pcomplete-mode put definition-name pcomplete erc-pcomplete-enable erc-pcomplete-disable] 4)
#@80 ERC completion data from pcomplete.
for use on `completion-at-point-function'.
(defalias 'erc-pcompletions-at-point #[0 "`\301 V\205\302\303 )\206\303 \211\205\211\304\244\262
\207" [pcomplete-default-completion-function erc-beg-of-input-line ignore pcomplete-completions-at-point (:exclusive no)] 3 (#$ . 3669)])
#@33 Complete the nick before point.
(defalias 'erc-pcomplete #[0 "`\301 V\205\f\302\303 )\207" [completion-at-point-functions erc-beg-of-input-line (erc-pcompletions-at-point) completion-at-point] 2 (#$ . 3996) nil])
(make-obsolete 'erc-pcomplete 'completion-at-point "25.1")
#@36 Setup `erc-mode' to use pcomplete.
(defalias 'pcomplete-erc-setup #[0 "\306\300!\210\307\306\301!\210\310\306\302!\210\311\306\303!\210\312\306\304!\210\313\306\305!\210\314\211\207" [completion-ignore-case pcomplete-use-paring pcomplete-parse-arguments-function pcomplete-command-completion-function pcomplete-command-name-function pcomplete-default-completion-function make-local-variable t nil pcomplete-erc-parse-arguments pcomplete/erc-mode/complete-command pcomplete-erc-command-name #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\300 \207" [pcomplete-erc-nicks] 1] nil] 5]] 2 (#$ . 4276)])
(defalias 'pcomplete/erc-mode/complete-command #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\301\302 \303\304\"\"\207" [erc-pcomplete-nick-postfix append pcomplete-erc-commands pcomplete-erc-nicks t] 5] nil] 5])
(defvar erc-pcomplete-ctcp-commands '("ACTION" "CLIENTINFO" "ECHO" "FINGER" "PING" "TIME" "USERINFO" "VERSION"))
(defalias 'pcomplete/erc-mode/CTCP #[0 "\300\301\302\211\211$\210\300\303\302\211\211$\207" [pcomplete--here #[0 "\300 \207" [pcomplete-erc-nicks] 1] nil #[0 "\207" [erc-pcomplete-ctcp-commands] 1]] 5])
(defalias 'pcomplete/erc-mode/CLEARTOPIC #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\300 \207" [pcomplete-erc-channels] 1] nil] 5])
(defalias 'pcomplete/erc-mode/DEOP #[0 "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[0 "\300 \207" [pcomplete-erc-ops] 1] nil] 5])
(defalias 'pcomplete/erc-mode/DESCRIBE #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\300 \207" [pcomplete-erc-nicks] 1] nil] 5])
(defalias 'pcomplete/erc-mode/IDLE #[0 "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[0 "\300 \207" [pcomplete-erc-nicks] 1] nil] 5])
(defalias 'pcomplete/erc-mode/KICK #[0 "\300\301\302\211\211$\210\300\303\302\211\211$\207" [pcomplete--here #[0 "\300 \207" [pcomplete-erc-channels] 1] nil #[0 "\300 \207" [pcomplete-erc-nicks] 1]] 5])
(defalias 'pcomplete/erc-mode/LOAD #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\300 \207" [pcomplete-entries] 1] nil] 5])
(defalias 'pcomplete/erc-mode/MODE #[0 "\300\301\302\211\211$\210\300\303\302\211\211$\205\202\207" [pcomplete--here #[0 "\300 \207" [pcomplete-erc-channels] 1] nil #[0 "\300 \207" [pcomplete-erc-nicks] 1]] 5])
(defalias 'pcomplete/erc-mode/ME #[0 "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[0 "\300 \207" [pcomplete-erc-nicks] 1] nil] 5])
(defalias 'pcomplete/erc-mode/SAY #[0 "\300\301\302\211\211$\210\300\303\302\211\211$\210\300\304\302\211\211$\205\202\207" [pcomplete--here #[0 "\300 \207" [pcomplete-erc-nicks] 1] nil #[0 "\300 \207" [pcomplete-erc-nicks] 1] #[0 "\300 \207" [pcomplete-erc-nicks] 1]] 5])
(defalias 'pcomplete/erc-mode/MSG #[0 "\300\301\302\211\211$\210\300\303\302\211\211$\205\202\207" [pcomplete--here #[0 "\300\301 \302 \"\207" [append pcomplete-erc-all-nicks pcomplete-erc-channels] 3] nil #[0 "\300 \207" [pcomplete-erc-nicks] 1]] 5])
(defalias 'pcomplete/erc-mode/NAMES #[0 "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[0 "\300 \207" [pcomplete-erc-channels] 1] nil] 5])
(defalias 'pcomplete/erc-mode/NOTICE 'pcomplete/erc-mode/MSG)
(defalias 'pcomplete/erc-mode/OP #[0 "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[0 "\300 \207" [pcomplete-erc-not-ops] 1] nil] 5])
(defalias 'pcomplete/erc-mode/PART #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\300 \207" [pcomplete-erc-channels] 1] nil] 5])
(defalias 'pcomplete/erc-mode/LEAVE 'pcomplete/erc-mode/PART)
(defalias 'pcomplete/erc-mode/QUERY #[0 "\300\301\302\211\211$\210\300\303\302\211\211$\205\202\207" [pcomplete--here #[0 "\300\301 \302 \"\207" [append pcomplete-erc-all-nicks pcomplete-erc-channels] 3] nil #[0 "\300 \207" [pcomplete-erc-nicks] 1]] 5])
(defalias 'pcomplete/erc-mode/SOUND #[0 "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[0 "\300 \207" [pcomplete-entries] 1] nil] 5])
(defalias 'pcomplete/erc-mode/TOPIC #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\300 \207" [pcomplete-erc-channels] 1] nil] 5])
(defalias 'pcomplete/erc-mode/WHOIS #[0 "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[0 "\300 \207" [pcomplete-erc-nicks] 1] nil] 5])
(defalias 'pcomplete/erc-mode/UNIGNORE #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\301 \302
!\205r\211q\210)\207" [erc-ignore-list erc-server-buffer buffer-live-p] 3] nil] 5])
#@56 Return a list of strings of the defined user commands.
(defalias 'pcomplete-erc-commands #[0 "\301\302\303\304\305!\")\207" [case-fold-search nil mapcar #[257 "\300\301!\302\303O\227P\207" ["/" symbol-name 8 nil] 5 "\n\n(fn X)"] apropos-internal "erc-cmd-[A-Z]+"] 4 (#$ . 8672)])
#@34 Return a list of nicks with ops.
(defalias 'pcomplete-erc-ops #[0 "\301C\302\303\304\"\"\210\211\242\207" [erc-channel-users nil maphash make-closure #[514 "\211A\2052\302
A!\203\211AG\303Y\203\211A\304H	>\204%\305\306\307AD\"\210\211A\310H\2052\300\300\242B\240\207" [V0 cl-struct-erc-channel-user-tags vectorp 7 0 signal wrong-type-argument erc-channel-user 3] 6 "\n\n(fn NICK CDATA)"]] 5 (#$ . 8960)])
#@37 Return a list of nicks without ops.
(defalias 'pcomplete-erc-not-ops #[0 "\301C\302\303\304\"\"\210\211\242\207" [erc-channel-users nil maphash make-closure #[514 "\211A\2053\302
A!\203\211AG\303Y\203\211A\304H	>\204%\305\306\307AD\"\210\211A\310H?\2053\300\300\242B\240\207" [V0 cl-struct-erc-channel-user-tags vectorp 7 0 signal wrong-type-argument erc-channel-user 3] 6 "\n\n(fn NICK CDATA)"]] 5 (#$ . 9382)])
#@226 Return a list of nicks in the current channel.
Optional argument POSTFIX is something to append to the nickname.
If optional argument IGNORE-SELF is non-nil, don't return the current nick.

(fn &optional POSTFIX IGNORE-SELF)
(defalias 'pcomplete-erc-nicks #[512 "\203\302\303 !\202
\303 \304
\211\203y\211@\211\203r\203G\305
@!\2035\211@G\306Y\2035\211@\307H	>\204=\310\311\312@D\"\210\211@\313H\314 \230\204r\305
@!\203_\211@G\306Y\203_\211@\307H	>\204g\310\311\312@D\"\210\211@\313HPB\262
A\266\202\202\210\211\237\207" [erc-pcomplete-order-nickname-completions cl-struct-erc-server-user-tags erc-sort-channel-users-by-activity erc-get-channel-user-list nil vectorp 7 0 signal wrong-type-argument erc-server-user 1 erc-current-nick] 10 (#$ . 9813)])
#@75 Return a list of all nicks on the current server.

(fn &optional POSTFIX)
(defalias 'pcomplete-erc-all-nicks #[256 "\301C\302 \303
!\203r\211q\210\304\305\306#\"\210)\210\211\242\207" [erc-server-users nil erc-server-buffer buffer-live-p maphash make-closure #[514 "\301\303!\203
G\304Y\203
\305H\n>\204\306\307\310D\"\210
\311H\300P\301\242B\240\207" [V0 V1 cl-struct-erc-server-user-tags vectorp 7 0 signal wrong-type-argument erc-server-user 1] 7 "\n\n(fn NICK USER)"]] 8 (#$ . 10594)])
#@63 Return a list of channels associated with the current server.
(defalias 'pcomplete-erc-channels #[0 "\301\302\303!\"\207" [erc-server-process mapcar #[257 "r\211q\210\300 )\207" [erc-default-target] 2 "\n\n(fn BUF)"] erc-channel-list] 4 (#$ . 11103)])
#@48 Return the command name of the first argument.
(defalias 'pcomplete-erc-command-name #[0 "\300\301!\302\234\303=\203\300\301!\304\305O\226\207\306\207" [pcomplete-arg first 0 47 1 nil "SAY"] 3 (#$ . 11362)])
#@157 Return a list of parsed whitespace-separated arguments.
These are the words from the beginning of the line after the prompt
up to where point is right now.
(defalias 'pcomplete-erc-parse-arguments #[0 "`\301\211\212\302x\303W\203\304\262C\262
`\262\305x\303W\2036`
B\262
\306`\"B\262\302x\210`\262\202)

B\207" [erc-input-marker nil " 	\n" 0 ("") "^ 	\n" buffer-substring-no-properties] 7 (#$ . 11579)])
(provide 'erc-pcomplete)