2698 |
;; Need to turn off auto-activation |
;; Need to turn off auto-activation |
2699 |
;; because `byte-compile' uses `fset': |
;; because `byte-compile' uses `fset': |
2700 |
(ad-with-auto-activation-disabled |
(ad-with-auto-activation-disabled |
2701 |
(byte-compile function)))) |
(let ((symbol (make-symbol "advice-compilation"))) |
2702 |
|
(fset symbol (symbol-function function)) |
2703 |
|
(byte-compile symbol) |
2704 |
|
(fset function (symbol-function symbol)))))) |
2705 |
|
|
2706 |
|
|
2707 |
;; @@ Constructing advised definitions: |
;; @@ Constructing advised definitions: |