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

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:03 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/erc/erc-netsplit.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-netsplit.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-netsplit nil "Netsplit detection tries to automatically figure when a\nnetsplit happens, and filters the QUIT messages. It also keeps\ntrack of netsplits, so that it can filter the JOIN messages on a netjoin too." :group] 6)
#@272 Non-nil if Erc-Netsplit mode is enabled.
See the command `erc-netsplit-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-netsplit-mode'.
(custom-declare-variable 'erc-netsplit-mode 'nil '(#$ . 939) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-netsplit :type 'boolean)
#@152 Toggle ERC netsplit mode.
With arg, turn ERC netsplit mode on if and only if arg is positive.
This mode hides quit/join messages if a netsplit occurs.
(defalias 'erc-netsplit-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-netsplit-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil erc-netsplit-enable erc-netsplit-disable run-hooks erc-netsplit-mode-hook erc-netsplit-mode-on-hook erc-netsplit-mode-off-hook called-interactively-p customize-mark-as-set "Erc-Netsplit mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1382) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\207" [add-minor-mode erc-netsplit-mode nil boundp erc-netsplit-mode-map] 5)
#@27 Enable ERC netsplit mode.
(defalias 'erc-netsplit-enable #[nil "\301\302\303\"\210\304\305 \210\306\307\310\"\210\306\311\312\"\210\306\313\314\"\210\306\315\316\"\207" [erc-netsplit-mode add-to-list erc-modules netsplit t erc-netsplit-install-message-catalogs add-hook erc-server-JOIN-functions erc-netsplit-JOIN erc-server-MODE-functions erc-netsplit-MODE erc-server-QUIT-functions erc-netsplit-QUIT erc-timer-hook erc-netsplit-timer] 3 (#$ . 2421) nil])
#@28 Disable ERC netsplit mode.
(defalias 'erc-netsplit-disable #[nil "\302\303\"\304\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\305\314\315\"\207" [erc-modules erc-netsplit-mode delq netsplit nil remove-hook erc-server-JOIN-functions erc-netsplit-JOIN erc-server-MODE-functions erc-netsplit-MODE erc-server-QUIT-functions erc-netsplit-QUIT erc-timer-hook erc-netsplit-timer] 3 (#$ . 2885) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-netsplit-mode definition-name netsplit erc-netsplit-enable erc-netsplit-disable] 4)
#@52 Set to t to enable display of server mode changes.
(custom-declare-variable 'erc-netsplit-show-server-mode-changes-flag 'nil '(#$ . 3466) :group 'erc-netsplit :type 'boolean)
#@63 If non-nil, debug messages will be shown in the
sever buffer.
(custom-declare-variable 'erc-netsplit-debug 'nil '(#$ . 3647) :group 'erc-netsplit :type 'boolean)
#@74 This regular expression should match quit reasons produced
by netsplits.
(custom-declare-variable 'erc-netsplit-regexp '"^[^ @!\"\n]+\\.[^ @!\n]+ [^ @!\n]+\\.[^ @!\"\n]+$" '(#$ . 3815) :group 'erc-netsplit :type 'regexp)
#@178 Run whenever a netsplit is detected the first time.
Args: PROC is the process the netsplit originated from and
      SPLIT is the netsplit (e.g. "server.name.1 server.name.2").
(custom-declare-variable 'erc-netsplit-hook 'nil '(#$ . 4043) :group 'erc-hooks :type 'hook)
#@176 Run whenever a netjoin is detected the first time.
Args: PROC is the process the netjoin originated from and
      SPLIT is the netsplit (e.g. "server.name.1 server.name.2").
(custom-declare-variable 'erc-netjoin-hook 'nil '(#$ . 4320) :group 'erc-hooks :type 'hook)
#@208 This is a list of the form
(("a.b.c.d e.f.g" TIMESTAMP FIRST-JOIN "nick1" ... "nickn") ...)
where FIRST-JOIN is t or nil, depending on whether or not the first
join from that split has been detected or not.
(defvar erc-netsplit-list nil (#$ . 4594))
(make-variable-buffer-local 'erc-netsplit-list)
(defalias 'erc-netsplit-install-message-catalogs #[nil "\300\301\302\"\207" [erc-define-catalog english ((netsplit . "netsplit: %s") (netjoin . "netjoin: %s, %N were split") (netjoin-done . "netjoin: All lost souls are back!") (netsplit-none . "No netsplits in progress") (netsplit-wholeft . "split: %s missing: %n %t"))] 3])
#@26 Show/don't show rejoins.
(defalias 'erc-netsplit-JOIN #[(proc parsed) "\306H	>\204\f�\307\310!\210\311H\312\f\312\211\203�@\313
\233\235\203v�
\211AA)@\204S�\314\315\316!\317\320
@\321\313
\233G&\210
AA\322\240\210\323\324
@#\210\325
\233\204o�\314\315\316!\326\320
@&\210\327
\f\"\202t�\330
\"\210\322A\211\204�*\n*\207" [parsed cl-struct-erc-response-tags no-next-hook nick erc-netsplit-list elt 0 error "erc-response.sender accessing a non-erc-response" 2 nil 3 erc-display-message notice process-buffer netjoin 115 78 t run-hook-with-args erc-netjoin-hook 4 netjoin-done delq delete #1=#:--cl-dolist-temp-- x proc] 11 (#$ . 5224)])
#@33 Hide mode changes from servers.
(defalias 'erc-netsplit-MODE #[(proc parsed) "\305\306\307H	>\204�\310\311!\210\312H\"\205$�\n\203\"�\313\314\315!\316$\210\f?\207" [parsed cl-struct-erc-response-tags erc-netsplit-debug proc erc-netsplit-show-server-mode-changes-flag string-match "^[^@!\n]+\\.[^@!\n]+$" 0 error "erc-response.sender accessing a non-erc-response" 2 erc-display-message notice process-buffer "[debug] server mode change."] 5 (#$ . 5898)])
#@19 Detect netsplits.
(defalias 'erc-netsplit-QUIT #[(proc parsed) "\306H	>\204\f�\307\310!\210\311H\306H	>\204�\307\312!\210\313H\314\315
\f\"\205\205�\316\f\"\211\203e�\nAA\317\n\233B\241\210\n\211AA)@\203\204�\320\321\322!\323\324\f&\210\nAA\325\240\210\326\327\f#\210\202\204�\f\330 \314FB\320\321\322!\323\324\f&\210\326\327\f#\210\325+\207" [parsed cl-struct-erc-response-tags ass nick split erc-netsplit-regexp 0 error "erc-response.contents accessing a non-erc-response" 5 "erc-response.sender accessing a non-erc-response" 2 nil string-match assoc 3 erc-display-message notice process-buffer netsplit 115 t run-hook-with-args erc-netsplit-hook erc-current-time erc-netsplit-list x proc] 8 (#$ . 6363)])
#@61 Clean cruft from `erc-netsplit-list' older than 10 minutes.
(defalias 'erc-netsplit-timer #[(now) "\205:�	\306\211\2038�@\307\n\211A@)
\"\310V\2031�
\203,�\311\306\312p\313\n@P$\210\314\n	\"A\211\204\f�*\306\207" [erc-server-connected erc-netsplit-list elt #1=#:--cl-dolist-temp-- x now nil erc-time-diff 600 erc-display-message notice "Netsplit: Removing " delq erc-netsplit-debug] 7 (#$ . 7108)])
#@18 Show who's gone.
(defalias 'erc-cmd-WHOLEFT #[nil "\305 \306!\203R�rq\210	\204�\307\310\311\312\313$\210\202Q�	\310\211\203P�@\307\310\311\312\314\315\n@\316\317\320\321\n\233\322#\323\n\211AA)@\203E�\324\202F�\325&\n\210A\211\204#�*))\326\207" [#1=#:buffer erc-netsplit-list elt #2=#:--cl-dolist-temp-- x erc-server-buffer buffer-live-p erc-display-message nil notice active netsplit-none netsplit-wholeft 115 110 mapconcat erc-extract-nick 3 " " 116 "(joining)" "" t] 13 (#$ . 7523)])
(byte-code "\300\301\302\"\210\303\304!\207" [defalias erc-cmd-WL erc-cmd-WHOLEFT provide erc-netsplit] 3)

${this.title}

Code Editor : erc-netsplit.elc