[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 4a3a73dd32: * lisp/emacs-lisp/find-func.el (find-function-advised-original): Simplify,
Stefan Monnier <=