# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1227539342 0
# Node ID 7784aa29294bf300a219720f6c0f73e77eb45c88
# Parent  923f0775555f7d2a6e357882c55c1d1503cea819
(elp-instrument-list): Check argument type explicitly.  Doc fix.

diff -r 923f0775555f -r 7784aa29294b lisp/emacs-lisp/elp.el
--- a/lisp/emacs-lisp/elp.el	Mon Nov 24 15:08:52 2008 +0000
+++ b/lisp/emacs-lisp/elp.el	Mon Nov 24 15:09:02 2008 +0000
@@ -340,9 +340,12 @@
 
 ;;;###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)))