martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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))))