Function: ad-make-hook-form

ad-make-hook-form is a byte-compiled function defined in advice.el.gz.

Signature

(ad-make-hook-form FUNCTION HOOK-NAME)

Documentation

Make hook-form from FUNCTION's advice bodies in class HOOK-NAME.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/advice.el.gz
;; This is needed for activation/deactivation hooks:
(defun ad-make-hook-form (function hook-name)
  "Make hook-form from FUNCTION's advice bodies in class HOOK-NAME."
  (let ((hook-forms
         (mapcar (lambda (advice)
                   (ad-body-forms (ad-advice-definition advice)))
		 (ad-get-enabled-advices function hook-name))))
    (if hook-forms
	(macroexp-progn (apply 'append hook-forms)))))