Current File : //usr/local/share/emacs/27.2/lisp/erc/erc-netsplit.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 netsplit\nhappens, and filters the QUIT messages. It also keeps track of\nnetsplits, 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 `erc-netsplit-mode' command\nfor 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) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\n\203# \312 \210\202& \313 \210\314\315\307\302!\2032 \316\2023 \317\"\210\320\321!\203^ \322\302!\210\304 \203K \304 \232\203^ \323\324\325\307\302!\203Y \326\202Z \327 #\210))\330 \210\307\302!\207" [#1=#:last-message arg erc-netsplit-mode local current-message set-default toggle default-value 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%s" "en" "dis" force-mode-line-update] 4 (#$ . 1183) (list (or current-prefix-arg 'toggle))])
(defvar erc-netsplit-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [erc-netsplit-mode-map erc-netsplit-mode-hook variable-documentation put "Hook run after entering or leaving `erc-netsplit-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" 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 (#$ . 2597) 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 (#$ . 3061) 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 sever 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 (#$ . 4643))
(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) "\306! >\204 \307\310\311D\"\210\312H\313\f\313 \211 \203} @ \314
\233\235\203t \312
8\204Q \315\316\317!\320\321
@\322\314
\233G&\210
AA\323\240\210\324\325
@#\210\326
\233\204m \315\316\317!\327\321
@&\210\330
\f\"\202r \331
\"\210\323A\211\204 *\n*\207" [parsed cl-struct-erc-response-tags no-next-hook nick erc-netsplit-list elt type-of signal wrong-type-argument 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 (#$ . 5273)])
#@33 Hide mode changes from servers.
(defalias 'erc-netsplit-MODE #[(proc parsed) "\305\306\307! >\204 \310\311\312D\"\210\313H\"\205' \n\203% \314\315\316 !\317$\210\f?\207" [parsed cl-struct-erc-response-tags erc-netsplit-debug proc erc-netsplit-show-server-mode-changes-flag string-match "^[^@!\n]+\\.[^@!\n]+$" type-of signal wrong-type-argument erc-response 2 erc-display-message notice process-buffer "[debug] server mode change."] 6 (#$ . 5927)])
#@19 Detect netsplits.
(defalias 'erc-netsplit-QUIT #[(proc parsed) "\306! >\204 \307\310\311D\"\210\312H\306! >\204! \307\310\311D\"\210\313H\314 \315
\f\"\205\206 \316\f\"\211\203f \nAA \317\n\233B\241\210\313\n8\203\205 \320\321\322!\323\324\f&\210\nAA\325\240\210\326\327\f#\210\202\205 \f\330 \314 FB\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 type-of signal wrong-type-argument erc-response 5 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 (#$ . 6387)])
#@61 Clean cruft from `erc-netsplit-list' older than 10 minutes.
(defalias 'erc-netsplit-timer #[(now) "\2056 \306\211\2055 @\307\nA@\f\"\310V\203-
\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-- now erc-netsplit-debug nil erc-time-diff 600 erc-display-message notice "Netsplit: Removing " delq] 7 (#$ . 7074)])
#@18 Show who's gone.
(defalias 'erc-cmd-WHOLEFT #[nil "\304 \305!\203N rq\210 \204 \306\307\310\311\312$\210\202M \307\211\203L @\306\307\310\311\313\314\n@\315\316\317\320\n\233\321#\322\323\n8\203A \324\202B \325&\n\210 A\211\204# *))\326\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 2 "(joining)" "" t] 13 (#$ . 7473)])
(byte-code "\300\301\302\"\210\303\304!\207" [defalias erc-cmd-WL erc-cmd-WHOLEFT provide erc-netsplit] 3)
Mini Shell