aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2022-06-11 23:50:35 -0400
committerStefan Monnier2022-06-11 23:50:35 -0400
commit4a3a73dd32bbb424cc3cbab31adc8a84d0b5916f (patch)
tree022fcedbed83bba56825ca5b1d23d91aa2afc5e0
parent6aa8baaea1b872a9b770d680849b9b1b95eb2840 (diff)
downloademacs-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.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)