diff options
| author | Chong Yidong | 2008-11-24 15:09:02 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-11-24 15:09:02 +0000 |
| commit | edad5f97011f156f4cd3ee46b4354a883c133a06 (patch) | |
| tree | 89004d9d098a3c5dec08633c0e33ad35bbd2e228 | |
| parent | 443a1c3f44a6a1a63dbb7286360ba2545627f935 (diff) | |
| download | emacs-edad5f97011f156f4cd3ee46b4354a883c133a06.tar.gz emacs-edad5f97011f156f4cd3ee46b4354a883c133a06.zip | |
(elp-instrument-list): Check argument type explicitly. Doc fix.
| -rw-r--r-- | lisp/emacs-lisp/elp.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el index 53eeea144cc..435c30c75ec 100644 --- a/lisp/emacs-lisp/elp.el +++ b/lisp/emacs-lisp/elp.el | |||
| @@ -340,9 +340,12 @@ Argument FUNSYM is the symbol of a defined function." | |||
| 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 | ||