Lines Matching +defs:cc +defs:list
30 ;; If you want to profile a bunch of functions, set elp-function-list
31 ;; to the list of symbols, then do a M-x elp-instrument-list. This
78 ;; Here is a list of variable you can use to customize elp:
79 ;; elp-function-list
84 ;; Here is a list of the interactive commands you can use:
87 ;; elp-instrument-list
88 ;; elp-restore-list
92 ;; elp-reset-list
138 (defcustom elp-function-list nil
140 Used by the command `elp-instrument-list'."
200 (defvar elp-all-instrumented-list nil
216 ;; to help me find this list.
259 ;; newly loaded list of functions. i'm not sure it's smart to do
291 ;; The 2nd element is the old function definition list. This gets
295 ;; put the info vector on the property list
310 ;; add this function to the instrumentation list
311 (unless (memq funsym elp-all-instrumented-list)
312 (push funsym elp-all-instrumented-list))))
319 ;; delete the function from the all instrumented list
320 (setq elp-all-instrumented-list
321 (delq funsym elp-all-instrumented-list))
347 (defun elp-instrument-list (&optional list)
348 "Instrument for profiling, all functions in `elp-function-list'.
351 (let ((list (or list elp-function-list)))
352 (mapcar 'elp-instrument-function list)))
361 (list (completing-read "Prefix of package to instrument: "
365 (elp-instrument-list
370 (defun elp-restore-list (&optional list)
371 "Restore the original definitions for all functions in `elp-function-list'.
374 (let ((list (or list elp-function-list)))
375 (mapcar 'elp-restore-function list)))
380 (elp-restore-list elp-all-instrumented-list))
395 (defun elp-reset-list (&optional list)
396 "Reset the profiling information for all functions in `elp-function-list'.
399 (let ((list (or list elp-function-list)))
400 (mapcar 'elp-reset-function list)))
405 (elp-reset-list elp-all-instrumented-list))
415 (or (memq funsym elp-all-instrumented-list)
480 (defvar elp-cc-len nil)
517 (let* ((cc (aref resultvec 0))
522 (setq callcnt (number-to-string cc)
528 (< cc elp-report-limit))
534 (insert-char 32 (+ elp-cc-len (- (length callcnt)) 2))
551 (interactive (list last-nonmenu-event))
581 (cc-header "Call Count")
582 (elp-cc-len (length cc-header))
593 (cc (aref info 0))
599 (vector cc tt (if (zerop cc)
601 (/ (float tt) (float cc)))
603 elp-all-instrumented-list))
610 (insert " " cc-header " " et-header " " at-header "\n")
613 (insert-char ?= elp-cc-len)
619 ;; if sorting is enabled, then sort the results list. in either