| Current File : //usr/share/emacs/24.3/lisp/erc/erc-netsplit.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:42 2024
;;; 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\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 (#$ . 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 FB\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!\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\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)