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-xdcc.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-xdcc.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-xdcc.el' was compiled for Emacs 19.29 or later"))

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

(require 'erc-dcc)
#@101 *List of files to offer via XDCC.
Your friends should issue "/ctcp yournick XDCC list" to see this.
(custom-declare-variable 'erc-xdcc-files 'nil '(#$ . -631) :group 'erc-dcc :type '(repeat file))
#@50 *Report XDCC CTCP requests in the server buffer.
(custom-declare-variable 'erc-xdcc-verbose-flag 't '(#$ . -834) :group 'erc-dcc :type 'boolean)
#@51 *Sub-command handler alist for XDCC CTCP queries.
(custom-declare-variable 'erc-xdcc-handler-alist ''(("help" . erc-xdcc-help) ("list" . erc-xdcc-list) ("send" . erc-xdcc-send)) '(#$ . -985) :group 'erc-dcc :type '(alist :key-type (string :tag "Sub-command") :value-type function))
#@169 *Help text sent in response to XDCC help command.
A list of messages, each consisting of strings and expressions, expressions
being evaluated and should return stings.
(custom-declare-variable 'erc-xdcc-help-text ''(("Hey " nick ", wondering how this works?  Pretty easy.") ("Available commands: XDCC [" (mapconcat 'car erc-xdcc-handler-alist "|") "]") ("Type \"/ctcp " (erc-current-nick) " XDCC list\" to see the list of offered files, then type \"/ctcp " (erc-current-nick) " XDCC send #\" to get a particular file number.")) '(#$ . -1274) :group 'erc-dcc :type '(repeat (repeat :tag "Message" (choice string sexp))))
#@260 Non-nil if Erc-Xdcc mode is enabled.
See the command `erc-xdcc-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-xdcc-mode'.
(custom-declare-variable 'erc-xdcc-mode 'nil '(#$ . 1901) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-xdcc :type 'boolean)
#@115 Toggle ERC xdcc mode.
With arg, turn ERC xdcc mode on if and only if arg is positive.
Act as an XDCC file-server.
(defalias 'erc-xdcc-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-xdcc-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil erc-xdcc-enable erc-xdcc-disable run-hooks erc-xdcc-mode-hook erc-xdcc-mode-on-hook erc-xdcc-mode-off-hook called-interactively-p customize-mark-as-set "Erc-Xdcc mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 2325) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\207" [add-minor-mode erc-xdcc-mode nil boundp erc-xdcc-mode-map] 5)
#@23 Enable ERC xdcc mode.
(defalias 'erc-xdcc-enable #[nil "\301\302\303\"\210\304\211\207" [erc-xdcc-mode add-to-list erc-modules xdcc t] 3 (#$ . 3287) nil])
#@24 Disable ERC xdcc mode.
(defalias 'erc-xdcc-disable #[nil "\302\303\"\304\211\207" [erc-modules erc-xdcc-mode delq xdcc nil] 3 (#$ . 3449) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-xdcc-mode definition-name xdcc erc-xdcc-enable erc-xdcc-disable] 4)
#@33 Add a file to `erc-xdcc-files'.
(defalias 'erc-xdcc-add-file #[(file) "\301!\205\n�\302\303\"\207" [file file-exists-p add-to-list erc-xdcc-files] 3 (#$ . 3756) "fFilename to add to XDCC: "])
(defalias 'erc-xdcc-reply #[(proc nick msg) "\303\304\305	\n#\"\207" [proc nick msg process-send-string format "PRIVMSG %s :%s\n"] 6])
#@55 Hook called whenever a CTCP XDCC message is received.
(defvar erc-ctcp-query-XDCC-hook '(erc-xdcc) (#$ . 4092))
#@36 Handle incoming CTCP XDCC queries.
(defalias 'erc-xdcc #[(proc nick login host to query) "\203�\306\307\310	\311\312\n\f
%$\210\313\314\315
\316\"\"A\317@\227\"A\211\203>�\320!\203>�	\n\fA%\202G�\321	\n\311\322\323 \"#*\207" [erc-xdcc-verbose-flag proc nick login host query erc-display-message nil notice format "XDCC %s (%s@%s) sends %S" delete "" split-string " " assoc functionp erc-xdcc-reply "Unknown XDCC sub-command, try \"/ctcp %s XDCC help\"" erc-current-nick args erc-xdcc-handler-alist handler] 11 (#$ . 4210)])
#@38 Send basic help information to NICK.
(defalias 'erc-xdcc-help #[(proc nick login host args) "\301\302\"\207" [erc-xdcc-help-text mapc #[(msg) "\303	\304\305\n\306##\207" [proc nick msg erc-xdcc-reply mapconcat #[(elt) ";\203�\207\301!\207" [elt eval] 2] ""] 7]] 3 (#$ . 4758)])
#@60 Show the contents of `erc-xdcc-files' via privmsg to NICK.
(defalias 'erc-xdcc-list #[(proc nick login host args) "\204\n�\306	\n\307#\207\306	\n\310#\210\306	\n\311#\210\312\313\211\2039�
@\306	\n\314\315T\211\316\f!##\210
A\211\204 �+\313\207" [erc-xdcc-files proc nick n file #1=#:--cl-dolist-temp-- erc-xdcc-reply "No files offered, sorry" "Num  Filename" "---  -------------" 0 nil format "%02d.  %s" erc-dcc-file-to-name] 9 (#$ . 5048)])
#@22 Send a file to NICK.
(defalias 'erc-xdcc-send #[(proc nick login host args) "\306@!	G\n\307U\203�\310\f
\311#\2025�\312W\204\"�\nV\203-�\310\f
\313\314\"#\2025�\315
S	8\f#*\207" [args erc-xdcc-files len n proc nick string-to-number 0 erc-xdcc-reply "No files offered, sorry" 1 format "%d out of range" erc-dcc-send-file] 6 (#$ . 5507)])
(provide 'erc-xdcc)

${this.title}

Code Editor : erc-xdcc.elc