mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases 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
Show Stats 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)