WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/erc
Viewing File: /usr/share/emacs/24.3/lisp/erc/erc-netsplit.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:51:53 2025
;;; 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 (#$ . 1332) (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 (#$ . 2357) 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 (#$ . 2821) 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 (#$ . 4404))
(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\324A\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 (#$ . 5034)])
#@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 (#$ . 5705)])
#@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 \316FB\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 (#$ . 6184)])
#@61 Clean cruft from `erc-netsplit-list' older than 10 minutes.
(defalias 'erc-netsplit-timer #[(now) "\205:	\306\211\2059@\307\n\211A@)
\"\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 (#$ . 6912)])
#@18 Show who's gone.
(defalias 'erc-cmd-WHOLEFT #[nil "\304 \305!\203Orq\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\210A\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 (#$ . 7319)])
(byte-code "\300\301\302\"\210\303\304!\207" [defalias erc-cmd-WL erc-cmd-WHOLEFT provide erc-netsplit] 3)
F1l3 Manager
