From 4a3a73dd32bbb424cc3cbab31adc8a84d0b5916f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 11 Jun 2022 23:50:35 -0400 Subject: [PATCH] * lisp/emacs-lisp/find-func.el (find-function-advised-original): Simplify --- lisp/emacs-lisp/find-func.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 2dec51dd044..ac84b50b5fc 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -269,11 +269,7 @@ defined in C.") 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 (symbol-function func))) - (if (advice--p ofunc) - (advice--cd*r ofunc) - ofunc))) + (advice--cd*r (symbol-function func))) func)) (defun find-function-C-source (fun-or-var file type)