Aurora
Adminer
Auto Root
WP Admin
cPanel Reset
Anti Backdoor
Root
usr
share
emacs
27.2
lisp
erc
Upload
New Folder
New File
Name
Size
Permissions
Actions
..
-
-
-
Upload File
Select File
New Folder
Folder Name
New File
File Name
Add WordPress Admin
Database Host
Database Name
Database User
Database Password
Admin Username
Admin Password
cPanel Password Reset
Email Address
Edit: 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)