martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ad-activate-advised-definition: Use proper function objects

Browse Source 
* lisp/emacs-lisp/advice.el (ad-activate-advised-definition):
Use interpreted functions rather than lambda lists.
This commit is contained in:
Stefan Monnier
2024-05-30 18:57:56 -04:00
parent 0d7d835902
commit 2e16bcd8ed
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/emacs-lisp/advice.el
View File

@@ -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)