From: Chong Yidong <cyd@stupidchicken.com>
Date: Mon, 24 Nov 2008 15:09:02 +0000 (+0000)
Subject: (elp-instrument-list): Check argument type explicitly.  Doc fix.
X-Git-Tag: emacs-pretest-23.0.90~1577
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=edad5f97011f156f4cd3ee46b4354a883c133a06;p=emacs.git

(elp-instrument-list): Check argument type explicitly.  Doc fix.
---

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