Function: find-function-advised-original

find-function-advised-original is a byte-compiled function defined in find-func.el.gz.

Signature

(find-function-advised-original FUNC)

Documentation

Return the original function definition of an advised function FUNC.

If FUNC is not a symbol, return it. Else, if it's not advised, return the symbol's function definition.

This function has :around advice: find-function-advised-original@transient-default-infix.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/find-func.el.gz
(defun find-function-advised-original (func)
  "Return the original function definition of an advised function FUNC.
If FUNC is not a symbol, return it.  Else, if it's not advised,
return the symbol's function definition."
  (or (and (symbolp func)
           (advice--cd*r (symbol-function func)))
      func))