]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/emacs-lisp/find-func.el (find-function-advised-original): Simplify
authorStefan Monnier <monnier@iro.umontreal.ca>
Sun, 12 Jun 2022 03:50:35 +0000 (23:50 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Sun, 12 Jun 2022 03:50:35 +0000 (23:50 -0400)
lisp/emacs-lisp/find-func.el

index 2dec51dd044371cf8843e75aec77fa3e8f478602..ac84b50b5fcfd45709266b9fda8ac588a986a9b2 100644 (file)
@@ -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)