/[emacs]/emacs/lisp/emacs-lisp/elp.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/elp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26.4.3 by miles, Mon Oct 25 04:22:29 2004 UTC revision 1.26.4.4 by miles, Thu Nov 4 13:12:44 2004 UTC
# Line 257  FUNSYM must be a symbol of a defined fun Line 257  FUNSYM must be a symbol of a defined fun
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

Legend:
Removed from v.1.26.4.3  
changed lines
  Added in v.1.26.4.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26