Gecko [ goons4good.org ]

Name	Size	Permission	Date
erc-autoaway.elc	11.35 KB	-rw-r--r--	2023-06-07 04:14
erc-backend.elc	154.56 KB	-rw-r--r--	2023-06-07 04:14
erc-button.elc	16.45 KB	-rw-r--r--	2023-06-07 04:14
erc-capab.elc	7.6 KB	-rw-r--r--	2023-06-07 04:14
erc-compat.elc	4.31 KB	-rw-r--r--	2023-06-07 04:14
erc-dcc.elc	41.41 KB	-rw-r--r--	2023-06-07 04:14
erc-desktop-notifications.elc	4.86 KB	-rw-r--r--	2023-06-07 04:14
erc-ezbounce.elc	5.09 KB	-rw-r--r--	2023-06-07 04:14
erc-fill.elc	6.6 KB	-rw-r--r--	2023-06-07 04:14
erc-goodies.elc	32.38 KB	-rw-r--r--	2023-06-07 04:14
erc-ibuffer.elc	6.53 KB	-rw-r--r--	2023-06-07 04:14
erc-identd.elc	4.69 KB	-rw-r--r--	2023-06-07 04:14
erc-imenu.elc	2.55 KB	-rw-r--r--	2023-06-07 04:14
erc-join.elc	8.81 KB	-rw-r--r--	2023-06-07 04:14
erc-lang.elc	4.62 KB	-rw-r--r--	2023-06-07 04:14
erc-list.elc	9.77 KB	-rw-r--r--	2023-06-07 04:14
erc-log.elc	14.46 KB	-rw-r--r--	2023-06-07 04:14
erc-match.elc	18.96 KB	-rw-r--r--	2023-06-07 04:14
erc-menu.elc	6.04 KB	-rw-r--r--	2023-06-07 04:14
erc-netsplit.elc	7.72 KB	-rw-r--r--	2023-06-07 04:14
erc-networks.elc	39.83 KB	-rw-r--r--	2023-06-07 04:14
erc-notify.elc	9.28 KB	-rw-r--r--	2023-06-07 04:14
erc-page.elc	4.85 KB	-rw-r--r--	2023-06-07 04:14
erc-pcomplete.elc	11.34 KB	-rw-r--r--	2023-06-07 04:14
erc-replace.elc	3.77 KB	-rw-r--r--	2023-06-07 04:14
erc-ring.elc	5.17 KB	-rw-r--r--	2023-06-07 04:14
erc-services.elc	15.05 KB	-rw-r--r--	2023-06-07 04:14
erc-sound.elc	5.51 KB	-rw-r--r--	2023-06-07 04:14
erc-speedbar.elc	9.78 KB	-rw-r--r--	2023-06-07 04:14
erc-spelling.elc	4.62 KB	-rw-r--r--	2023-06-07 04:14
erc-stamp.elc	14.54 KB	-rw-r--r--	2023-06-07 04:14
erc-track.elc	34.74 KB	-rw-r--r--	2023-06-07 04:14
erc-truncate.elc	4.07 KB	-rw-r--r--	2023-06-07 04:14
erc-xdcc.elc	5.59 KB	-rw-r--r--	2023-06-07 04:14
erc.elc	222.52 KB	-rw-r--r--	2023-06-07 04:14

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:14:23 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/erc/erc-netsplit.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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

