From ea346a5d91b751cd963b952201e1b1f0754a0d60 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 2 Nov 2004 09:27:26 +0000 Subject: [PATCH] (elp-instrument-function): Use called-interactively-p. --- lisp/emacs-lisp/elp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.5