mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 06:50:23 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/find-func.el (find-function-advised-original): Simplify

Browse source
This commit is contained in:
Stefan Monnier 2022-06-11 23:50:35 -04:00
parent 6aa8baaea1
commit 4a3a73dd32
1 changed files with 1 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/find-func.el
View file

@ -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)