Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
emacs-lisp /
Delete
Unzip
Name
Size
Permission
Date
Action
advice.elc
58.25
KB
-rw-r--r--
2023-06-07 04:04
authors.elc
30.49
KB
-rw-r--r--
2023-06-07 04:04
autoload.elc
21.31
KB
-rw-r--r--
2023-06-07 03:59
avl-tree.elc
27.02
KB
-rw-r--r--
2023-06-07 04:04
backquote.elc
4.4
KB
-rw-r--r--
2023-06-07 04:18
benchmark.elc
3.18
KB
-rw-r--r--
2023-06-07 04:04
bindat.elc
10.69
KB
-rw-r--r--
2023-06-07 04:04
byte-opt.elc
35.7
KB
-rw-r--r--
2023-06-07 03:59
byte-run.elc
12.35
KB
-rw-r--r--
2023-06-07 04:18
bytecomp.elc
136.26
KB
-rw-r--r--
2023-06-07 03:59
cconv.elc
15.61
KB
-rw-r--r--
2023-06-07 03:59
chart.elc
22.14
KB
-rw-r--r--
2023-06-07 04:04
check-declare.elc
8.87
KB
-rw-r--r--
2023-06-07 04:04
checkdoc.elc
67.42
KB
-rw-r--r--
2023-06-07 04:04
cl-extra.elc
20.01
KB
-rw-r--r--
2023-06-07 04:04
cl-indent.elc
16.34
KB
-rw-r--r--
2023-06-07 04:04
cl-lib.elc
34.86
KB
-rw-r--r--
2023-06-07 04:04
cl-loaddefs.el
39.75
KB
-rw-r--r--
2013-01-01 15:37
cl-macs.elc
71.79
KB
-rw-r--r--
2023-06-07 04:04
cl-seq.elc
40.03
KB
-rw-r--r--
2023-06-07 04:04
cl.elc
16
KB
-rw-r--r--
2023-06-07 04:04
copyright.elc
10.29
KB
-rw-r--r--
2023-06-07 04:04
crm.elc
7.76
KB
-rw-r--r--
2023-06-07 04:04
debug.elc
26.92
KB
-rw-r--r--
2023-06-07 04:04
derived.elc
11.27
KB
-rw-r--r--
2023-06-07 04:04
disass.elc
5.48
KB
-rw-r--r--
2023-06-07 04:04
easy-mmode.elc
16.81
KB
-rw-r--r--
2023-06-07 04:04
easymenu.elc
20.03
KB
-rw-r--r--
2023-06-07 04:04
edebug.elc
101.25
KB
-rw-r--r--
2023-06-07 04:04
eieio-base.elc
13.18
KB
-rw-r--r--
2023-06-07 04:04
eieio-custom.elc
14.55
KB
-rw-r--r--
2023-06-07 04:04
eieio-datadebug.elc
3.9
KB
-rw-r--r--
2023-06-07 04:04
eieio-opt.elc
20.79
KB
-rw-r--r--
2023-06-07 04:04
eieio-speedbar.elc
12.55
KB
-rw-r--r--
2023-06-07 04:04
eieio.elc
89.24
KB
-rw-r--r--
2023-06-07 04:04
eldoc.elc
15.33
KB
-rw-r--r--
2023-06-07 04:04
elint.elc
31.22
KB
-rw-r--r--
2023-06-07 04:04
elp.elc
12.43
KB
-rw-r--r--
2023-06-07 04:04
ert-x.elc
9.78
KB
-rw-r--r--
2023-06-07 04:04
ert.elc
169.71
KB
-rw-r--r--
2023-06-07 04:04
ewoc.elc
26.49
KB
-rw-r--r--
2023-06-07 04:04
find-func.elc
17.4
KB
-rw-r--r--
2023-06-07 04:04
find-gc.elc
3.54
KB
-rw-r--r--
2023-06-07 04:04
float-sup.elc
1.36
KB
-rw-r--r--
2023-06-07 04:19
generic.elc
6.68
KB
-rw-r--r--
2023-06-07 04:04
gulp.elc
4.69
KB
-rw-r--r--
2023-06-07 04:04
gv.elc
17.81
KB
-rw-r--r--
2023-06-07 04:04
helper.elc
4.03
KB
-rw-r--r--
2023-06-07 04:04
lisp-mnt.elc
22.41
KB
-rw-r--r--
2023-06-07 04:04
lisp-mode.elc
44.27
KB
-rw-r--r--
2023-06-07 04:19
lisp.elc
18.56
KB
-rw-r--r--
2023-06-07 04:19
macroexp.elc
12.84
KB
-rw-r--r--
2023-06-07 04:18
map-ynp.elc
6.42
KB
-rw-r--r--
2023-06-07 04:18
package-x.elc
8.32
KB
-rw-r--r--
2023-06-07 04:04
package.elc
54.49
KB
-rw-r--r--
2023-06-07 04:04
pcase.elc
15.98
KB
-rw-r--r--
2023-06-07 04:04
pp.elc
5.56
KB
-rw-r--r--
2023-06-07 04:04
re-builder.elc
22.81
KB
-rw-r--r--
2023-06-07 04:04
regexp-opt.elc
4.87
KB
-rw-r--r--
2023-06-07 04:19
regi.elc
6.09
KB
-rw-r--r--
2023-06-07 04:04
ring.elc
6.58
KB
-rw-r--r--
2023-06-07 04:04
rx.elc
27.41
KB
-rw-r--r--
2023-06-07 04:04
shadow.elc
9.75
KB
-rw-r--r--
2023-06-07 04:04
smie.elc
35.4
KB
-rw-r--r--
2023-06-07 04:04
syntax.elc
13.69
KB
-rw-r--r--
2023-06-07 04:19
tabulated-list.elc
19.12
KB
-rw-r--r--
2023-06-07 04:19
tcover-ses.elc
15
KB
-rw-r--r--
2023-06-07 04:04
tcover-unsafep.elc
4.02
KB
-rw-r--r--
2023-06-07 04:04
testcover.elc
13.4
KB
-rw-r--r--
2023-06-07 04:04
timer.elc
22.94
KB
-rw-r--r--
2023-06-07 04:19
tq.elc
3.89
KB
-rw-r--r--
2023-06-07 04:04
trace.elc
5.24
KB
-rw-r--r--
2023-06-07 04:04
unsafep.elc
4.92
KB
-rw-r--r--
2023-06-07 04:04
warnings.elc
9.53
KB
-rw-r--r--
2023-06-07 04:04
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:04:49 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/elp.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\302\303\304\305%\210\306\307\302\310\311\312\304\301&\210\306\313\314\315\311\316\304\301&\210\306\317\320\321\311\322\304\301&\210\306\323\324\325\311\326\304\301&\210\306\327\302\330\311\316\304\301&\210\306\331\314\332\311\316\304\301&\207" [custom-declare-group elp nil "Emacs Lisp Profiler." :group lisp custom-declare-variable elp-function-list "List of functions to profile.\nUsed by the command `elp-instrument-list'." :type (repeat function) elp-reset-after-results t "Non-nil means reset all profiling info after results are displayed.\nResults are displayed with the `elp-results' command." boolean elp-sort-by-function 'elp-sort-by-total-time "Non-nil specifies ELP results sorting function.\nThese functions are currently available:\n\n elp-sort-by-call-count -- sort by the highest call count\n elp-sort-by-total-time -- sort by the highest total time\n elp-sort-by-average-time -- sort by the highest average times\n\nYou can write your own sort function. It should adhere to the\ninterface specified by the PREDICATE argument for `sort'.\nEach \"element of LIST\" is really a 4 element vector where element 0 is\nthe call count, element 1 is the total time spent in the function,\nelement 2 is the average time spent in the function, and element 3 is\nthe symbol's name string." function elp-report-limit 1 "Prevent some functions from being displayed in the results buffer.\nIf a number, no function that has been called fewer than that number\nof times will be displayed in the output buffer. If nil, all\nfunctions will be displayed." (choice integer (const :tag "Show All" nil)) elp-use-standard-output "If non-nil, output to `standard-output' instead of a buffer." elp-recycle-buffers-p "If nil, don't recycle the `elp-results-buffer'.\nIn other words, a new unique buffer is create every time you run\n\\[elp-results]."] 8) #@47 Buffer name for outputting profiling results. (defvar elp-results-buffer "*ELP Profiling Results*" (#$ . 2435)) #@32 ELP information property name. (defconst elp-timer-info-property 'elp-info (#$ . 2553)) #@53 List of all functions currently being instrumented. (defvar elp-all-instrumented-list nil (#$ . 2647)) #@101 Controls whether functions should record times or not. This variable is set by the master function. (defvar elp-record-p t (#$ . 2757)) #@25 Master function symbol. (defvar elp-master nil (#$ . 2899)) #@160 List of functions that cannot be profiled. Those functions are used internally by the profiling code and profiling them would thus lead to infinite recursion. (defvar elp-not-profilable '(elp-wrapper called-interactively-p error call-interactively apply current-time + byte-code-function-p functionp byte-code subrp indirect-function fboundp) (#$ . 2966)) (defalias 'elp-profilable-p #[(fun) "9\205$ \302!\205$ >\206# \303!\206# K\242\304>\206# \305\306\307\217?\207" [fun elp-not-profilable fboundp keymapp (autoload macro) nil (byte-code "\301\302!!\205 \303\302!!A\304=\207" [fun subrp indirect-function subr-arity unevalled] 3) ((error))] 3]) #@81 Instrument FUNSYM for profiling. FUNSYM must be a symbol of a defined function. (defalias 'elp-instrument-function #[(funsym) "\306!\210K\307\310\211 #\311 \242\312=\203 \313\314\"\210 \211 \242)\315=\203* \313\316\"\210\317!\2045 \313\320\"\210\321!\203@ \322 \323\"\322 \324\325D\321!\205M \326\327BBBC\"\330 \n#\210\331N\211 \203w \330\331\332#\210 M\210\330\331#\210\202{ M\210) >?\205\213 B\211 +\207" [funsym funguts infovec newguts object elp-timer-info-property elp-restore-function vector 0 (lambda (&rest args)) macro error "ELP cannot profile macro: %s" autoload "ELP cannot profile autoloaded function: %s" elp-profilable-p "ELP cannot profile the function: %s" commandp append ((interactive)) elp-wrapper quote (called-interactively-p 'any) (args) put ad-advice-info nil advice-info elp-all-instrumented-list] 7 (#$ . 3628) "aFunction to instrument: "]) #@115 Restore an instrumented function to its original definition. Argument FUNSYM is the symbol of a defined function. (defalias 'elp-restore-function #[(funsym) " N\306 \"\f=\203 \307\310\311 \307#\210\n\2057 \312!\2057 \313K!?\2057 \314K\236\2057 \n\315HM)\207" [funsym elp-timer-info-property info elp-all-instrumented-list elp-master elp-record-p delq nil t put functionp byte-code-function-p elp-wrapper 2] 4 (#$ . 4533) "aFunction to restore: "]) #@162 Instrument, for profiling, all functions in `elp-function-list'. Use optional LIST if provided instead. If called interactively, read LIST using the minibuffer. (defalias 'elp-instrument-list #[(&optional list) "<\204\f \302\303\304D\"\210\206 \305\306\")\207" [list elp-function-list signal wrong-type-argument listp mapcar elp-instrument-function] 4 (#$ . 5001) "PList of functions to instrument: "]) #@174 Instrument for profiling, all functions which start with PREFIX. For example, to instrument all ELP functions, do the following: \[elp-instrument-package] RET elp- RET (defalias 'elp-instrument-package #[(prefix) "\302G!\203 \303\304!\210\305\306\307\310 \311#\"!\207" [prefix obarray zerop error "Instrumenting all Emacs functions would render Emacs unusable" elp-instrument-list mapcar intern all-completions elp-profilable-p] 7 (#$ . 5418) (list (completing-read "Prefix of package to instrument: " obarray 'elp-profilable-p))]) #@115 Restore the original definitions for all functions in `elp-function-list'. Use optional LIST if provided instead. (defalias 'elp-restore-list #[(&optional list) "\206 \302\303\")\207" [list elp-function-list mapcar elp-restore-function] 3 (#$ . 5965) "PList of functions to restore: "]) #@67 Restore the original definitions of all functions being profiled. (defalias 'elp-restore-all #[nil "\301!\207" [elp-all-instrumented-list elp-restore-list] 2 (#$ . 6263) nil]) #@45 Reset the profiling information for FUNSYM. (defalias 'elp-reset-function #[(funsym) " N\211\204 \303\304\"\210\n\305\211I\210\n\306\307I)\207" [funsym elp-timer-info-property info error "%s is not instrumented for profiling" 0 1 0.0] 4 (#$ . 6446) "aFunction to reset: "]) #@114 Reset the profiling information for all functions in `elp-function-list'. Use optional LIST if provided instead. (defalias 'elp-reset-list #[(&optional list) "\206 \302\303\")\207" [list elp-function-list mapcar elp-reset-function] 3 (#$ . 6731) "PList of functions to reset: "]) #@67 Reset the profiling information for all functions being profiled. (defalias 'elp-reset-all #[nil "\301!\207" [elp-all-instrumented-list elp-reset-list] 2 (#$ . 7022) nil]) #@40 Set the master function for profiling. (defalias 'elp-set-master #[(funsym) "\304 >\206 \305!\207" [funsym elp-master elp-record-p elp-all-instrumented-list nil elp-instrument-function] 2 (#$ . 7201) "aMaster function: "]) #@28 Unset the master function. (defalias 'elp-unset-master #[nil "\302\303\211\207" [elp-master elp-record-p nil t] 2 (#$ . 7436) nil]) (defalias 'elp-elapsed-time #[(start end) "\302\303 \"!\207" [end start float-time time-subtract] 4]) (put 'elp-elapsed-time 'byte-optimizer 'byte-compile-inline-expand) #@199 This function has been instrumented for profiling by the ELP. ELP is the Emacs Lisp Profiler. To restore the function to its original definition, use \[elp-restore-function] or \[elp-restore-all]. (defalias 'elp-wrapper #[(funsym interactive-p args) "\203\f =\203\f \306 N\211 \307H \310 \204 \311\312 \"\210\n\2049 \203/ \313 !\2024 \314 \"\202\205 \310\211 \f\315\f\315HTI\210\203\\ \316 \313 !\316 \202k \316 \314 \"\316 \f\317\f\317H \320\321\"!*\\I\210*\203\221 =\203\221 \310+\207" [elp-master funsym elp-record-p elp-timer-info-property info func t 2 nil error "%s is not instrumented for profiling" call-interactively apply 0 current-time 1 float-time time-subtract result interactive-p args exit-time enter-time end start] 8 (#$ . 7748)]) (defvar elp-field-len nil) (defvar elp-cc-len nil) (defvar elp-at-len nil) (defvar elp-et-len nil) (defalias 'elp-sort-by-call-count #[(vec1 vec2) "\302H \302HY\207" [vec1 vec2 0] 3]) (defalias 'elp-sort-by-total-time #[(vec1 vec2) "\302H \302HY\207" [vec1 vec2 1] 3]) (defalias 'elp-sort-by-average-time #[(vec1 vec2) "\302H \302HY\207" [vec1 vec2 2] 3]) (defalias 'elp-pack-number #[(number width) "G X\203 \207\302\303\"\203& \304\305\"\306\307 \310\225\310\224[\311$O\312\304\310\"Q\207\306 O\207" [number width string-match "^\\(.*\\)\\(e[+-].*\\)$" match-string 1 0 - 2 3 "..."] 7]) (put 'elp-pack-number 'byte-optimizer 'byte-compile-inline-expand) (defalias 'elp-output-result #[(resultvec) "\306H\307H\310H\311H \312\211 \312 \313 !\313\n!\313 !\2055 \247\2055 W?\205\361 \314\f!\210\315\316\317\fG[\310#\"\210 c\210\315\316\317 G[\310#\"\210 \211 G X\203m \202\226 \320\321 \"\203\220 \322\307 \"\306\323 \310\225\310\224[\311$O\324\322\310 \"Q\202\226 \306 O* \211 G X\203\254 \202\325 \320\321 \"\203\317 \322\307 \"\306\323 \310\225\310\224[\311$O\324\322\310 \"Q\202\325 \306 O* \211 c\210\315\316\317 G[\310#\"\210 c\210*\325c.\207" [resultvec cc tt at symname callcnt 0 1 2 3 nil number-to-string elp-output-insert-symname insert-char 32 + string-match "^\\(.*\\)\\(e[+-].*\\)$" match-string - "..." "\n" totaltime avetime elp-report-limit elp-field-len elp-cc-len elp-et-len width number elp-at-len atstr ttstr] 9]) #@42 Keymap used on the function name column. (defvar elp-results-symname-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\304#\210)\207" [map make-sparse-keymap define-key [mouse-2] elp-results-jump-to-definition [follow-link] mouse-face " "] 4) (#$ . 10061)) #@57 Jump to the definition of the function under the point. (defalias 'elp-results-jump-to-definition #[(&optional event) "\203\n \301\302!!\210\303\304`\305\"!\207" [event posn-set-point event-end find-function get-text-property elp-symname] 4 (#$ . 10343) (list last-nonmenu-event)]) (defalias 'elp-output-insert-symname #[(symname) "\302\303\304!\305 \306\307\310\311\312\313& c\207" [symname elp-results-symname-map propertize elp-symname intern keymap mouse-face highlight face link help-echo "mouse-2 or RET jumps to definition"] 12]) #@181 Display current profiling results. If `elp-reset-after-results' is non-nil, then current profiling information for all instrumented functions is reset after results are displayed. (defalias 'elp-results #[nil "p\203 \306 !\202 \307 !\nq\210\310 \210\311 \312\211 G\211 \313\211 G !\314\211 \"G #\315\211 $G %\316\317&\" ' \f] (\204M )\203\223 c\210\f V\203_ \320\321\f Z\"\210\322 \322\"\322$\323\261\210\320\324 \"\210\322c\210\320\324!\"\210\322c\210\320\324#\"\210\322c\210\320\324%\"\210\323c\210\202\245 \311 *\325\326 \"$F\327#+),\203\262 \330',\"'\331\332'\"\210. q\210\333\n!\210(\204\313 )\203\324 \334ed{!\210\202\327 eb\210-\205\336 \335 *\207" [elp-recycle-buffers-p elp-results-buffer resultsbuf curbuf longest title get-buffer-create generate-new-buffer erase-buffer 0 "Function Name" "Call Count" "Elapsed Time" "Average Time" mapcar #[(funsym) " N\306\307\"\n\310H \n\311H \n\204 \312 \261\2029 G]\313\f \314\f!\2030 \315\2027 \316 !\316\f!\245 $,\207" [funsym elp-timer-info-property info symname cc tt format "%s" 0 1 "No profiling information found for: " vector zerop 0.0 float longest] 6] insert-char 32 " " "\n" 61 mapconcat #[(title) "\303\304\305\306\307E\310\311% P\312\313\314U\203 \n\202 G#\207" [column title elp-field-len propertize " " display space :align-to face fixed-pitch + 2 0] 6] "" sort mapc elp-output-result pop-to-buffer princ elp-reset-all titlelen elp-field-len cc-header elp-cc-len et-header elp-et-len at-header elp-at-len elp-all-instrumented-list resvec elp-use-standard-output noninteractive column header-line-format elp-sort-by-function elp-reset-after-results] 8 (#$ . 10891) nil]) #@33 Unload the Emacs Lisp Profiler. (defalias 'elp-unload-function #[nil "\300 \210\301\207" [elp-restore-all nil] 1 (#$ . 12588)]) (provide 'elp)