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

(elp-instrument-function): Handle advised

Browse source 
functions.
This commit is contained in:
Gerd Moellmann 2001-05-17 13:58:14 +00:00
parent e6dd1a4949
commit cebf1b97f3
2 changed files with 18 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,6 +1,6 @@
;;; elp.el --- Emacs Lisp Profiler
;; Copyright (C) 1994,1995,1997,1998 Free Software Foundation, Inc.
;; Copyright (C) 1994,1995,1997,1998, 2001 Free Software Foundation, Inc.
;; Author: 1994-1998 Barry A. Warsaw
;; Maintainer: FSF
@ -266,15 +266,22 @@ FUNSYM must be a symbol of a defined function."
;; put the info vector on the property list
(put funsym elp-timer-info-property infovec)
;; set the symbol's new profiling function definition to run
;; elp-wrapper
(fset funsym newguts)
;; Set the symbol's new profiling function definition to run
;; elp-wrapper.
(let ((advice-info (get funsym 'ad-advice-info)))
(if advice-info
(progn
;; If function is advised, don't let Advice change
;; its definition from under us during the `fset'.
(put funsym 'ad-advice-info nil)
(fset funsym newguts)
(put funsym 'ad-advice-info advice-info))
(fset funsym newguts)))
;; add this function to the instrumentation list
(or (memq funsym elp-all-instrumented-list)
(setq elp-all-instrumented-list
(cons funsym elp-all-instrumented-list)))
))
(cons funsym elp-all-instrumented-list)))))
(defun elp-restore-function (funsym)
"Restore an instrumented function to its original definition.