diff options
| author | Richard M. Stallman | 2004-11-02 09:27:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-11-02 09:27:26 +0000 |
| commit | ea346a5d91b751cd963b952201e1b1f0754a0d60 (patch) | |
| tree | 7c03a222d7ee6a0cfa94c83f8132a13c87b8c88b | |
| parent | da6e3103c4143e18ed96c943b1519fc3e137ea66 (diff) | |
| download | emacs-ea346a5d91b751cd963b952201e1b1f0754a0d60.tar.gz emacs-ea346a5d91b751cd963b952201e1b1f0754a0d60.zip | |
(elp-instrument-function): Use called-interactively-p.
| -rw-r--r-- | lisp/emacs-lisp/elp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el index 17991067fab..d701db9e9b6 100644 --- a/lisp/emacs-lisp/elp.el +++ b/lisp/emacs-lisp/elp.el | |||
| @@ -257,7 +257,7 @@ FUNSYM must be a symbol of a defined function." | |||
| 257 | (setq newguts (append newguts `((elp-wrapper | 257 | (setq newguts (append newguts `((elp-wrapper |
| 258 | (quote ,funsym) | 258 | (quote ,funsym) |
| 259 | ,(when (commandp funsym) | 259 | ,(when (commandp funsym) |
| 260 | '(interactive-p)) | 260 | '(called-interactively-p)) |
| 261 | args)))) | 261 | args)))) |
| 262 | ;; to record profiling times, we set the symbol's function | 262 | ;; to record profiling times, we set the symbol's function |
| 263 | ;; definition so that it runs the elp-wrapper function with the | 263 | ;; definition so that it runs the elp-wrapper function with the |