emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 4a3a73dd32: * lisp/emacs-lisp/find-func.el (find-function-advised


From: Stefan Monnier
Subject: master 4a3a73dd32: * lisp/emacs-lisp/find-func.el (find-function-advised-original): Simplify
Date: Sat, 11 Jun 2022 23:50:40 -0400 (EDT)

branch: master
commit 4a3a73dd32bbb424cc3cbab31adc8a84d0b5916f
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * 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 2dec51dd04..ac84b50b5f 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]