Mercurial > hg > xemacs-beta

comparison lisp/utils/elp.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents b82b59fe008d
children 6075d714658b
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
133 133
134 134
135 ;; start of user configuration variables 135 ;; start of user configuration variables
136 ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv 136 ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
137 137
138 (defvar elp-function-list nil 138 (defgroup elp nil
139 "Emacs Lisp Profiler"
140 :group 'lisp)
141
142
143 (defcustom elp-function-list nil
139 "*List of functions to profile. 144 "*List of functions to profile.
140 Used by the command `elp-instrument-list'.") 145 Used by the command `elp-instrument-list'."
141 146 :type '(repeat function)
142 (defvar elp-reset-after-results t 147 :group 'elp)
148
149 (defcustom elp-reset-after-results t
143 "*Non-nil means reset all profiling info after results are displayed. 150 "*Non-nil means reset all profiling info after results are displayed.
144 Results are displayed with the `elp-results' command.") 151 Results are displayed with the `elp-results' command."
145 152 :type 'boolean
146 (defvar elp-sort-by-function 'elp-sort-by-total-time 153 :group 'elp)
154
155 (defcustom elp-sort-by-function 'elp-sort-by-total-time
147 "*Non-nil specifies elp results sorting function. 156 "*Non-nil specifies elp results sorting function.
148 These functions are currently available: 157 These functions are currently available:
149 158
150 elp-sort-by-call-count -- sort by the highest call count 159 elp-sort-by-call-count -- sort by the highest call count
151 elp-sort-by-total-time -- sort by the highest total time 160 elp-sort-by-total-time -- sort by the highest total time
154 You can write you're own sort function. It should adhere to the 163 You can write you're own sort function. It should adhere to the
155 interface specified by the PRED argument for the `sort' defun. Each 164 interface specified by the PRED argument for the `sort' defun. Each
156 \"element of LIST\" is really a 4 element vector where element 0 is 165 \"element of LIST\" is really a 4 element vector where element 0 is
157 the call count, element 1 is the total time spent in the function, 166 the call count, element 1 is the total time spent in the function,
158 element 2 is the average time spent in the function, and element 3 is 167 element 2 is the average time spent in the function, and element 3 is
159 the symbol's name string.") 168 the symbol's name string."
160 169 :type 'function
161 (defvar elp-report-limit 1 170 :group 'elp)
171
172 (defcustom elp-report-limit 1
162 "*Prevents some functions from being displayed in the results buffer. 173 "*Prevents some functions from being displayed in the results buffer.
163 If a number, no function that has been called fewer than that number 174 If a number, no function that has been called fewer than that number
164 of times will be displayed in the output buffer. If nil, all 175 of times will be displayed in the output buffer. If nil, all
165 functions will be displayed.") 176 functions will be displayed."
166 177 :type '(choice integer
167 (defvar elp-use-standard-output nil 178 (const :tag "All" nil))
168 "*Non-nil says to output to `standard-output' instead of a buffer.") 179 :group 'elp)
169 180
170 (defvar elp-recycle-buffers-p t 181 (defcustom elp-use-standard-output nil
182 "*Non-nil says to output to `standard-output' instead of a buffer."
183 :type 'boolean
184 :group 'elp)
185
186 (defcustom elp-recycle-buffers-p t
171 "*Nil says to not recycle the `elp-results-buffer'. 187 "*Nil says to not recycle the `elp-results-buffer'.
172 In other words, a new unique buffer is create every time you run 188 In other words, a new unique buffer is create every time you run
173 \\[elp-results].") 189 \\[elp-results]."
190 :type 'boolean
191 :group 'elp)
174 192
175 193
176 ;; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 194 ;; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
177 ;; end of user configuration variables 195 ;; end of user configuration variables
178 196