mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

(ad-compile-function):

Browse Source 
Byte compile the function under another (uninterned) name.
This commit is contained in:
Richard M. Stallman 2001-12-11 06:07:07 +00:00
parent 38eba48567
commit fe30e73fcd
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2698,7 +2698,10 @@ For that it has to be fbound with a non-autoload definition."
;; Need to turn off auto-activation
;; because `byte-compile' uses `fset':
(ad-with-auto-activation-disabled
(byte-compile function))))
(let ((symbol (make-symbol "advice-compilation")))
(fset symbol (symbol-function function))
(byte-compile symbol)
(fset function (symbol-function symbol))))))
;; @@ Constructing advised definitions: