(ad-compile-function): Fix last change.

This commit is contained in:
Stefan Monnier 2010-02-15 15:03:22 -05:00
parent 2b8c974a6f
commit ad10faa16f

View file

@ -2687,7 +2687,7 @@ For that it has to be fbound with a non-autoload definition."
(let ((symbol (make-symbol "advice-compilation"))
(byte-compile-warnings byte-compile-warnings)
;; Don't pop up windows showing byte-compiler warnings.
(warning-suppress-types '(bytecomp)))
(warning-suppress-types '((bytecomp))))
(if (featurep 'cl)
(byte-compile-disable-warning 'cl-functions))
(fset symbol (symbol-function function))