aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/emacs-lisp/find-func.el6
1 files changed, 1 insertions, 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.")
269If FUNC is not a symbol, return it. Else, if it's not advised, 269If FUNC is not a symbol, return it. Else, if it's not advised,
270return the symbol's function definition." 270return the symbol's function definition."
271 (or (and (symbolp func) 271 (or (and (symbolp func)
272 (featurep 'nadvice) 272 (advice--cd*r (symbol-function func)))
273 (let ((ofunc (symbol-function func)))
274 (if (advice--p ofunc)
275 (advice--cd*r ofunc)
276 ofunc)))
277 func)) 273 func))
278 274
279(defun find-function-C-source (fun-or-var file type) 275(defun find-function-C-source (fun-or-var file type)