[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 4a2d39020c2: * lisp/emacs-lisp/nadvice.el (advice--add-function):
From: |
Andrea Corallo |
Subject: |
master 4a2d39020c2: * lisp/emacs-lisp/nadvice.el (advice--add-function): Move func decl. |
Date: |
Thu, 16 Nov 2023 03:17:04 -0500 (EST) |
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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 4a2d39020c2: * lisp/emacs-lisp/nadvice.el (advice--add-function): Move func decl.,
Andrea Corallo <=