Gecko [ 122.154.134.11 ]

Name	Size	Permission
advice.elc	60.71 KB	-rw-r--r--
assoc.elc	4.37 KB	-rw-r--r--
authors.elc	27.41 KB	-rw-r--r--
autoload.elc	15.7 KB	-rw-r--r--
avl-tree.elc	15.92 KB	-rw-r--r--
backquote.elc	4.46 KB	-rw-r--r--
benchmark.elc	3.33 KB	-rw-r--r--
bindat.elc	10.84 KB	-rw-r--r--
byte-opt.elc	34.22 KB	-rw-r--r--
byte-run.elc	6.65 KB	-rw-r--r--
bytecomp.elc	124.99 KB	-rw-r--r--
check-declare.elc	8.77 KB	-rw-r--r--
checkdoc.elc	65.08 KB	-rw-r--r--
cl-compat.elc	4.28 KB	-rw-r--r--
cl-extra.elc	21.48 KB	-rw-r--r--
cl-indent.elc	13.98 KB	-rw-r--r--
cl-loaddefs.el	39.57 KB	-rw-r--r--
cl-macs.elc	99.36 KB	-rw-r--r--
cl-seq.elc	43.98 KB	-rw-r--r--
cl-specs.el	13.87 KB	-rw-r--r--
cl.elc	20.74 KB	-rw-r--r--
copyright.elc	8.64 KB	-rw-r--r--
crm.elc	7.94 KB	-rw-r--r--
cust-print.elc	12.77 KB	-rw-r--r--
debug.elc	24.86 KB	-rw-r--r--
derived.elc	10.72 KB	-rw-r--r--
disass.elc	5.09 KB	-rw-r--r--
easy-mmode.elc	14.85 KB	-rw-r--r--
easymenu.elc	20.15 KB	-rw-r--r--
edebug.elc	100.82 KB	-rw-r--r--
eldoc.elc	15.31 KB	-rw-r--r--
elint.elc	19.76 KB	-rw-r--r--
elp.elc	12.78 KB	-rw-r--r--
ewoc.elc	28.62 KB	-rw-r--r--
find-func.elc	17.26 KB	-rw-r--r--
find-gc.elc	3.74 KB	-rw-r--r--
float-sup.elc	1.39 KB	-rw-r--r--
generic.elc	6.55 KB	-rw-r--r--
gulp.elc	4.82 KB	-rw-r--r--
helper.elc	3.84 KB	-rw-r--r--
levents.elc	10.29 KB	-rw-r--r--
lisp-mnt.elc	21.87 KB	-rw-r--r--
lisp-mode.elc	37.14 KB	-rw-r--r--
lisp.elc	21.61 KB	-rw-r--r--
lmenu.elc	11.67 KB	-rw-r--r--
lucid.elc	6.22 KB	-rw-r--r--
macroexp.elc	4.45 KB	-rw-r--r--
map-ynp.elc	6.3 KB	-rw-r--r--
pp.elc	5.09 KB	-rw-r--r--
re-builder.elc	22.36 KB	-rw-r--r--
regexp-opt.elc	4.43 KB	-rw-r--r--
regi.elc	6.15 KB	-rw-r--r--
ring.elc	6.41 KB	-rw-r--r--
rx.elc	26.61 KB	-rw-r--r--
shadow.elc	5.63 KB	-rw-r--r--
sregex.elc	12.45 KB	-rw-r--r--
syntax.elc	5.18 KB	-rw-r--r--
tcover-ses.elc	14.68 KB	-rw-r--r--
tcover-unsafep.elc	4.09 KB	-rw-r--r--
testcover.elc	13.41 KB	-rw-r--r--
timer.elc	22.73 KB	-rw-r--r--
tq.elc	3.94 KB	-rw-r--r--
trace.elc	5.28 KB	-rw-r--r--
unsafep.elc	5.01 KB	-rw-r--r--
warnings.elc	9.61 KB	-rw-r--r--

