elp-instrument-file

[Kevin Rodgers]

elp-instrument-package allows you to profile all the functions whose name begins
with a PACKAGE- prefix.  But what if you want to profile all the functions in a
a library, regardless of their name -- for example, the files.el library that is
distributed with Emacs and dumped in the executable.

(defun elp-instrument-file (file)
  "Instrument for profiling, all functions defined in FILE.
FILE is a regexp matching a key in the `load-history' alist."
  (interactive
   (list (concat "\\`"
                 (regexp-quote (completing-read "File to instrument: "
                                                load-history
                                                nil t))
                 "\\'")))
(dolist (entry (cdr (load-history-filename-element file)))
  (when (and (consp entry)
             (eq (car entry) 'defun)
             (elp-profilable-p (cdr entry)))
    (elp-instrument-function (cdr entry)))))

--
Kevin Rodgers
Denver, Colorado, USA