From 1ea22560004f69e5e0848234aeba413141982bb4 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 10 Mar 2014 21:22:24 -0400 Subject: [PATCH] * lisp/emacs-lisp/nadvice.el (advice--make-1): Fix autoloading avoidance. (advice-add): Add a :advice--pending marker, so advice--make-1 knows when the advice is pending. (advice-remove): Remove this marker when not needed any more. --- lisp/ChangeLog | 7 +++++++ lisp/emacs-lisp/nadvice.el | 13 +++++++++---- 2 files changed, 16 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 81f7043562..7998b7aa8f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2014-03-11 Stefan Monnier + + * emacs-lisp/nadvice.el (advice--make-1): Fix autoloading avoidance. + (advice-add): Add a :advice--pending marker, so advice--make-1 knows + when the advice is pending. + (advice-remove): Remove this marker when not needed any more. + 2014-03-11 Juanma Barranquero * frameset.el: Separate options for reusing frames and cleaning up. diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el index 8dc1f19784..f75fb23147 100644 --- a/lisp/emacs-lisp/nadvice.el +++ b/lisp/emacs-lisp/nadvice.el @@ -141,11 +141,12 @@ Each element has the form (WHERE BYTECODE STACK) where: (let ((adv-sig (gethash main advertised-signature-table)) (advice (apply #'make-byte-code 128 byte-code - (vector #'apply function main props) stack-depth - nil + (vector #'apply function main props) stack-depth nil (and (or (commandp function) (commandp main)) - (not (and (symbolp main) ;; Don't autoload too eagerly! - (autoloadp (symbol-function main)))) + ;; If we're adding the advice on advice--pending, don't + ;; build an interactive-form, which won't be used anyway + ;; and would risk autoloading `main' (or `function'). + (not (eq main :advice--pending)) (list (advice--make-interactive-form function main)))))) (when adv-sig (puthash advice adv-sig advertised-signature-table)) @@ -392,6 +393,8 @@ is defined as a macro, alias, command, ..." ;; - `autoload' does nothing if the function is ;; not an autoload or undefined. ((or (not nf) (autoloadp nf)) + (unless (get symbol 'advice--pending) + (put symbol 'advice--pending :advice--pending)) (get symbol 'advice--pending)) (t (symbol-function symbol))) function props) @@ -416,6 +419,8 @@ of the piece of advice." function) (unless (advice--p (advice--symbol-function symbol)) ;; Not advised any more. + (when (eq (get symbol 'advice--pending) :advice--pending) + (put symbol 'advice--pending nil)) (remove-function (get symbol 'defalias-fset-function) #'advice--defalias-fset) (let ((asr (get symbol 'advice--saved-rewrite))) -- 2.20.1