;ELC ;;; Compiled ;;; in Emacs version 30.2 ;;; with all optimizations. #@272 Non-nil if Erc-Netsplit mode is enabled. See the `erc-netsplit-mode' command 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'.#@2 #@22 (fn WIDGET ESCAPE)#@10 (fn _)#@267 Toggle ERC netsplit mode. If called interactively, enable `erc-netsplit-mode' 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. (fn &optional ARG) (byte-code "\300\301!\210\302\303\304\305\306\301%\210\307\310\311\312\313DD\314\315\316\317\320\321\322\323!\324\325\"\326\327\330\331\332\333#\334\335\336\332\337\n\f#\257 \266\202\306\340\323\304\"\341\303& \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 funcall function #[0 "\300\207" [nil] 1 (#$ . 359)] (#$ . 84) :set custom-set-minor-mode :initialize custom-initialize-default :type erc--normalize-module-symbol netsplit format " `%s' " boolean :format "%{%t%}: %i %[Deprecated Toggle%] %v \n%h\n" :format-handler make-closure #[514 "\302\303\304\305\306\307\310\311\301\"\312\313\314\300\301#&\n\207" [V0 V1 erc--make-show-me-widget :button-face (custom-variable-obsolete custom-button) :tag "Show Me" :action apply-partially erc--tick-module-checkbox :help-echo make-closure #[257 "\301\n>\211\203 \303\202\f\304\300\203\305\202\306\307R\207" [V0 V1 erc-modules "Remove" "Add" "from" "to" " `erc-modules'."] 6 (#$ . 391)]] 16 (#$ . 365)] :action widget-toggle-action :documentation-property #[257 "\301\n>\303\304\305\306\307#\310\203\311\202\312\300\203\313\202\314\315\304\316\306\317#\320\260 \207" [V0 V1 erc-modules "Setting a module's minor-mode variable is " propertize "ineffective" face error ".\nPlease " "remove" "add" "from" "to" " `erc-modules' directly instead.\nYou can do so now by clicking " "Show Me" custom-variable-obsolete " above."] 13 (#$ . 391)] erc--find-group :require] 23) (defalias 'erc-netsplit-mode #[256 "\303 \304\302\305=\203\306\302!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\302\"\306\302!\2038\302B\n\203D\314 \210\202G\315 \210)\316\317\306\302!\203T\320\202U\321\"\210\322\323!\203~\324\302!\210\303 \203m\211\303 \232\203~\325\326\327\306\302!\203z\330\202{\331\332$\210\210\333 \210\306\302!\207" [global-minor-modes erc--module-toggle-prefix-arg erc-netsplit-mode current-message set-default toggle default-value 1 nil t boundp delq 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 "%s %sabled%s" "Erc-Netsplit mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 406) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar erc-netsplit-mode-hook nil)#@27 Enable ERC netsplit mode. (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\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.)" custom-type hook standard-value nil add-minor-mode erc-netsplit-mode boundp] 6) (defalias 'erc-netsplit-enable #[0 "\204\303 >\204\304\305\303\306\")\210\304\307\310\311\"\210\307\312\313\"\210\307\314\315\"\210\307\316\317\"\207" [erc--inside-mode-toggle-p erc-modules erc-netsplit-mode netsplit t erc--favor-changed-reverted-modules-state cons 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 (#$ . 3296) nil])#@28 Disable ERC netsplit mode. (defalias 'erc-netsplit-disable #[0 "\204\303 >\203\304\305\303\306\")\210\307\310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\310\317\320\"\207" [erc--inside-mode-toggle-p erc-modules erc-netsplit-mode netsplit t erc--favor-changed-reverted-modules-state delq 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 (#$ . 4269) nil])#@57 Non-nil means to enable display of server mode changes.#@63 If non-nil, debug messages will be shown in the sever buffer.#@74 This regular expression should match quit reasons produced by netsplits.#@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").#@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").#@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. (byte-code "\300\301\302\303#\210\300\301\304\303#\210\300\305\304\303#\210\300\306\304\303#\210\307\310\311\312\313DD\314\315\316%\210\307\317\311\312\320DD\321\315\316%\210\307\322\311\312\323DD\324\315\325%\210\307\326\311\312\327DD\330\331\332\315\333&\210\307\334\311\312\335DD\336\331\332\315\333&\207" [put erc-netsplit-mode erc-module netsplit definition-name erc-netsplit-enable erc-netsplit-disable custom-declare-variable erc-netsplit-show-server-mode-changes-flag funcall function #[0 "\300\207" [nil] 1 (#$ . 359)] (#$ . 4778) :type boolean erc-netsplit-debug #[0 "\300\207" [nil] 1 (#$ . 359)] (#$ . 4839) erc-netsplit-regexp #[0 "\300\207" ["^[^ @!\"\n]+\\.[^ @!\n]+ [^ @!\n]+\\.[^ @!\"\n]+$"] 1 (#$ . 359)] (#$ . 4906) regexp erc-netsplit-hook #[0 "\300\207" [nil] 1 (#$ . 359)] (#$ . 4985) :group erc-hooks hook erc-netjoin-hook #[0 "\300\207" [nil] 1 (#$ . 359)] (#$ . 5168)] 8) (defvar erc-netsplit-list nil (#$ . 5349)) (make-variable-buffer-local 'erc-netsplit-list) (defalias 'erc-netsplit-install-message-catalogs #[0 "\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])#@59 Message template for key `netsplit' in catalog `english'. (make-obsolete 'erc-netsplit-install-message-catalogs "defined at top level in erc-netsplit.el" "30.1") (defvar erc-message-english-netsplit "netsplit: %s" (#$ . 6875))#@58 Message template for key `netjoin' in catalog `english'. (defvar erc-message-english-netjoin "netjoin: %s, %N were split" (#$ . 7107))#@63 Message template for key `netjoin-done' in catalog `english'. (defvar erc-message-english-netjoin-done "netjoin: All lost souls are back!" (#$ . 7247))#@64 Message template for key `netsplit-none' in catalog `english'. (defvar erc-message-english-netsplit-none "No netsplits in progress" (#$ . 7404))#@67 Message template for key `netsplit-wholeft' in catalog `english'. (defvar erc-message-english-netsplit-wholeft "split: %s missing: %n %t" (#$ . 7554))#@44 Show/don't show rejoins. (fn PROC PARSED) (defalias 'erc-netsplit-JOIN #[514 "\302!>\204\303\304\305D\"\210\211\306H\307 \211\203\211@AAA\235\203z\3068\204M\310\311\312 !\313\314@\315AAAG&\210\211AA\316\240\210\317\320@#\210\321\233\204j\310\311\312 !\322\314@&\210\323 \"\202w\211AA\211\324A\"\241\266\316\262\210A\202\210\207" [cl-struct-erc-response-tags erc-netsplit-list type-of signal wrong-type-argument erc-response 2 nil erc-display-message notice process-buffer netjoin 115 78 t run-hook-with-args erc-netjoin-hook 4 netjoin-done delq delete] 15 (#$ . 7710)])#@51 Hide mode changes from servers. (fn PROC PARSED) (defalias 'erc-netsplit-MODE #[514 "\303\304\305!>\204\306\307\310D\"\210\311H\"\205' \203%\312\313\314!\315$\210\n?\207" [cl-struct-erc-response-tags erc-netsplit-debug 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."] 8 (#$ . 8325)])#@37 Detect netsplits. (fn PROC PARSED) (defalias 'erc-netsplit-QUIT #[514 "\303!>\204\304\305\306D\"\210\211\307H\303!>\204!\304\305\306D\"\210\310H\311\312 \"\205\204\313\n\"\262\211\203e\211AAAAAB\241\210\3108\203\203\314\315\316!\317\320&\210\211AA\321\240\210\322\323#\210\202\203\324 \311F\nB\314\315\316!\317\320&\210\322\323#\210\321\207" [cl-struct-erc-response-tags erc-netsplit-regexp erc-netsplit-list type-of signal wrong-type-argument erc-response 5 2 nil string-match assoc erc-display-message notice process-buffer netsplit 115 t run-hook-with-args erc-netsplit-hook erc-current-time] 12 (#$ . 8779)])#@71 Clean cruft from `erc-netsplit-list' older than 10 minutes. (fn NOW) (defalias 'erc-netsplit-timer #[257 "\2050 \211\205.\211@\303A@\"\304V\203)\n\203$\305\306\307p\310@P$\210\311 \"\210A\202\262\207" [erc-server-connected erc-netsplit-list erc-netsplit-debug erc-time-diff 600 erc-display-message nil notice "Netsplit: Removing " delq] 9 (#$ . 9439)])#@18 Show who's gone. (defalias 'erc-cmd-WHOLEFT #[0 "\302!\211\205\n\303!\211\205\304!\211\203Xrq\210 \204'\305\306\307\310\311$\210\202W \211\203V\211@\305\306\307\310\312\313@\314\315\316\nAAA\317#\320\321 8\203M\322\202N\323&\n\266A\202(\210)\324\207" [erc-server-process erc-netsplit-list processp process-buffer buffer-live-p erc-display-message nil notice active netsplit-none netsplit-wholeft 115 110 mapconcat erc-extract-nick " " 116 2 "(joining)" "" t] 18 (#$ . 9811)]) (byte-code "\300\301\302\"\210\303\304!\207" [defalias erc-cmd-WL erc-cmd-WHOLEFT provide erc-netsplit] 3)