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) |