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

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

(byte-code "\300\301!\210\300\302!\210\303\304\305\217\210\306\307\303\310\311\301%\207" [require erc speedbar nil (byte-code "\300\301!\207" [require dframe] 2) ((error)) custom-declare-group erc-speedbar "Integration of ERC in the Speedbar" :group] 6)
#@159 How channel nicknames are sorted.

'activity     - Sort users by channel activity
'alphabetical - Sort users alphabetically
nil           - Do not sort users
(custom-declare-variable 'erc-speedbar-sort-users-type ''activity '(#$ . 874) :group 'erc-speedbar :type '(choice (const :tag "Sort users by channel activity" activity) (const :tag "Sort users alphabetically" alphabetical) (const :tag "Do not sort users" nil)))
#@39 Keymap used when in erc display mode.
(defvar erc-speedbar-key-map nil (#$ . 1300))
#@58 Install those variables used by speedbar to enhance ERC.
(defalias 'erc-install-speedbar-variables #[nil "\204%�\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\307#\210\302\311\312#\210\313\314!\210\315\316!\207" [erc-speedbar-key-map speedbar-make-specialized-keymap define-key "e" speedbar-edit-line "
" "+" speedbar-expand-line "=" "-" speedbar-contract-line speedbar-add-expansion-list ("ERC" erc-speedbar-menu-items erc-speedbar-key-map erc-speedbar-server-buttons) speedbar-add-mode-functions-list ("ERC" (speedbar-item-info . erc-speedbar-item-info))] 4 (#$ . 1390)])
#@49 Additional menu-items to add to speedbar frame.
(defvar erc-speedbar-menu-items '(["Goto buffer" speedbar-edit-line t] ["Expand Node" speedbar-expand-line (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.\\+. "))] ["Contract Node" speedbar-contract-line (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.-. "))]) (#$ . 1995))
(byte-code "\300\301!\203\f�\302 \210\202�\303\304\302\"\210\300\207" [featurep speedbar erc-install-speedbar-variables add-hook speedbar-load-hook] 3)
#@93 Initialize speedbar to display an ERC browser.
This will add a speedbar major display mode.
(defalias 'erc-speedbar-browser #[nil "\300\301!\210\302\303!\210\304\305!\210\306 \207" [require speedbar speedbar-frame-mode 1 speedbar-change-initial-expansion-list "ERC" speedbar-get-focus] 2 (#$ . 2499) nil])
#@40 Create buttons for speedbar in BUFFER.
(defalias 'erc-speedbar-buttons #[(buffer) "\304 \210\305\211\211rq\210\306 \307\310 !\311 )\n\203%�\312\305\313#\202E�	\2039�\314\313\"\210\315y\210\316\317\313#\202E�\203D�\314\313\"\202E�\305+\207" [queryp chanp serverp buffer erase-buffer nil erc-server-buffer-p erc-channel-p erc-default-target erc-query-buffer-p erc-speedbar-channel-buttons 0 erc-speedbar-insert-target -1 erc-speedbar-expand-channel "+"] 4 (#$ . 2811)])
#@58 Insert the initial list of servers you are connected to.
(defalias 'erc-speedbar-server-buttons #[(directory depth) "\305\306!\211\205-�\307\310\211\203+�@\311\312\313\314\n\315\n!\316\n\310\f&	\210A\211\204�+\307)\207" [servers inhibit-read-only server #1=#:--cl-dolist-temp-- depth erc-buffer-list #[nil "p\301!=\207" [erc-server-process process-buffer] 3] t nil speedbar-make-tag-line bracket 43 erc-speedbar-expand-server buffer-name erc-speedbar-goto-buffer] 12 (#$ . 3297)])
(defalias 'erc-speedbar-expand-server #[(text server indent) "\304\305\"\203,�\306\307!\210\310\212\311\210\312u\210\313\311\nT#*\203%�\306\307!\210\202B�\306\314!\210\202B�\304\315\"\203>�\306\316!\210\317\n!\210\202B�\320\321!\210\322 \207" [text inhibit-read-only indent server string-match "+" speedbar-change-expand-button-char 45 t nil 1 erc-speedbar-channel-buttons 63 "-" 43 speedbar-delete-subblock error "Ooops... not sure what to do" speedbar-center-buffer-smartly] 4])
(defalias 'erc-speedbar-channel-buttons #[(directory depth server-buffer) "\306!\2057�rq\210	)\307\310\n\"\211\2056�\311\312\211\f\2034�\f@\313

\"\210\fA\211\f\204!�+\311*\207" [server-buffer erc-server-process proc targets inhibit-read-only target get-buffer erc-buffer-list #[nil "\301!p=?\207" [erc-server-process process-buffer] 2] t nil erc-speedbar-insert-target #1=#:--cl-dolist-temp-- depth] 5])
(defalias 'erc-speedbar-insert-target #[(buffer depth) "rq\210\302\303 !)\203�\304\305\306\307\310!\311\312	&	\207\304\312\211\211\211\310!\311\312	&	\207" [buffer depth erc-channel-p erc-default-target speedbar-make-tag-line bracket 43 erc-speedbar-expand-channel buffer-name erc-speedbar-goto-buffer nil] 10])
#@109 For the line matching TEXT, in CHANNEL, expand or contract a line.
INDENT is the current indentation level.
(defalias 'erc-speedbar-expand-channel #[(text channel indent) "\306\307\"\203\356�\310\311!\210\312\212\313\210\314u\210r\nq\210\315\316\"\f\2038�
\2038�(\2031�\317\320\f
#\202X�\317\321\f\"\202X�\f\203C�\317\322\f\"\202X�
\203W�(\203S�\317\323
\"\202X�\324\202X�\325P)\326r\nq\210))!*+\327\330\331\313\211\332+P\313\211\211,T&	\210*\325\230\204\222�\327\330\331\313\211\333*P\313\211\211,T&	\210-\334=\203\245�\335r\nq\210\336 )!\202\277�-\337=\203\270�\340r\nq\210\336 )!\202\277�r\nq\210\336 )\211.\203\352�\312.\313/\2110\203\351�0@/\341/\342,T#\2100A\2110\204\322�+-\202\306\343\"\203\310\342!\210\344,!\210\202\345\346!\210\347 \207" [text inhibit-read-only channel erc-channel-modes erc-channel-user-limit erc-channel-key string-match "+" speedbar-change-expand-button-char 45 t nil 1 apply concat format "lk %.0f %s" "kl %.0f" "l %.0f" "k %s" "k" "" erc-controls-interpret speedbar-make-tag-line angle 105 "Modes: +" "Topic: " alphabetical erc-sort-channel-users-alphabetically erc-get-channel-user-list activity erc-sort-channel-users-by-activity erc-speedbar-insert-user 43 "-" speedbar-delete-subblock error "Ooops... not sure what to do" speedbar-center-buffer-smartly erc-show-channel-key-p erc-channel-topic topic modes indent erc-speedbar-sort-users-type names entry #1=#:--cl-dolist-temp--] 11 (#$ . 5020)])
#@142 Insert one user based on the channel member list ENTRY.
EXP-CHAR is the expansion character to use.
INDENT is the current indentation level.
(defalias 'erc-speedbar-insert-user #[(entry exp-char indent) "@A	\306H>\204�\307\310!\210	\311H	\306H>\204\"�\307\312!\210	\313H	\306H>\2042�\307\314!\210	\315H 	\306H>\204C�\307\316!\210	\317H!	\306H>\204T�\307\320!\210	\321H\"\n\205m�\n\306H#>\204j�\307\322!\210\n\313H$\n\205\203�\n\306H#>\204\200�\307\323!\210\n\311H\211%\203\215�\324\202\216�\325$\203\227�\326\202\230�\325\fQ&!\211\204\246�
\205\247�\324
Q\211'\" E(!\204\306�
\204\306�\"\204\306� \203\331�\327\330\331\332(&\333(\333)&	\202\376�*\334\232\203\360�\335y\210\332\326'\" E)#\210\327\336\337\333\211&\333\211\211)&	.\f\207" [entry user cuser cl-struct-erc-server-user-tags nick host 0 error "erc-server-user-nickname accessing a non-erc-server-user" 1 "erc-server-user-host accessing a non-erc-server-user" 2 "erc-server-user-info accessing a non-erc-server-user" 5 "erc-server-user-login accessing a non-erc-server-user" 3 "erc-server-user-full-name accessing a non-erc-server-user" 4 "erc-channel-user-voice accessing a non-erc-channel-user" "erc-channel-user-op accessing a non-erc-channel-user" "@" "" "+" speedbar-make-tag-line bracket 43 erc-speedbar-expand-user nil 45 -1 statictag 63 info login name cl-struct-erc-channel-user-tags voice op nick-str finger sbtoken indent exp-char] 11 (#$ . 6495)])
#@124 Update the speedbar information about a ERC buffer. The update
is only done when the channel is actually expanded already.
(defalias 'erc-speedbar-update-channel #[(buffer) "rq\210\212eb\210\302\303\304\305	!!P\306\307#\205\"�\310 \210\311\312!\210\313\314	\312#*\207" [speedbar-buffer buffer re-search-forward "^1: *.+. *" regexp-quote buffer-name nil t beginning-of-line speedbar-delete-subblock 1 erc-speedbar-expand-channel "+"] 5 (#$ . 7961)])
(defalias 'erc-speedbar-expand-user #[(text token indent) "\306\307\"\203\\�\310\311!\210\312\212\313\210\314u\210\n@\nA@\315\n8\211\2032�\316\313\211\211\211
\313\211\211T&	\210\f\203E�\316\313\211\211\211\f\313\211\211T&	\210\203X�\316\313\211\211\211\313\211\211T&	\210-\202s�\306\317\"\203o�\310\320!\210\321!\210\202s�\322\323!\210\324 \207" [text inhibit-read-only token info name finger string-match "+" speedbar-change-expand-button-char 45 t nil 1 2 speedbar-make-tag-line "-" 43 speedbar-delete-subblock error "Ooops... not sure what to do" speedbar-center-buffer-smartly indent] 11])
#@76 When user clicks on TEXT, goto an ERC buffer.
The INDENT level is ignored.
(defalias 'erc-speedbar-goto-buffer #[(text buffer indent) "\306\307!\2037�\310!\210\311	\312\"\211\203�\313\n!\210\314\315\n!!\2025�\203.�\316\313\317	!!)\2025�\310!\210\320	!)\207\311	\312\"\211\203L�\313\n!\210\314\315\n!!\202b�
\203[�\316\313\317	!!)\202b�\310!\210\320	!)\207" [speedbar-frame buffer bwin dframe-power-click pop-up-frames speedbar-power-click featurep dframe dframe-select-attached-frame get-buffer-window 0 select-window raise-frame window-frame t display-buffer switch-to-buffer] 4 (#$ . 9029)])
#@51 Return the text for the item on the current line.
(defalias 'erc-speedbar-line-text #[nil "\300 \210\301\302\303\304#\205�\305`\306 \"\207" [beginning-of-line re-search-forward "[]>] " nil t buffer-substring-no-properties point-at-eol] 4 (#$ . 9638)])
#@67 Display information about the current buffer on the current line.
(defalias 'erc-speedbar-item-info #[nil "\302 \303 \211\203�	<\203�\304\305	@#\202)�\306	!\203%�\304\307\"\202)�\304\310\"*\207" [txt data speedbar-line-token erc-speedbar-line-text message "%s: %s" bufferp "Channel: %s" "%s"] 5 (#$ . 9897)])
(provide 'erc-speedbar)

${this.title}

Code Editor : erc-speedbar.elc