Mercurial > emacs

changeset 57884:9fdca2852881

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(elp-instrument-function): Use called-interactively-p.
author Richard M. Stallman <rms@gnu.org>
date Tue, 02 Nov 2004 09:27:26 +0000
parents 4e4baf7bbf77
children 539ce55481ef
files lisp/emacs-lisp/elp.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/elp.el	Tue Nov 02 09:26:28 2004 +0000
+++ b/lisp/emacs-lisp/elp.el	Tue Nov 02 09:27:26 2004 +0000
@@ -257,7 +257,7 @@
     (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