# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1266264202 18000
# Node ID 2c62b10c201bb42e05af0427640aaaf29d6d2a99
# Parent  34e2c3832e08e8fc024cafb103530a2a8188941a
(ad-compile-function): Fix last change.

diff -r 34e2c3832e08 -r 2c62b10c201b lisp/emacs-lisp/advice.el
--- a/lisp/emacs-lisp/advice.el	Mon Feb 15 14:55:51 2010 -0500
+++ b/lisp/emacs-lisp/advice.el	Mon Feb 15 15:03:22 2010 -0500
@@ -2687,7 +2687,7 @@
        (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))