%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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 `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)
#@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) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\n\203# \312 \210\202& \313 \210\314\315\307\302!\2032 \316\2023 \317\"\210\320\321!\203^ \322\302!\210\304 \203K \304 \232\203^ \323\324\325\307\302!\203Y \326\202Z \327 #\210))\330 \210\307\302!\207" [#1=#:last-message arg erc-pcomplete-mode local current-message set-default toggle default-value 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%s" "en" "dis" force-mode-line-update] 4 (#$ . 1454) (list (or current-prefix-arg 'toggle))])
(defvar erc-pcomplete-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" 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 (#$ . 2897) 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 (#$ . 3228) 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 (#$ . 3745)])
#@33 Complete the nick before point.
(defalias 'erc-pcomplete #[nil "`\301 V\205\f \302\303 )\207" [completion-at-point-functions erc-beg-of-input-line (erc-pcompletions-at-point) completion-at-point] 2 (#$ . 4070) nil])
(make-obsolete 'erc-pcomplete 'completion-at-point "25.1")
#@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 (#$ . 4352)])
(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 rq\210 ))\207" [#1=#:buffer erc-ignore-list erc-server-buffer buffer-live-p] 2] nil] 5])
#@56 Return 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!\304\"\227P\207" [x "/" substring symbol-name 8] 4] apropos-internal "erc-cmd-[A-Z]+"] 4 (#$ . 8858)])
#@34 Return 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\307AD\"\210A\310H\205\" \n B\211\207" [cdata cl-struct-erc-channel-user-tags nick ops 0 signal wrong-type-argument erc-channel-user 3] 4]] 3 (#$ . 9144)])
#@37 Return 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\307AD\"\210A\310H?\205# \n B\211\207" [cdata cl-struct-erc-channel-user-tags nick not-ops 0 signal wrong-type-argument erc-channel-user 3] 4]] 3 (#$ . 9489)])
#@190 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.
(defalias 'pcomplete-erc-nicks #[(&optional postfix ignore-self) "\203 \306\307 !\202
\307 \310\211\310\211 \203b \f@\211\203[
\203? @\311H>\2045 \312\313\314 @D\"\210 @\315H\316 \230\204[ @\311H>\204Q \312\313\314 @D\"\210 @\315HP 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 signal wrong-type-argument erc-server-user 1 erc-current-nick cl-struct-erc-server-user-tags postfix] 5 (#$ . 9849)])
#@51 Return 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) "\304H >\204 \305\306\307D\"\210\310H\nP B\211\207" [user cl-struct-erc-server-user-tags postfix nicks 0 signal wrong-type-argument erc-server-user 1] 4]] 3 (#$ . 10593)])
#@63 Return a list of channels associated with the current server.
(defalias 'pcomplete-erc-channels #[nil "\301\302\303!\"\207" [erc-server-process mapcar #[(buf) "rq\210\301 )\207" [buf erc-default-target] 1] erc-channel-list] 4 (#$ . 11035)])
#@48 Return the command name of the first argument.
(defalias 'pcomplete-erc-command-name #[nil "\300\301!\302\234\303=\203 \304\300\301!\305\"\226\207\306\207" [pcomplete-arg first 0 47 substring 1 "SAY"] 3 (#$ . 11284)])
#@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 #[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 (#$ . 11510)])
(provide 'erc-pcomplete)
Zerion Mini Shell 1.0