;; Screenshot: http://angg.twu.net/IMAGES/find-advicebefore-links.png
;; This file:   http://angg.twu.net/elisp/find-advicebefore-links.el.html
;;              http://angg.twu.net/elisp/find-advicebefore-links.el
;;                      (find-angg "elisp/find-advicebefore-links.el")
;; Code partially generated with:        (find-advicebefore-links 'FOO)
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Public domain.
;;
;; Try: (eval-buffer)



(defun FOO (a b) (+ a b))
(FOO 1 10)
(FOO 2 20)



(setq  ee-log nil)
(defun ee-log (f r) (setq ee-log (cons (cons f r) ee-log)))
(defun ee-log-FOO (&rest r) (ee-log 'FOO r))
(advice-add   'FOO  :before 'ee-log-FOO)
;;
;; These calls will be logged:
(FOO 3 30)
(FOO 4 40)
;;
(advice-remove 'FOO         'ee-log-FOO)
;;
;; These calls will not be logged:
(FOO 5 50)
(FOO 6 60)



;; Inspect the contents of ee-log:
(find-2a nil '(find-eppp ee-log :end))