Function: ad-real-definition

ad-real-definition is a byte-compiled function defined in advice.el.gz.

Signature

(ad-real-definition FUNCTION)

Documentation

Find FUNCTION's definition at the end of function cell indirection.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/advice.el.gz
;; The following two are necessary for the sake of packages such as
;; ange-ftp which redefine functions via fcell indirection:
(defun ad-real-definition (function)
  "Find FUNCTION's definition at the end of function cell indirection."
  (if (ad-has-proper-definition function)
      (let ((definition (symbol-function function)))
	(if (symbolp definition)
	    (ad-real-definition definition)
	  definition))))