(byte-code "\300\301!\210\302\303\304\305\306\301%\210\307\310\304\311\312\313\314\315\306\303\316\317&\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 custom-declare-variable erc-netsplit-mode "Non-nil if Erc-Netsplit mode is enabled.\nSee the command `erc-netsplit-mode' for a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `erc-netsplit-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 12)
#@238 Toggle ERC netsplit mode.
With a prefix argument ARG, enable netsplit if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
This mode hides quit/join messages if a netsplit occurs.
(defalias 'erc-netsplit-mode #[(&optional arg) "\303 	\304=\203�\n?\202�\305	!\306V\211\203�\307 \210\202!�\310 \210\311\312\n\203+�\313\202,�\314\"\210\315\316!\203Q�\317\302!\210\303 \203D�\303 \232\203Q�\320\321\n\203N�\322\202O�\323\"\210)\324 \210\n\207" [#1=#:last-message arg erc-netsplit-mode current-message toggle prefix-numeric-value 0 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 any customize-mark-as-set message "Erc-Netsplit mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1328) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n�\303\211%\207" [erc-netsplit-mode-map add-minor-mode erc-netsplit-mode nil boundp] 6)
#@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 (#$ . 2353) 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 (#$ . 2817) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\306\307\310\311\312\313\314\315&\210\306\316\310\317\312\313\314\315&\210\306\320\321\322\312\313\314\323&\210\306\324\310\325\312\326\314\327&\210\306\330\310\331\312\326\314\327&\207" [put erc-netsplit-mode definition-name netsplit erc-netsplit-enable erc-netsplit-disable custom-declare-variable erc-netsplit-show-server-mode-changes-flag nil "Set to t to enable display of server mode changes." :group erc-netsplit :type boolean erc-netsplit-debug "If non-nil, debug messages will be shown in the\nsever buffer." erc-netsplit-regexp "^[^ @!\"\n]+\\.[^ @!\n]+ [^ @!\n]+\\.[^ @!\"\n]+$" "This regular expression should match quit reasons produced\nby netsplits." regexp erc-netsplit-hook "Run whenever a netsplit is detected the first time.\nArgs: PROC is the process the netsplit originated from and\n      SPLIT is the netsplit (e.g. \"server.name.1 server.name.2\")." erc-hooks hook erc-netjoin-hook "Run whenever a netjoin is detected the first time.\nArgs: PROC is the process the netjoin originated from and\n      SPLIT is the netsplit (e.g. \"server.name.1 server.name.2\")."] 8)
#@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 (#$ . 4400))
(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�\307\310\311\312#\210\313H\314\f\314\211\203}�@\315
\233\235\203t�
AA@\204Q�\316\317\320!\321\322
@\323\315
\233G&\210
AA\324\240\210\325\326
@#\210\327
\233\204m�\316\317\320!\330\322
@&\210\331
\f\"\202r�\332
\"\210\324A\211\204�*\n*\207" [parsed cl-struct-erc-response-tags no-next-hook nick erc-netsplit-list elt 0 error "%s accessing a non-%s" erc-response\.sender 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 --dolist-tail-- proc] 11 (#$ . 5030)])
#@33 Hide mode changes from servers.
(defalias 'erc-netsplit-MODE #[(proc parsed) "\305\306\307H	>\204�\310\311\312\313#\210\314H\"\205&�\n\203$�\315\316\317!\320$\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 "%s accessing a non-%s" erc-response\.sender erc-response 2 erc-display-message notice process-buffer "[debug] server mode change."] 6 (#$ . 5701)])
#@19 Detect netsplits.
(defalias 'erc-netsplit-QUIT #[(proc parsed) "\306H	>\204�\307\310\311\312#\210\313H\306H	>\204�\307\310\314\312#\210\315H\316\317
\f\"\205\205�\320\f\"\211\203e�\nAA\321\n\233B\241\210\nAA@\203\204�\322\323\324!\325\326\f&\210\nAA\327\240\210\330\331\f#\210\202\204�\f\332 \316FB\322\323\324!\325\326\f&\210\330\331\f#\210\327+\207" [parsed cl-struct-erc-response-tags ass nick split erc-netsplit-regexp 0 error "%s accessing a non-%s" erc-response\.contents erc-response 5 erc-response\.sender 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 proc] 8 (#$ . 6180)])
#@61 Clean cruft from `erc-netsplit-list' older than 10 minutes.
(defalias 'erc-netsplit-timer #[(now) "\205:�	\306\211\2059�@\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 --dolist-tail-- x now nil erc-time-diff 600 erc-display-message notice "Netsplit: Removing " delq erc-netsplit-debug] 7 (#$ . 6908)])
#@18 Show who's gone.
(defalias 'erc-cmd-WHOLEFT #[nil "\304 \305!\203O�rq\210	\204�\306\307\310\311\312$\210\202N�	\307\211\203M�@\306\307\310\311\313\314\n@\315\316\317\320\n\233\321#\322\nAA@\203B�\323\202C�\324&\n\210A\211\204#�*))\325\207" [#1=#:buffer erc-netsplit-list elt --dolist-tail-- 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 (#$ . 7315)])
(byte-code "\300\301\302\"\210\303\304!\207" [defalias erc-cmd-WL erc-cmd-WHOLEFT provide erc-netsplit] 3)