Function: advice--make-1

advice--make-1 is a byte-compiled function defined in nadvice.el.gz.

Signature

(advice--make-1 BYTE-CODE STACK-DEPTH FUNCTION MAIN PROPS)

Documentation

Build a function value that adds FUNCTION to MAIN.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/nadvice.el.gz
(defun advice--make-1 (byte-code stack-depth function main props)
  "Build a function value that adds FUNCTION to MAIN."
  (let ((adv-sig (gethash main advertised-signature-table))
        (advice
         (apply #'make-byte-code 128 byte-code
                (vector #'apply function main props) stack-depth nil
                (and (or (commandp function) (commandp main))
                     (list (advice--make-interactive-form
                            function main))))))
    (when adv-sig (puthash advice adv-sig advertised-signature-table))
    advice))