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

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

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

(byte-code "\300\301!\210\302\303\304\305\306\301%\207" [require erc custom-declare-group erc-capab nil "Support for dancer-ircd's CAPAB settings." :group] 6)
#@157 The prefix used for unidentified users.

If you change this from the default "*", be sure to use a
character not found in IRC nicknames to avoid confusion.
(custom-declare-variable 'erc-capab-identify-prefix '"*" '(#$ . 773) :group 'erc-capab :type '(choice string (const nil)))
(custom-declare-face 'erc-capab-identify-unidentified '((t)) "Face to use for `erc-capab-identify-prefix'." :group 'erc-capab :group 'erc-faces)
#@290 Non-nil if Erc-Capab-Identify mode is enabled.
See the command `erc-capab-identify-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-capab-identify-mode'.
(custom-declare-variable 'erc-capab-identify-mode 'nil '(#$ . 1204) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-capab-identify :type 'boolean)
#@166 Toggle ERC capab-identify mode.
With arg, turn ERC capab-identify mode on if and only if arg is positive.
Handle dancer-ircd's CAPAB IDENTIFY-MSG and IDENTIFY-CTCP.
(defalias 'erc-capab-identify-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-capab-identify-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil erc-capab-identify-enable erc-capab-identify-disable run-hooks erc-capab-identify-mode-hook erc-capab-identify-mode-on-hook erc-capab-identify-mode-off-hook called-interactively-p customize-mark-as-set "Erc-Capab-Identify mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1678) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\207" [add-minor-mode erc-capab-identify-mode nil boundp erc-capab-identify-mode-map] 5)
#@33 Enable ERC capab-identify mode.
(defalias 'erc-capab-identify-enable #[nil "\301\302\303\"\210\304\305\306\307\304#\210\305\310\311\"\210\305\312\313\"\210\305\314\313\"\210\305\315\316\304#\210\317\320\321\322!\"\207" [erc-capab-identify-mode add-to-list erc-modules capab-identify t add-hook erc-server-005-functions erc-capab-identify-setup erc-server-290-functions erc-capab-identify-activate erc-server-PRIVMSG-functions erc-capab-identify-remove/set-identified-flag erc-server-NOTICE-functions erc-insert-modify-hook erc-capab-identify-add-prefix mapc #[(buffer) "\205�rq\210\301 )\207" [buffer erc-capab-identify-setup] 1] erc-buffer-list erc-open-server-buffer-p] 4 (#$ . 2791) nil])
#@34 Disable ERC capab-identify mode.
(defalias 'erc-capab-identify-disable #[nil "\302\303\"\304\305\306\307\"\210\305\310\311\"\210\305\312\313\"\207" [erc-modules erc-capab-identify-mode delq capab-identify nil remove-hook erc-server-005-functions erc-capab-identify-setup erc-server-290-functions erc-capab-identify-activate erc-insert-modify-hook erc-capab-identify-add-prefix] 3 (#$ . 3493) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-capab-identify-mode definition-name capab-identify erc-capab-identify-enable erc-capab-identify-disable] 4)
#@40 CAPAB IDENTIFY-MSG has been activated.
(defvar erc-capab-identify-activated nil (#$ . 4094))
(make-variable-buffer-local 'erc-capab-identify-activated)
#@63 CAPAB IDENTIFY-MSG and IDENTIFY-CTCP messages have been sent.
(defvar erc-capab-identify-sent nil (#$ . 4252))
(make-variable-buffer-local 'erc-capab-identify-sent)
#@267 Set up CAPAB IDENTIFY on the current server.

Optional argument PROC is the current server's process.
Optional argument PARSED is the current message, a response struct.

These arguments are sent to this function when called as a hook in
`erc-server-005-functions'.
(defalias 'erc-capab-identify-setup #[(&optional proc parsed) "?\205�\301 \207" [erc-capab-identify-sent erc-capab-identify-send-messages] 1 (#$ . 4424)])
#@57 Send CAPAB IDENTIFY messages if the server supports it.
(defalias 'erc-capab-identify-send-messages #[nil ";\205&�\304\305\"\205&�\306\307	\"\205&�\n\203�\310\311!\210\312\313!\210\312\314!\210\315\211\207" [erc-server-version erc-server-parameters erc-log-p erc-capab-identify-sent string-match "^\$dancer-ircd\\|hyperion\$" assoc "CAPAB" erc-log-aux "Sending CAPAB IDENTIFY-MSG and IDENTIFY-CTCP" erc-server-send "CAPAB IDENTIFY-MSG" "CAPAB IDENTIFY-CTCP" t] 3 (#$ . 4853)])
#@153 Set `erc-capab-identify-activated' and display an activation message.

PROC is the current server's process.
PARSED is an `erc-parsed' response struct.
(defalias 'erc-capab-identify-activate #[(proc parsed) "\303H	>\204\f�\304\305!\210\306H\307\230\204(�\303H	>\204 �\304\305!\210\306H\310\230\205A�\311\312\313\314\315\316\303H	>\204<�\304\305!\210\306H\"$\207" [parsed cl-struct-erc-response-tags erc-capab-identify-activated 0 error "erc-response.contents accessing a non-erc-response" 5 "IDENTIFY-MSG" "IDENTIFY-CTCP" t erc-display-message notice active format "%s activated"] 8 (#$ . 5343)])
#@159 Remove PARSED message's id flag and add the `erc-identified' text property.

PROC is the current server's process.
PARSED is an `erc-parsed' response struct.
(defalias 'erc-capab-identify-remove/set-identified-flag #[(proc parsed) "\306H	>\204\f�\307\310!\210\311H\205S�\312\313\n\"\205S�
\2039�\314\315\316\n\"\317\315\320\n\"\321\230\2034�\320\2025�\306#\202=�\315\316\n\"\f\306H	>\204K�\307\322!\210\f\311I\210*\323)\207" [parsed cl-struct-erc-response-tags msg erc-capab-identify-activated #1=#:--cl-x-- erc-capab-identify-mode 0 error "erc-response.contents accessing a non-erc-response" 5 string-match "^\$[-\\+]\$\$.+\$$" erc-propertize match-string 2 erc-identified 1 "+" "erc-response.contents storing a non-erc-response" nil #2=#:--cl-store--] 6 (#$ . 5955)])
#@70 Add `erc-capab-identify-prefix' to nickname if user is unidentified.
(defalias 'erc-capab-identify-add-prefix #[nil "\205C�\304 \305	!\205�r	q\210\n))\205C�\306 \206�eb\210\307\310`!!\211\205B�eb\205B�\311\312!\313\314#\205B�\315\224b\210\316\317\320#c)\207" [erc-capab-identify-prefix #1=#:buffer erc-capab-identify-activated nickname erc-server-buffer buffer-live-p erc-find-parsed-property erc-capab-identify-get-unidentified-nickname erc-get-parsed-vector re-search-forward regexp-quote nil t 0 erc-propertize face erc-capab-identify-unidentified] 5 (#$ . 6745)])
#@93 Return the nickname of the user if unidentified.
PARSED is an `erc-parsed' response struct.
(defalias 'erc-capab-identify-get-unidentified-nickname #[(parsed) "\303!\205:�G\304Y\205:�\305H	>\205:�\306\305\307\305H	>\204$�\310\311!\210\312H#\305\232\205:�\313!\211\2059�\314\n!@)\207" [parsed cl-struct-erc-response-tags nickuserhost vectorp 6 0 get-text-property erc-identified error "erc-response.contents accessing a non-erc-response" 5 erc-get-parsed-vector-nick erc-parse-user] 6 (#$ . 7326)])
(provide 'erc-capab)

${this.title}

Code Editor : erc-capab.elc