mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/nadvice.el (advice--add-function): Move func decl.

Browse source
This commit is contained in:
Andrea Corallo 2023-11-16 09:03:20 +01:00
parent 7c65ccfc80
commit 4a2d39020c
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/nadvice.el
View file

@ -389,8 +389,6 @@ is also interactive. There are 3 cases:
`(advice--add-function ,how (gv-ref ,(advice--normalize-place place))
,function ,props))
(declare-function comp-subr-trampoline-install "comp-run")
;;;###autoload
(defun advice--add-function (how ref function props)
(when (and (featurep 'native-compile)
@ -408,6 +406,7 @@ is also interactive. There are 3 cases:
;; Must require explicitly as during bootstrap we have no
;; autoloads.
(require 'comp-run)
(declare-function comp-subr-trampoline-install "comp-run")
(comp-subr-trampoline-install subr-name))))
(let* ((name (cdr (assq 'name props)))
(a (advice--member-p (or name function) (if name t) (gv-deref ref))))