diff options
| author | Stefan Monnier | 2022-06-11 23:50:35 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2022-06-11 23:50:35 -0400 |
| commit | 4a3a73dd32bbb424cc3cbab31adc8a84d0b5916f (patch) | |
| tree | 022fcedbed83bba56825ca5b1d23d91aa2afc5e0 | |
| parent | 6aa8baaea1b872a9b770d680849b9b1b95eb2840 (diff) | |
| download | emacs-4a3a73dd32bbb424cc3cbab31adc8a84d0b5916f.tar.gz emacs-4a3a73dd32bbb424cc3cbab31adc8a84d0b5916f.zip | |
* lisp/emacs-lisp/find-func.el (find-function-advised-original): Simplify
| -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) |