Function: ad-has-enabled-advice

ad-has-enabled-advice is a byte-compiled function defined in advice.el.gz.

Signature

(ad-has-enabled-advice FUNCTION CLASS)

Documentation

True if at least one of FUNCTION's advices in CLASS is enabled.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/advice.el.gz
;; @@ Advice access functions:
;; ===========================

(defun ad-has-enabled-advice (function class)
  "True if at least one of FUNCTION's advices in CLASS is enabled."
  (cl-dolist (advice (ad-get-advice-info-field function class))
    (if (ad-advice-enabled advice) (cl-return t))))