Mercurial > emacs
comparison lisp/emacs-lisp/elp.el @ 99872:7784aa29294b
(elp-instrument-list): Check argument type explicitly. Doc fix.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 24 Nov 2008 15:09:02 +0000 |
| parents | 90a2847062be |
| children | 684861183d28 |
comparison
equal
deleted
inserted
replaced
| 99871:923f0775555f | 99872:7784aa29294b |
|---|---|
| 338 (assq 'elp-wrapper (symbol-function funsym)) | 338 (assq 'elp-wrapper (symbol-function funsym)) |
| 339 (fset funsym (aref info 2))))) | 339 (fset funsym (aref info 2))))) |
| 340 | 340 |
| 341 ;;;###autoload | 341 ;;;###autoload |
| 342 (defun elp-instrument-list (&optional list) | 342 (defun elp-instrument-list (&optional list) |
| 343 "Instrument for profiling, all functions in `elp-function-list'. | 343 "Instrument, for profiling, all functions in `elp-function-list'. |
| 344 Use optional LIST if provided instead." | 344 Use optional LIST if provided instead. |
| 345 If called interactively, read LIST using the minibuffer." | |
| 345 (interactive "PList of functions to instrument: ") | 346 (interactive "PList of functions to instrument: ") |
| 347 (unless (listp list) | |
| 348 (signal 'wrong-type-argument 'listp list)) | |
| 346 (let ((list (or list elp-function-list))) | 349 (let ((list (or list elp-function-list))) |
| 347 (mapcar 'elp-instrument-function list))) | 350 (mapcar 'elp-instrument-function list))) |
| 348 | 351 |
| 349 ;;;###autoload | 352 ;;;###autoload |
| 350 (defun elp-instrument-package (prefix) | 353 (defun elp-instrument-package (prefix) |