procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(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
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: