Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
advice.elc	54 KB	-rw-r--r--
autoload.elc	28.25 KB	-rw-r--r--
avl-tree.elc	27.45 KB	-rw-r--r--
backquote.elc	4.68 KB	-rw-r--r--
backtrace.elc	40.98 KB	-rw-r--r--
benchmark.elc	3.74 KB	-rw-r--r--
bindat.elc	10.73 KB	-rw-r--r--
byte-opt.elc	39.59 KB	-rw-r--r--
byte-run.elc	17.44 KB	-rw-r--r--
bytecomp.elc	154.17 KB	-rw-r--r--
cconv.elc	20.71 KB	-rw-r--r--
chart.elc	25.98 KB	-rw-r--r--
check-declare.elc	9.01 KB	-rw-r--r--
checkdoc.elc	74.78 KB	-rw-r--r--
cl-extra.elc	29.37 KB	-rw-r--r--
cl-generic.elc	59.25 KB	-rw-r--r--
cl-indent.elc	18.03 KB	-rw-r--r--
cl-lib.elc	31.72 KB	-rw-r--r--
cl-loaddefs.el	45.79 KB	-rw-r--r--
cl-macs.elc	90.7 KB	-rw-r--r--
cl-preloaded.elc	27.28 KB	-rw-r--r--
cl-print.elc	14.77 KB	-rw-r--r--
cl-seq.elc	38.35 KB	-rw-r--r--
copyright.elc	10.17 KB	-rw-r--r--
crm.elc	7.62 KB	-rw-r--r--
cursor-sensor.elc	6.74 KB	-rw-r--r--
debug.elc	36.42 KB	-rw-r--r--
derived.elc	11.88 KB	-rw-r--r--
disass.elc	6.11 KB	-rw-r--r--
easy-mmode.elc	19.78 KB	-rw-r--r--
easymenu.elc	19.88 KB	-rw-r--r--
edebug.elc	123.13 KB	-rw-r--r--
eieio-base.elc	17.17 KB	-rw-r--r--
eieio-compat.elc	8.41 KB	-rw-r--r--
eieio-core.elc	36.91 KB	-rw-r--r--
eieio-custom.elc	15.8 KB	-rw-r--r--
eieio-datadebug.elc	3.17 KB	-rw-r--r--
eieio-loaddefs.el	3.96 KB	-rw-r--r--
eieio-opt.elc	9.32 KB	-rw-r--r--
eieio-speedbar.elc	13.13 KB	-rw-r--r--
eieio.elc	33.03 KB	-rw-r--r--
eldoc.elc	19.14 KB	-rw-r--r--
elint.elc	30.6 KB	-rw-r--r--
elp.elc	12.68 KB	-rw-r--r--
ert-x.elc	11.48 KB	-rw-r--r--
ert.elc	177.96 KB	-rw-r--r--
ewoc.elc	25.26 KB	-rw-r--r--
faceup.elc	16.97 KB	-rw-r--r--
find-func.elc	21.61 KB	-rw-r--r--
float-sup.elc	1.21 KB	-rw-r--r--
generator.elc	27.42 KB	-rw-r--r--
generic.elc	7.18 KB	-rw-r--r--
gv.elc	22.69 KB	-rw-r--r--
helper.elc	3.96 KB	-rw-r--r--
inline.elc	8.37 KB	-rw-r--r--
let-alist.elc	3.04 KB	-rw-r--r--
lisp-mnt.elc	22.59 KB	-rw-r--r--
lisp-mode.elc	38.03 KB	-rw-r--r--
lisp.elc	21.44 KB	-rw-r--r--
macroexp.elc	18.01 KB	-rw-r--r--
map-ynp.elc	10.54 KB	-rw-r--r--
map.elc	18.25 KB	-rw-r--r--
nadvice.elc	17.65 KB	-rw-r--r--
package-x.elc	9.06 KB	-rw-r--r--
package.elc	146.54 KB	-rw-r--r--
pcase.elc	23.11 KB	-rw-r--r--
pp.elc	5.5 KB	-rw-r--r--
radix-tree.elc	5.88 KB	-rw-r--r--
re-builder.elc	25.78 KB	-rw-r--r--
regexp-opt.elc	6.3 KB	-rw-r--r--
regi.elc	6 KB	-rw-r--r--
ring.elc	6.32 KB	-rw-r--r--
rmc.elc	4.79 KB	-rw-r--r--
rx.elc	40.69 KB	-rw-r--r--
seq.elc	23.64 KB	-rw-r--r--
shadow.elc	9.34 KB	-rw-r--r--
smie.elc	48.84 KB	-rw-r--r--
subr-x.elc	11.17 KB	-rw-r--r--
syntax.elc	26.13 KB	-rw-r--r--
tabulated-list.elc	26.57 KB	-rw-r--r--
tcover-ses.elc	14.29 KB	-rw-r--r--
tcover-unsafep.elc	3.87 KB	-rw-r--r--
testcover.elc	23.03 KB	-rw-r--r--
text-property-search.elc	8.13 KB	-rw-r--r--
thunk.elc	3.06 KB	-rw-r--r--
timer-list.elc	4.3 KB	-rw-r--r--
timer.elc	21.65 KB	-rw-r--r--
tq.elc	3.99 KB	-rw-r--r--
trace.elc	7.27 KB	-rw-r--r--
unsafep.elc	4.45 KB	-rw-r--r--
warnings.elc	9.75 KB	-rw-r--r--

