From 4a2d39020c299332004bb2de1a698c18df40fe02 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Thu, 16 Nov 2023 09:03:20 +0100 Subject: [PATCH] * 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)))) -- 2.39.2