procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 2004-11-02 09:27:26 +00:00
parent da6e3103c4
commit ea346a5d91
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/elp.el
View file

@ -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