diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-11-02 09:27:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-11-02 09:27:26 +0000 |
| commit | ea346a5d91b751cd963b952201e1b1f0754a0d60 (patch) | |
| tree | 7c03a222d7ee6a0cfa94c83f8132a13c87b8c88b /lisp/emacs-lisp | |
| parent | da6e3103c4143e18ed96c943b1519fc3e137ea66 (diff) | |
| download | emacs-ea346a5d91b751cd963b952201e1b1f0754a0d60.tar.gz emacs-ea346a5d91b751cd963b952201e1b1f0754a0d60.tar.bz2 emacs-ea346a5d91b751cd963b952201e1b1f0754a0d60.zip | |
(elp-instrument-function): Use called-interactively-p.
Diffstat (limited to 'lisp/emacs-lisp')
| -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." (setq newguts (append newguts `((elp-wrapper (quote ,funsym) ,(when (commandp funsym) - '(interactive-p)) + '(called-interactively-p)) args)))) ;; to record profiling times, we set the symbol's function ;; definition so that it runs the elp-wrapper function with the |