Code Editor : elp.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:55 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emacs-lisp/elp.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`elp.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(custom-declare-group 'elp nil "Emacs Lisp Profiler." :group 'lisp)
#@75 *List of functions to profile.
Used by the command `elp-instrument-list'.
(custom-declare-variable 'elp-function-list 'nil '(#$ . -676) :type '(repeat function) :group 'elp)
#@124 *Non-nil means reset all profiling info after results are displayed.
Results are displayed with the `elp-results' command.
(custom-declare-variable 'elp-reset-after-results 't '(#$ . -857) :type 'boolean :group 'elp)
#@634 *Non-nil specifies ELP results sorting function.
These functions are currently available:

elp-sort-by-call-count   -- sort by the highest call count
  elp-sort-by-total-time   -- sort by the highest total time
  elp-sort-by-average-time -- sort by the highest average times

You can write your own sort function.  It should adhere to the
interface specified by the PREDICATE argument for `sort'.
Each "element of LIST" is really a 4 element vector where element 0 is
the call count, element 1 is the total time spent in the function,
element 2 is the average time spent in the function, and element 3 is
the symbol's name string.
(custom-declare-variable 'elp-sort-by-function ''elp-sort-by-total-time '(#$ . -1081) :type 'function :group 'elp)
#@229 *Prevent some functions from being displayed in the results buffer.
If a number, no function that has been called fewer than that number
of times will be displayed in the output buffer.  If nil, all
functions will be displayed.
(custom-declare-variable 'elp-report-limit '1 '(#$ . -1836) :type '(choice integer (const :tag "Show All" nil)) :group 'elp)
#@63 *If non-nil, output to `standard-output' instead of a buffer.
(custom-declare-variable 'elp-use-standard-output 'nil '(#$ . -2195) :type 'boolean :group 'elp)
#@131 *If nil, don't recycle the `elp-results-buffer'.
In other words, a new unique buffer is create every time you run
\[elp-results].
(custom-declare-variable 'elp-recycle-buffers-p 't '(#$ . -2361) :type 'boolean :group 'elp)
#@47 Buffer name for outputting profiling results.
(defvar elp-results-buffer "*ELP Profiling Results*" (#$ . 2590))
#@32 ELP information property name.
(defconst elp-timer-info-property 'elp-info (#$ . 2708))
#@53 List of all functions currently being instrumented.
(defvar elp-all-instrumented-list nil (#$ . 2802))
#@101 Controls whether functions should record times or not.
This variable is set by the master function.
(defvar elp-record-p t (#$ . 2912))
#@25 Master function symbol.
(defvar elp-master nil (#$ . 3054))
#@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) (#$ . 3121))
(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	\242\315=\203'�\313\316\"\210\317!\2042�\313\320\"\210\321!\203=�\322\323\"\322\324\325D\321!\205J�\326\327BBBC\"\330\f\n#\210\331N\211\203r�\330\331\332#\210M\210\330\331
#\210\202v�M\210)>?\205\206�B\211+\207" [funsym funguts infovec newguts elp-timer-info-property advice-info 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) (args) put ad-advice-info nil elp-all-instrumented-list] 7 (#$ . 3708) "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 (#$ . 4594) "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 (#$ . 5062) "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 (#$ . 5479) (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 (#$ . 6026) "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 (#$ . 6324) 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 (#$ . 6507) "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 (#$ . 6792) "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 (#$ . 7083) 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 (#$ . 7262) "aMaster function: "])
#@28 Unset the master function.
(defalias 'elp-unset-master #[nil "\302\303\211\207" [elp-master elp-record-p nil t] 2 (#$ . 7497) nil])
(defalias 'elp-elapsed-time #[(start end) "\302@	@Z\303_A@	A@ZAA@	AA@Z\304\245#\207" [end start + 65536.0 1000000.0] 5])
(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\236�\310\211\f\315\f\315HTI\210\203\\�\316 \313
!\316 \202k�\316 \314
\"\316 \f\317\f\317H\320@@Z\321_A@A@ZAA@AA@Z\322\245#*\\I\210*\203\252�	=\203\252�\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 + 65536.0 1000000.0 result interactive-p args exit-time enter-time end start] 9 (#$ . 7830)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\306B\302\306!\204-�\303\306\304\"\210\307B\302\307!\204<�\303\307\304\"\210\304\207" [current-load-list elp-field-len default-boundp set-default nil elp-cc-len elp-at-len elp-et-len] 3)
(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\211GX\203m�\202\226�\320\321\"\203\220�\322\307\"\306\323\310\225\310\224[\311$O\324\322\310\"Q\202\226�\306O*\211GX\203\254�\202\325�\320\321\"\203\317�\322\307\"\306\323\310\225\310\224[\311$O\324\322\310\"Q\202\325�\306O*\211 c\210\315\316\317 G[\310#\"\210c\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) (#$ . 10352))
#@57 Jump to the definition of the function under the point.
(defalias 'elp-results-jump-to-definition #[(&optional event) "\203&�\301\211:\203�\3028:\203�\302\202�\3038\202#�\304 `\305\306F)!\210\307\310`\311\"!\207" [event posn-set-point 2 1 selected-window (0 . 0) 0 find-function get-text-property elp-symname] 6 (#$ . 10634) (list last-nonmenu-event)])
(defalias 'elp-output-insert-symname #[(symname) "\302\303\304!\305	\306\307\310\311&	c\207" [symname elp-results-symname-map propertize elp-symname intern keymap mouse-face highlight help-echo "mouse-2 or RET jumps to definition"] 10])
#@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\211G\211\313\211 G!\314\211\"G#\315\211$G%\316\317&\"'\f](\204M�)\203\223�
c\210\fV\203_�\320\321\fZ\"\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 + 1 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 (#$ . 11241) nil])
#@33 Unload the Emacs Lisp Profiler.
(defalias 'elp-unload-function #[nil "\300 \210\301\207" [elp-restore-all nil] 1 (#$ . 12938)])
(provide 'elp)

${this.title}

Code Editor : elp.elc