From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 2 Nov 2004 09:27:26 +0000 (+0000)
Subject: (elp-instrument-function): Use called-interactively-p.
X-Git-Tag: ttn-vms-21-2-B4~4240
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea346a5d91b751cd963b952201e1b1f0754a0d60;p=emacs.git

(elp-instrument-function): Use called-interactively-p.
---

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