# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1099387646 0
# Node ID 9fdca28528812fd6da6f8f6929fe2a136c7ac718
# Parent  4e4baf7bbf77185c3494bca01720968b0da5d036
(elp-instrument-function): Use called-interactively-p.

diff -r 4e4baf7bbf77 -r 9fdca2852881 lisp/emacs-lisp/elp.el
--- 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