elisp-advice-function.el

elisp-advice-function.el

;;; Advice Functions

(defun my-tracing-function (orig-fun &rest args)
  "My tracing functions."
  ;; (message "Old buffer name" (buffer-name))
  (message "ace-window called with args %S" args)
  (let ((res (apply orig-fun args)))
    (message "ace-window returned %S" res)
    res))

;;; Higher
(advice-add 'ace-window :around #'my-tracing-function)
(advice-remove 'ace-window #'my-tracing-function)

;;; Lower
(add-function :around (symbol-function 'ace-window) #'my-tracing-function)
(remove-function (symbol-function 'ace-window) #'my-tracing-function)