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)
           (featurep 'nadvice)
           (let ((ofunc (advice--symbol-function func)))
             (if (advice--p ofunc)
                 (advice--cd*r ofunc)
               ofunc)))
      func))