257 |
(setq newguts (append newguts `((elp-wrapper |
(setq newguts (append newguts `((elp-wrapper |
258 |
(quote ,funsym) |
(quote ,funsym) |
259 |
,(when (commandp funsym) |
,(when (commandp funsym) |
260 |
'(interactive-p)) |
'(called-interactively-p)) |
261 |
args)))) |
args)))) |
262 |
;; to record profiling times, we set the symbol's function |
;; to record profiling times, we set the symbol's function |
263 |
;; definition so that it runs the elp-wrapper function with the |
;; definition so that it runs the elp-wrapper function with the |