diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2008-11-24 15:09:02 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2008-11-24 15:09:02 +0000 |
| commit | edad5f97011f156f4cd3ee46b4354a883c133a06 (patch) | |
| tree | 89004d9d098a3c5dec08633c0e33ad35bbd2e228 /lisp/emacs-lisp | |
| parent | 443a1c3f44a6a1a63dbb7286360ba2545627f935 (diff) | |
| download | emacs-edad5f97011f156f4cd3ee46b4354a883c133a06.tar.gz emacs-edad5f97011f156f4cd3ee46b4354a883c133a06.tar.bz2 emacs-edad5f97011f156f4cd3ee46b4354a883c133a06.zip | |
(elp-instrument-list): Check argument type explicitly. Doc fix.
Diffstat (limited to 'lisp/emacs-lisp')
| -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." ;;;###autoload (defun elp-instrument-list (&optional list) - "Instrument for profiling, all functions in `elp-function-list'. -Use optional LIST if provided instead." + "Instrument, for profiling, all functions in `elp-function-list'. +Use optional LIST if provided instead. +If called interactively, read LIST using the minibuffer." (interactive "PList of functions to instrument: ") + (unless (listp list) + (signal 'wrong-type-argument 'listp list)) (let ((list (or list elp-function-list))) (mapcar 'elp-instrument-function list))) |