diff options
Diffstat (limited to 'lisp/emacs-lisp/elp.el')
| -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))) |