From: Andrea Corallo <acorallo@gnu.org>
Date: Thu, 16 Nov 2023 08:03:20 +0000 (+0100)
Subject: * lisp/emacs-lisp/nadvice.el (advice--add-function): Move func decl.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4a2d39020c299332004bb2de1a698c18df40fe02;p=emacs.git

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

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