Function: ad-set-advice-info-field

ad-set-advice-info-field is a byte-compiled function defined in advice.el.gz.

Signature

(ad-set-advice-info-field FUNCTION FIELD VALUE)

Documentation

Destructively modify VALUE of the advice info FIELD of FUNCTION.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/advice.el.gz
(defun ad-set-advice-info-field (function field value)
  "Destructively modify VALUE of the advice info FIELD of FUNCTION."
  (let ((info (ad-get-advice-info function)))
    (and info
         (cond ((assq field info)
                ;; A field with that name is already present:
                (rplacd (assq field info) value))
	       (t;; otherwise, create a new field with that name:
                (nconc info (list (cons field value))))))))