Commit 004b6f61 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(ad-compile-function): Disable cl-function warnings if cl is loaded.

parent 8fd9c174
......@@ -2698,7 +2698,14 @@ 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
(let ((symbol (make-symbol "advice-compilation")))
(require 'bytecomp)
(let ((symbol (make-symbol "advice-compilation"))
(byte-compile-warnings
(if (listp byte-compile-warnings) byte-compile-warnings
byte-compile-warning-types)))
(if (featurep 'cl)
(setq byte-compile-warnings
(remq 'cl-functions byte-compile-warnings)))
(fset symbol (symbol-function function))
(byte-compile symbol)
(fset function (symbol-function symbol))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment