[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/emacs-lisp elp.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp/emacs-lisp elp.el |
Date: |
Mon, 24 Nov 2008 15:09:02 +0000 |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/emacs-lisp elp.el,
Chong Yidong <=