[Emacs-diffs] emacs/lisp/emacs-lisp elp.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/11/24 15:09:02

Modified files:
        lisp/emacs-lisp: elp.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/elp.el?cvsroot=emacs&r1=1.44&r2=1.45

Patches:
Index: elp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/elp.el,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -b -r1.44 -r1.45
--- elp.el      6 May 2008 03:21:16 -0000       1.44
+++ elp.el      24 Nov 2008 15:09:02 -0000      1.45
@@ -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)))