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

[Andrea Corallo]

branch: master
commit 4a2d39020c299332004bb2de1a698c18df40fe02
Author: Andrea Corallo <acorallo@gnu.org>
Commit: Andrea Corallo <acorallo@gnu.org>

    * lisp/emacs-lisp/nadvice.el (advice--add-function): Move func decl.
---
 lisp/emacs-lisp/nadvice.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el
index 98efb4c9c28..6c5b11d2bd4 100644
--- a/lisp/emacs-lisp/nadvice.el
+++ b/lisp/emacs-lisp/nadvice.el
@@ -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))))