diff options
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 6 |
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.") | |||
| 269 | If FUNC is not a symbol, return it. Else, if it's not advised, | 269 | If FUNC is not a symbol, return it. Else, if it's not advised, |
| 270 | return the symbol's function definition." | 270 | return 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) |