diff options
| author | Eli Zaretskii | 2018-02-17 11:59:36 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2018-02-17 11:59:36 +0200 |
| commit | d8917eba1c683d7e4fdbfc38ab52c7bc0025bdc6 (patch) | |
| tree | 9aafabf49bfe30d8b44efc2e864291e0d168e3b1 /lisp | |
| parent | b228839af18c730d25df8755b8c2e45cccd9ce36 (diff) | |
| download | emacs-d8917eba1c683d7e4fdbfc38ab52c7bc0025bdc6.tar.gz emacs-d8917eba1c683d7e4fdbfc38ab52c7bc0025bdc6.zip | |
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." | |||
| 98 | ;;;###autoload | 98 | ;;;###autoload |
| 99 | (defun benchmark (repetitions form) | 99 | (defun benchmark (repetitions form) |
| 100 | "Print the time taken for REPETITIONS executions of FORM. | 100 | "Print the time taken for REPETITIONS executions of FORM. |
| 101 | Interactively, REPETITIONS is taken from the prefix arg. | 101 | Interactively, REPETITIONS is taken from the prefix arg, and |
| 102 | the command prompts for the form to benchmark. | ||
| 102 | For non-interactive use see also `benchmark-run' and | 103 | For non-interactive use see also `benchmark-run' and |
| 103 | `benchmark-run-compiled'." | 104 | `benchmark-run-compiled'." |
| 104 | (interactive "p\nxForm: ") | 105 | (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." | |||
| 278 | (defun elp-instrument-list (&optional list) | 278 | (defun elp-instrument-list (&optional list) |
| 279 | "Instrument, for profiling, all functions in `elp-function-list'. | 279 | "Instrument, for profiling, all functions in `elp-function-list'. |
| 280 | Use optional LIST if provided instead. | 280 | Use optional LIST if provided instead. |
| 281 | If called interactively, read LIST using the minibuffer." | 281 | If called interactively, prompt for LIST in the minibuffer; |
| 282 | (interactive "PList of functions to instrument: ") ;FIXME: Doesn't work?! | 282 | type \"nil\" to use `elp-function-list'." |
| 283 | (interactive "xList of functions to instrument: ") | ||
| 283 | (unless (listp list) | 284 | (unless (listp list) |
| 284 | (signal 'wrong-type-argument (list 'listp list))) | 285 | (signal 'wrong-type-argument (list 'listp list))) |
| 285 | (mapcar #'elp-instrument-function (or list elp-function-list))) | 286 | (mapcar #'elp-instrument-function (or list elp-function-list))) |