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 |
(let ((symbol (make-symbol "advice-compilation"))) |
(require 'bytecomp) |
2702 |
|
(let ((symbol (make-symbol "advice-compilation")) |
2703 |
|
(byte-compile-warnings |
2704 |
|
(if (listp byte-compile-warnings) byte-compile-warnings |
2705 |
|
byte-compile-warning-types))) |
2706 |
|
(if (featurep 'cl) |
2707 |
|
(setq byte-compile-warnings |
2708 |
|
(remq 'cl-functions byte-compile-warnings))) |
2709 |
(fset symbol (symbol-function function)) |
(fset symbol (symbol-function function)) |
2710 |
(byte-compile symbol) |
(byte-compile symbol) |
2711 |
(fset function (symbol-function symbol)))))) |
(fset function (symbol-function symbol)))))) |