master 2e16bcd8ede: ad-activate-advised-definition: Use proper function objects

[Stefan Monnier]

branch: master
commit 2e16bcd8ede77e41e0caaf71e1d22edadadc79dd
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    ad-activate-advised-definition: Use proper function objects
    
    * lisp/emacs-lisp/advice.el (ad-activate-advised-definition):
    Use interpreted functions rather than lambda lists.
---
 lisp/emacs-lisp/advice.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 752660156b9..73d11fc8aa8 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2845,7 +2845,11 @@ The current definition and its cache-id will be put into 
the cache."
          (old-ispec (interactive-form advicefunname)))
     (fset advicefunname
           (or verified-cached-definition
-              (ad-make-advised-definition function)))
+              (eval
+               (ad-make-advised-definition function)
+               ;; We don't keep track of the `lexical-binding' of the
+               ;; various chunks: assume it's the old dynbound dialect.
+               nil)))
     (put advicefunname 'function-documentation
         `(ad--make-advised-docstring ',advicefunname))
     (unless (equal (interactive-form advicefunname) old-ispec)