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-pcomplete.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:04 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/erc/erc-pcomplete.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-pcomplete.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\302%\207" [require pcomplete erc erc-compat time-date custom-declare-group erc-pcomplete nil "Programmable completion for ERC" :group] 6)
#@99 *When `pcomplete' is used in the first word after the prompt,
add this string to nicks completed.
(custom-declare-variable 'erc-pcomplete-nick-postfix '": " '(#$ . -844) :group 'erc-pcomplete :type 'string)
#@105 If t, channel nickname completions will be ordered such that
the most recent speakers are listed first.
(custom-declare-variable 'erc-pcomplete-order-nickname-completions 't '(#$ . 1058) :group 'erc-pcomplete :type 'boolean)
#@275 Non-nil if Erc-Pcomplete mode is enabled.
See the command `erc-pcomplete-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `erc-pcomplete-mode'.
(custom-declare-variable 'erc-pcomplete-mode 'nil '(#$ . 1290) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-pcomplete :type 'boolean)
#@168 Toggle ERC pcomplete mode.
With arg, turn ERC pcomplete mode on if and only if arg is positive.
In ERC Completion mode, the TAB key does completion whenever possible.
(defalias 'erc-pcomplete-mode #[(&optional arg) "\303 	\304=\203�\n?\202(�	\203�\305	!\306V\202(�\n\204\"�\307\202(�\310\311\302\"\210\312\211\2033�\313 \210\2026�\314 \210\315\316\n\203@�\317\202A�\320\"\210\321 \203e�\322\302!\210\303 \203X�\303 \232\203e�\310\323\n\203b�\324\202c�\325\"\210)\326 \210\n\207" [#1=#:last-message arg erc-pcomplete-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil 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 customize-mark-as-set "Erc-Pcomplete mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1739) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\207" [add-minor-mode erc-pcomplete-mode nil boundp erc-pcomplete-mode-map] 5)
#@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-pcomplete erc-buffer-list] 3 (#$ . 2804) 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-pcomplete] 3 (#$ . 3123) 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)
#@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 (#$ . 3628) 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\306\315!\210\316\211
\207" [pcomplete-ignore-case pcomplete-use-paring pcomplete-suffix-list pcomplete-parse-arguments-function pcomplete-command-completion-function pcomplete-command-name-function make-local-variable t nil (32 58) pcomplete-parse-erc-arguments pcomplete/erc-mode/complete-command pcomplete-erc-command-name pcomplete-default-completion-function #[nil "\300\301\302\211\211$\207" [pcomplete--here (pcomplete-erc-nicks) nil] 5]] 2 (#$ . 3865)])
(defalias 'pcomplete/erc-mode/complete-command #[nil "\300\301\302\211\211$\207" [pcomplete--here (append (pcomplete-erc-commands) (pcomplete-erc-nicks erc-pcomplete-nick-postfix t)) nil] 5])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list erc-pcomplete-ctcp-commands default-boundp set-default ("ACTION" "CLIENTINFO" "ECHO" "FINGER" "PING" "TIME" "USERINFO" "VERSION")] 3)
(defalias 'pcomplete/erc-mode/CTCP #[nil "\300\301\302\211\211$\210\300\303\302\211\211$\207" [pcomplete--here (pcomplete-erc-nicks) nil erc-pcomplete-ctcp-commands] 5])
(defalias 'pcomplete/erc-mode/CLEARTOPIC #[nil "\300\301\302\211\211$\207" [pcomplete--here (pcomplete-erc-channels) nil] 5])
(defalias 'pcomplete/erc-mode/DEOP #[nil "\300\301\302\211\211$\205\f�\202��\207" [pcomplete--here (pcomplete-erc-ops) nil] 5])
(defalias 'pcomplete/erc-mode/DESCRIBE #[nil "\300\301\302\211\211$\207" [pcomplete--here (pcomplete-erc-nicks) nil] 5])
(defalias 'pcomplete/erc-mode/IDLE #[nil "\300\301\302\211\211$\205\f�\202��\207" [pcomplete--here (pcomplete-erc-nicks) nil] 5])
(defalias 'pcomplete/erc-mode/KICK #[nil "\300\301\302\211\211$\210\300\303\302\211\211$\207" [pcomplete--here (pcomplete-erc-channels) nil (pcomplete-erc-nicks)] 5])
(defalias 'pcomplete/erc-mode/LOAD #[nil "\300\301\302\211\211$\207" [pcomplete--here (pcomplete-entries) nil] 5])
(defalias 'pcomplete/erc-mode/MODE #[nil "\300\301\302\211\211$\210\300\303\302\211\211$\205�\202�\207" [pcomplete--here (pcomplete-erc-channels) nil (pcomplete-erc-nicks)] 5])
(defalias 'pcomplete/erc-mode/ME #[nil "\300\301\302\211\211$\205\f�\202��\207" [pcomplete--here (pcomplete-erc-nicks) 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 (pcomplete-erc-nicks) nil (pcomplete-erc-nicks) (pcomplete-erc-nicks)] 5])
(defalias 'pcomplete/erc-mode/MSG #[nil "\300\301\302\211\211$\210\300\303\302\211\211$\205�\202�\207" [pcomplete--here (append (pcomplete-erc-all-nicks) (pcomplete-erc-channels)) nil (pcomplete-erc-nicks)] 5])
(defalias 'pcomplete/erc-mode/NAMES #[nil "\300\301\302\211\211$\205\f�\202��\207" [pcomplete--here (pcomplete-erc-channels) 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 (pcomplete-erc-not-ops) nil] 5])
(defalias 'pcomplete/erc-mode/PART #[nil "\300\301\302\211\211$\207" [pcomplete--here (pcomplete-erc-channels) 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 (append (pcomplete-erc-all-nicks) (pcomplete-erc-channels)) nil (pcomplete-erc-nicks)] 5])
(defalias 'pcomplete/erc-mode/SOUND #[nil "\300\301\302\211\211$\205\f�\202��\207" [pcomplete--here (pcomplete-entries) nil] 5])
(defalias 'pcomplete/erc-mode/TOPIC #[nil "\300\301\302\211\211$\207" [pcomplete--here (pcomplete-erc-channels) nil] 5])
(defalias 'pcomplete/erc-mode/WHOIS #[nil "\300\301\302\211\211$\205\f�\202��\207" [pcomplete--here (pcomplete-erc-nicks) nil] 5])
(defalias 'pcomplete/erc-mode/UNIGNORE #[nil "\300\301\302\211\211$\207" [pcomplete--here (erc-with-server-buffer erc-ignore-list) 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 (#$ . 7865)])
#@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!\210A\307H\205�\nB\211\207" [cdata cl-struct-erc-channel-user-tags nick ops 0 error "erc-channel-user-op accessing a non-erc-channel-user" 1] 2]] 3 (#$ . 8145)])
#@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!\210A\307H?\205�\nB\211\207" [cdata cl-struct-erc-channel-user-tags nick not-ops 0 error "erc-channel-user-op accessing a non-erc-channel-user" 1] 2]] 3 (#$ . 8498)])
#@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\203V�\f@
\2037�@\311H>\204-�\312\313!\210@\314H\315 \230\204O�@\311H>\204E�\312\313!\210@\314HP	B\fA\211\204�*	\237*\207" [erc-pcomplete-order-nickname-completions nicks users user #1=#:--cl-dolist-temp-- ignore-self erc-sort-channel-users-by-activity erc-get-channel-user-list nil 0 error "erc-server-user-nickname accessing a non-erc-server-user" 1 erc-current-nick cl-struct-erc-server-user-tags postfix] 4 (#$ . 8868)])
#@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 (#$ . 9617)])
#@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) "rq\210\301 )\207" [buf erc-default-target] 1] erc-channel-list] 4 (#$ . 9941)])
#@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 (#$ . 10190)])
#@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-parse-erc-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 (#$ . 10410)])
(provide 'erc-pcomplete)

${this.title}

Code Editor : erc-pcomplete.elc