diff options
author | Eli Zaretskii <eliz@gnu.org> | 2018-02-17 11:59:36 +0200 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2018-02-17 11:59:36 +0200 |
commit | d8917eba1c683d7e4fdbfc38ab52c7bc0025bdc6 (patch) | |
tree | 9aafabf49bfe30d8b44efc2e864291e0d168e3b1 /lisp | |
parent | b228839af18c730d25df8755b8c2e45cccd9ce36 (diff) | |
download | emacs-d8917eba1c683d7e4fdbfc38ab52c7bc0025bdc6.tar.gz |
Improve documentation of Profiling features
* doc/lispref/debugging.texi (Profiling): Improve the description
of elp.el. Improve wording of the rest of the section. (Bug#30491)
* lisp/emacs-lisp/elp.el (elp-instrument-list): Make the
interactive invocation work. Doc fix.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/emacs-lisp/benchmark.el | 3 | ||||
-rw-r--r-- | lisp/emacs-lisp/elp.el | 5 |
2 files changed, 5 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/benchmark.el b/lisp/emacs-lisp/benchmark.el index 589e76eaec0..d74446c7479 100644 --- a/lisp/emacs-lisp/benchmark.el +++ b/lisp/emacs-lisp/benchmark.el @@ -98,7 +98,8 @@ result. The overhead of the `lambda's is accounted for." ;;;###autoload (defun benchmark (repetitions form) "Print the time taken for REPETITIONS executions of FORM. -Interactively, REPETITIONS is taken from the prefix arg. +Interactively, REPETITIONS is taken from the prefix arg, and +the command prompts for the form to benchmark. For non-interactive use see also `benchmark-run' and `benchmark-run-compiled'." (interactive "p\nxForm: ") diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el index dab17fd75b6..954e7aa73ae 100644 --- a/lisp/emacs-lisp/elp.el +++ b/lisp/emacs-lisp/elp.el @@ -278,8 +278,9 @@ Argument FUNSYM is the symbol of a defined function." (defun elp-instrument-list (&optional list) "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: ") ;FIXME: Doesn't work?! +If called interactively, prompt for LIST in the minibuffer; +type \"nil\" to use `elp-function-list'." + (interactive "xList of functions to instrument: ") (unless (listp list) (signal 'wrong-type-argument (list 'listp list))) (mapcar #'elp-instrument-function (or list elp-function-list))) |