Code Editor : elp.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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\310\311\312DD\313\314\315\304\301&\210\306\316\310\311\317DD\320\314\321\304\301&\210\306\322\310\311\323DD\324\314\311\304\301&\210\306\325\310\311\326DD\327\314\330\304\301&\210\306\331\310\311\332DD\333\314\321\304\301&\210\306\334\310\311\335DD\336\314\321\304\301&\207" [custom-declare-group elp nil "Emacs Lisp Profiler." :group lisp custom-declare-variable elp-function-list funcall function #[0 "\300\207" [nil] 1] "List of functions to profile.\nUsed by the command `elp-instrument-list'." :type (repeat function) elp-reset-after-results #[0 "\300\207" [t] 1] "Non-nil means reset all profiling info after results are displayed.\nResults are displayed with the `elp-results' command." boolean elp-sort-by-function #[0 "\300\207" [elp-sort-by-total-time] 1] "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." elp-report-limit #[0 "\300\207" [1] 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 #[0 "\300\207" [nil] 1] "If non-nil, output to `standard-output' instead of a buffer." elp-recycle-buffers-p #[0 "\300\207" [t] 1] "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*" (#$ . 2493))
#@32 ELP information property name.
(defconst elp-timer-info-property 'elp-info (#$ . 2611))
#@101 Controls whether functions should record times or not.
This variable is set by the master function.
(defvar elp-record-p t (#$ . 2706))
#@25 Master function symbol.
(defvar elp-master nil (#$ . 2848))
#@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 '(called-interactively-p error call-interactively apply current-time + byte-code-function-p functionp byte-code subrp indirect-function fboundp) (#$ . 2915))
#@12

(fn FUN)
(defalias 'elp-profilable-p #[257 "\2119\205&�\301!\205&�\211>\206%�\302!\206%�\211K\211\242\303=\262\206%�\304!?\207" [elp-not-profilable fboundp keymapp autoload special-form-p] 4 (#$ . 3265)])
(defconst elp--advice-name 'ELP-instrumentation\ )
#@94 Instrument FUNSYM for profiling.
FUNSYM must be a symbol of a defined function.

(fn FUNSYM)
(defalias 'elp-instrument-function #[257 "\302\303\211\"\304!\204�\305\306\"\210\307#\210\310\311\312!\313	B\314B$\207" [elp-timer-info-property elp--advice-name vector 0 elp-profilable-p error "ELP cannot profile the function: %s" put advice-add :around elp--make-wrapper name ((depth . -99))] 8 (#$ . 3534) "aFunction to instrument: "])
#@12

(fn SYM)
(defalias 'elp--instrumented-p #[257 "\301\"\207" [elp--advice-name advice-member-p] 4 (#$ . 3980)])
#@128 Restore an instrumented function to its original definition.
Argument FUNSYM is the symbol of a defined function.

(fn FUNSYM)
(defalias 'elp-restore-function #[257 "\211=\203\n�\304\305\306\n\304#\210\307\"\207" [elp-master elp-record-p elp-timer-info-property elp--advice-name nil t put advice-remove] 5 (#$ . 4101) (byte-code "\301\302\303\304\305$!C\207" [obarray intern completing-read "Function to restore: " elp--instrumented-p t] 6)])
#@225 Instrument, for profiling, all functions in `elp-function-list'.
Use optional LIST if provided instead.
If called interactively, prompt for LIST in the minibuffer;
type "nil" to use `elp-function-list'.

(fn &optional LIST)
(defalias 'elp-instrument-list #[256 "\211<\204\f�\301\302\303D\"\210\304\305\206�\"\207" [elp-function-list signal wrong-type-argument listp mapcar elp-instrument-function] 5 (#$ . 4558) "xList of functions to instrument: "])
#@187 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

(fn PREFIX)
(defalias 'elp-instrument-package #[257 "\211G\301U\203�\302\303!\210\304\305\306\307\310#\"!\207" [obarray 0 error "Instrumenting all Emacs functions would render Emacs unusable" elp-instrument-list mapcar intern all-completions elp-profilable-p] 8 (#$ . 5020) (byte-code "\301\302\303#C\207" [obarray completing-read "Prefix of package to instrument: " elp-profilable-p] 4)])
#@136 Restore the original definitions for all functions in `elp-function-list'.
Use optional LIST if provided instead.

(fn &optional LIST)
(defalias 'elp-restore-list #[256 "\301\302\206�\"\207" [elp-function-list mapcar elp-restore-function] 4 (#$ . 5595) "PList of functions to restore: "])
#@67 Restore the original definitions of all functions being profiled.
(defalias 'elp-restore-all #[0 "\300\301!\207" [mapatoms elp-restore-function] 2 (#$ . 5893) nil])
#@58 Reset the profiling information for FUNSYM.

(fn FUNSYM)
(defalias 'elp-reset-function #[257 "\211N\211\204\f�\301\302\"\210\211\303\211I\210\211\304\305I\207" [elp-timer-info-property error "%s is not instrumented for profiling" 0 1 0.0] 5 (#$ . 6064) "aFunction to reset: "])
#@135 Reset the profiling information for all functions in `elp-function-list'.
Use optional LIST if provided instead.

(fn &optional LIST)
(defalias 'elp-reset-list #[256 "\211\206�\301\302\"\207" [elp-function-list mapcar elp-reset-function] 5 (#$ . 6351) "PList of functions to reset: "])
#@67 Reset the profiling information for all functions being profiled.
(defalias 'elp-reset-all #[0 "\300\301!\207" [mapatoms #[257 "\211N\205	�\301!\207" [elp-timer-info-property elp-reset-function] 3 "\n\n(fn SYM)"]] 2 (#$ . 6646) nil])
#@53 Set the master function for profiling.

(fn FUNSYM)
(defalias 'elp-set-master #[257 "\211\302\303!\206
�\304!\207" [elp-master elp-record-p nil elp--instrumented-p elp-instrument-function] 3 (#$ . 6888) (byte-code "\302\303\304\305\306\307\211	\205�\310	!&!C\207" [obarray elp-master intern completing-read "Master function: " elp--instrumented-p t nil symbol-name] 10)])
#@28 Unset the master function.
(defalias 'elp-unset-master #[0 "\302\303\211\207" [elp-master elp-record-p nil t] 2 (#$ . 7273) nil])
#@18

(fn START END)
(defalias 'elp-elapsed-time #[514 "\300\301\"!\207" [float-time time-subtract] 6 (#$ . 7411)])
(put 'elp-elapsed-time 'byte-optimizer 'byte-compile-inline-expand)
#@64 Make the piece of advice that instruments FUNSYM.

(fn FUNSYM)
(defalias 'elp--make-wrapper #[257 "\300\301\302\303\304!\305\"\306\307%\207" [make-byte-code 385 "	\203\f�\300	=\203\f�\304\300N\305\204�\306\307\300\"\210\n\204&�\310\"\262\202O�\305\211\311\311HTI\266\312 \262\310\"\262\211\313\313H\305\314\315\"!\266\202\\I\266	\203[�\300	=\203[�\305\207" vconcat vector [elp-master elp-record-p elp-timer-info-property t nil error "%s is not instrumented for profiling" apply 0 current-time 1 float-time time-subtract] 15 "This function has been instrumented for profiling by the ELP.\nELP is the Emacs Lisp Profiler.  To restore the function to its\noriginal definition, use \\[elp-restore-function] or \\[elp-restore-all].\n\n(fn FUNC &rest ARGS)"] 7 (#$ . 7599)])
(defvar elp-field-len nil)
(defvar elp-cc-len nil)
(defvar elp-at-len nil)
(defvar elp-et-len nil)
#@18

(fn VEC1 VEC2)
(defalias 'elp-sort-by-call-count #[514 "\300H\300HY\207" [0] 5 (#$ . 8495)])
#@18

(fn VEC1 VEC2)
(defalias 'elp-sort-by-total-time #[514 "\300H\300HY\207" [1] 5 (#$ . 8598)])
#@18

(fn VEC1 VEC2)
(defalias 'elp-sort-by-average-time #[514 "\300H\300HY\207" [2] 5 (#$ . 8701)])
#@21

(fn NUMBER WIDTH)
(defalias 'elp-pack-number #[514 "GX\203	�\207\300\301\"\203'�\302\303\304\"\305\306\307\225\307\224[\310$#\311\303\307\"Q\207\302\305#\207" [string-match "^\$.*\$\$e[+-].*\$$" substring match-string 1 0 - 2 3 "..."] 10 (#$ . 8806)])
(put 'elp-pack-number 'byte-optimizer 'byte-compile-inline-expand)
#@18

(fn RESULTVEC)
(defalias 'elp-output-result #[257 "\211\305H\306H\307H\310H\311\211\211\312!\262\312!\262\312!\262\205-�\247\205-�W?\205\324�\313!\210\314\315\316	G[\307#\"\210c\210\314\315\316\nG[\307#\"\210GX\203_�\266\202\202\210�\317\320\"\203\201�\321\322\306\"\305\323\307\225\307\224[\310$#\324\322\307\"Q\266\202\202\210�\321\305#\266\202\fGX\203\227�\266\202\202\300�\317\320\"\203\271�\321\322\306\"\305\323\307\225\307\224[\310$#\324\322\307\"Q\266\202\202\300�\321\305#\266\202c\210\314\315\316G[\307#\"\210\211c\266\325c\207" [elp-report-limit elp-field-len elp-cc-len elp-et-len elp-at-len 0 1 2 3 nil number-to-string elp-output-insert-symname insert-char 32 + string-match "^\$.*\$\$e[+-].*\$$" substring match-string - "..." "\n"] 19 (#$ . 9146)])
#@42 Keymap used on the function name column.
(defvar elp-results-symname-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\303#\210\211\207" [make-sparse-keymap define-key [mouse-2] elp-results-jump-to-definition [follow-link] mouse-face "
"] 5) (#$ . 9970))
#@79 Jump to the definition of the function under the point.

(fn &optional EVENT)
(defalias 'elp-results-jump-to-definition #[256 "\211\203\n�\300\301!!\210\302\303`\304\"!\207" [posn-set-point event-end find-function get-text-property elp-symname] 5 (#$ . 10248) (list last-nonmenu-event)])
#@16

(fn SYMNAME)
(defalias 'elp-output-insert-symname #[257 "\301\302\303!\304\305\306\307\310\311\312&c\207" [elp-results-symname-map propertize elp-symname intern keymap mouse-face highlight face link help-echo "mouse-2 or RET jumps to definition"] 13 (#$ . 10543)])
#@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 #[0 "p\203�\306	!\202�\307	!\211q\210\310 \210\311C\312\211G\211\313\211G\314\211G\315\211G\316C\317\320\321\322\323\324\f\"\325\"\326\327%!\210\242])\204K�*\203\216�c\210\242V\203`�\330\331\242Z\"\210\332\332\332\333\261\210\330\334\n\"\210\332c\210\330\334\"\210\332c\210\330\334\f\"\210\332c\210\330\334
\"\210\333c\210\202\254�\311C\335\320\321\336\323\324!\337\"\340\341%F\342#+\210,\203\272�\211\343\242,\"\240\210\344\345\242\"\210,\266q\210\346!\210)\204\324�*\203\335�\347ed{!\210\202\340�eb\210-\205\347�\350 \207" [elp-recycle-buffers-p elp-results-buffer elp-field-len elp-cc-len elp-et-len elp-at-len get-buffer-create generate-new-buffer erase-buffer 0 "Function Name" "Call Count" "Elapsed Time" "Average Time" nil mapatoms make-byte-code 257 "\303!\205E�\211\nN\304\305\"\306H\307H\204�\310\261\202C�\300\211\242G]\240\210\301\311\306U\2034�\312\202<�\313!\313!\245$\301\242B\240\266\204\207" vconcat vector [elp-timer-info-property elp--instrumented-p format "%s" 0 1 "No profiling information found for: " vector 0.0 float] 12 "\n\n(fn FUNSYM)" insert-char 32 "  " "\n" 61 mapconcat "\302\303\304\305\306\300\242E\307\310%P\300\311\300\242\312\300\242\313U\203�	\202�G#\240\210\207" [elp-field-len propertize " " display space :align-to face fixed-pitch + 2 0] 8 "\n\n(fn TITLE)" "" sort mapc elp-output-result pop-to-buffer princ elp-reset-all elp-use-standard-output noninteractive header-line-format elp-sort-by-function elp-reset-after-results] 17 (#$ . 10821) nil])
#@33 Unload the Emacs Lisp Profiler.
(defalias 'elp-unload-function #[0 "\300 \210\301\207" [elp-restore-all nil] 1 (#$ . 12591)])
(byte-code "\300\301\302\303\304\305%\210\306\307!\207" [cl-generic-define-method loadhist-unload-element (:before :extra "elp") ((x (head defun))) nil #[257 "\300A!\207" [elp-restore-function] 3 "Un-instrument before unloading a function.\n\n(fn X)"] provide elp] 6)

${this.title}

Code Editor : elp.elc