WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/erc
Viewing File: /usr/share/emacs/24.3/lisp/erc/erc-pcomplete.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:51:55 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/erc/erc-pcomplete.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\302%\210\312\313\314\315\311\306\316\317&\210\312\320\321\322\311\306\316\323&\210\312\324\307\325\326\327\330\331\311\306\316\323&\207" [require pcomplete erc erc-compat time-date custom-declare-group erc-pcomplete nil "Programmable completion for ERC" :group custom-declare-variable erc-pcomplete-nick-postfix ":" "When `pcomplete' is used in the first word after the prompt,\nadd this string to nicks completed." :type string erc-pcomplete-order-nickname-completions t "If t, channel nickname completions will be ordered such that\nthe most recent speakers are listed first." boolean erc-pcomplete-mode "Non-nil if Erc-Pcomplete mode is enabled.\nSee the command `erc-pcomplete-mode' for 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)
#@254 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.
(defalias 'erc-pcomplete-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\211\203\307 \210\202!\310 \210\311\312\n\203+\313\202,\314\"\210\315\316!\203Q\317\302!\210\303 \203D\303 \232\203Q\320\321\n\203N\322\202O\323\"\210)\324 \210\n\207" [#1=#:last-message arg erc-pcomplete-mode current-message toggle prefix-numeric-value 0 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" "en" "dis" force-mode-line-update] 4 (#$ . 1605) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [erc-pcomplete-mode-map add-minor-mode erc-pcomplete-mode nil boundp] 6)
#@28 Enable ERC pcomplete mode.
(defalias 'erc-pcomplete-enable #[nil "\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 (#$ . 2656) nil])
#@29 Disable ERC pcomplete mode.
(defalias 'erc-pcomplete-disable #[nil "\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 (#$ . 2987) 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 #[nil "`\302 V\205\303\304 )\206\304 \211\205	\305\244)\207" [pcomplete-default-completion-function c erc-beg-of-input-line ignore pcomplete-completions-at-point (:exclusive no)] 3 (#$ . 3504)])
#@33 Complete the nick before point.
(defalias 'erc-pcomplete #[nil "`\301 V\205\302=\203\303\202\304\303!\210)\305\207" [last-command erc-beg-of-input-line erc-complete-word pcomplete call-interactively t] 2 (#$ . 3829) nil])
#@36 Setup `erc-mode' to use pcomplete.
(defalias 'pcomplete-erc-setup #[nil "\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" [pcomplete-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 #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "\300 \207" [pcomplete-erc-nicks] 1] nil] 5]] 2 (#$ . 4066)])
(defalias 'pcomplete/erc-mode/complete-command #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "\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 #[nil "\300\301\302\211\211$\210\300\303\302\211\211$\207" [pcomplete--here #[nil "\300 \207" [pcomplete-erc-nicks] 1] nil #[nil "\207" [erc-pcomplete-ctcp-commands] 1]] 5])
(defalias 'pcomplete/erc-mode/CLEARTOPIC #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "\300 \207" [pcomplete-erc-channels] 1] nil] 5])
(defalias 'pcomplete/erc-mode/DEOP #[nil "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[nil "\300 \207" [pcomplete-erc-ops] 1] nil] 5])
(defalias 'pcomplete/erc-mode/DESCRIBE #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "\300 \207" [pcomplete-erc-nicks] 1] nil] 5])
(defalias 'pcomplete/erc-mode/IDLE #[nil "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[nil "\300 \207" [pcomplete-erc-nicks] 1] nil] 5])
(defalias 'pcomplete/erc-mode/KICK #[nil "\300\301\302\211\211$\210\300\303\302\211\211$\207" [pcomplete--here #[nil "\300 \207" [pcomplete-erc-channels] 1] nil #[nil "\300 \207" [pcomplete-erc-nicks] 1]] 5])
(defalias 'pcomplete/erc-mode/LOAD #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "\300 \207" [pcomplete-entries] 1] nil] 5])
(defalias 'pcomplete/erc-mode/MODE #[nil "\300\301\302\211\211$\210\300\303\302\211\211$\205\202\207" [pcomplete--here #[nil "\300 \207" [pcomplete-erc-channels] 1] nil #[nil "\300 \207" [pcomplete-erc-nicks] 1]] 5])
(defalias 'pcomplete/erc-mode/ME #[nil "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[nil "\300 \207" [pcomplete-erc-nicks] 1] nil] 5])
(defalias 'pcomplete/erc-mode/SAY #[nil "\300\301\302\211\211$\210\300\303\302\211\211$\210\300\304\302\211\211$\205\202\207" [pcomplete--here #[nil "\300 \207" [pcomplete-erc-nicks] 1] nil #[nil "\300 \207" [pcomplete-erc-nicks] 1] #[nil "\300 \207" [pcomplete-erc-nicks] 1]] 5])
(defalias 'pcomplete/erc-mode/MSG #[nil "\300\301\302\211\211$\210\300\303\302\211\211$\205\202\207" [pcomplete--here #[nil "\300\301 \302 \"\207" [append pcomplete-erc-all-nicks pcomplete-erc-channels] 3] nil #[nil "\300 \207" [pcomplete-erc-nicks] 1]] 5])
(defalias 'pcomplete/erc-mode/NAMES #[nil "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[nil "\300 \207" [pcomplete-erc-channels] 1] nil] 5])
(defalias 'pcomplete/erc-mode/NOTICE 'pcomplete/erc-mode/MSG)
(defalias 'pcomplete/erc-mode/OP #[nil "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[nil "\300 \207" [pcomplete-erc-not-ops] 1] nil] 5])
(defalias 'pcomplete/erc-mode/PART #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "\300 \207" [pcomplete-erc-channels] 1] nil] 5])
(defalias 'pcomplete/erc-mode/LEAVE 'pcomplete/erc-mode/PART)
(defalias 'pcomplete/erc-mode/QUERY #[nil "\300\301\302\211\211$\210\300\303\302\211\211$\205\202\207" [pcomplete--here #[nil "\300\301 \302 \"\207" [append pcomplete-erc-all-nicks pcomplete-erc-channels] 3] nil #[nil "\300 \207" [pcomplete-erc-nicks] 1]] 5])
(defalias 'pcomplete/erc-mode/SOUND #[nil "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[nil "\300 \207" [pcomplete-entries] 1] nil] 5])
(defalias 'pcomplete/erc-mode/TOPIC #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "\300 \207" [pcomplete-erc-channels] 1] nil] 5])
(defalias 'pcomplete/erc-mode/WHOIS #[nil "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[nil "\300 \207" [pcomplete-erc-nicks] 1] nil] 5])
(defalias 'pcomplete/erc-mode/UNIGNORE #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "\302 \303!\205rq\210	))\207" [#1=#:buffer erc-ignore-list erc-server-buffer buffer-live-p] 2] nil] 5])
#@57 Returns a list of strings of the defined user commands.
(defalias 'pcomplete-erc-commands #[nil "\301\302\303\304\305!\")\207" [case-fold-search nil mapcar #[(x) "\301\302!\303\304O\227P\207" [x "/" symbol-name 8 nil] 4] apropos-internal "erc-cmd-[A-Z]+"] 4 (#$ . 8572)])
#@35 Returns a list of nicks with ops.
(defalias 'pcomplete-erc-ops #[nil "\302\303\304	\"\210)\207" [ops erc-channel-users nil maphash #[(nick cdata) "A\205 A\304H	>\204\305\306\307\310#\210A\311H\205 \nB\211\207" [cdata cl-struct-erc-channel-user-tags nick ops 0 error "%s accessing a non-%s" erc-channel-user-op erc-channel-user 1] 4]] 3 (#$ . 8852)])
#@38 Returns a list of nicks without ops.
(defalias 'pcomplete-erc-not-ops #[nil "\302\303\304	\"\210)\207" [not-ops erc-channel-users nil maphash #[(nick cdata) "A\205!A\304H	>\204\305\306\307\310#\210A\311H?\205!\nB\211\207" [cdata cl-struct-erc-channel-user-tags nick not-ops 0 error "%s accessing a non-%s" erc-channel-user-op erc-channel-user 1] 4]] 3 (#$ . 9219)])
#@191 Returns 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.
(defalias 'pcomplete-erc-nicks #[(&optional postfix ignore-self) "\203\306\307 !\202
\307 \310\211\310\211\203Z\f@
\2039@\311H>\204/\312\313\314\315#\210@\316H\317 \230\204S@\311H>\204I\312\313\314\315#\210@\316HP	B\fA\211\204*	\237*\207" [erc-pcomplete-order-nickname-completions nicks users user --dolist-tail-- ignore-self erc-sort-channel-users-by-activity erc-get-channel-user-list nil 0 error "%s accessing a non-%s" erc-server-user-nickname erc-server-user 1 erc-current-nick cl-struct-erc-server-user-tags postfix] 5 (#$ . 9603)])
#@52 Returns a list of all nicks on the current server.
(defalias 'pcomplete-erc-all-nicks #[(&optional postfix) "\303\304 \305	!\203r	q\210\306\307\n\"\210)))\207" [nicks #1=#:buffer erc-server-users nil erc-server-buffer buffer-live-p maphash #[(nick user) "	P\nB\211\207" [nick postfix nicks] 2]] 3 (#$ . 10366)])
#@64 Returns a list of channels associated with the current server.
(defalias 'pcomplete-erc-channels #[nil "\301\302\303!\"\207" [erc-server-process mapcar #[(buf) "rq\210\301 )\207" [buf erc-default-target] 1] erc-channel-list] 4 (#$ . 10691)])
#@49 Returns the command name of the first argument.
(defalias 'pcomplete-erc-command-name #[nil "\300\301!\302\234\303=\203\300\301!\304\305O\226\207\306\207" [pcomplete-arg first 0 47 1 nil "SAY"] 3 (#$ . 10941)])
#@158 Returns 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 #[nil "`\305\211\212\306	x\307W\203\310\nC`\311	x\307W\2034`\fB\312`\n\"B\306	x\210`\202)\f,B\207" [erc-input-marker start end args beginnings nil " 	\n" 0 ("") "^ 	\n" buffer-substring-no-properties] 4 (#$ . 11161)])
(provide 'erc-pcomplete)
F1l3 Manager
