# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1276046311 14400
# Node ID b9c2b845f2e62ee1fca6224e7d06fe50993047b3
# Parent  04a1a4b181298c9eeb44b75c4bd513858ca5a09d
* lisp/emacs-lisp/advice.el (ad-compile-function):
Define warning-suppress-types before we let-bind it.

diff -r 04a1a4b18129 -r b9c2b845f2e6 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jun 08 21:12:53 2010 -0400
+++ b/lisp/ChangeLog	Tue Jun 08 21:18:31 2010 -0400
@@ -1,5 +1,8 @@
 2010-06-09  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* emacs-lisp/advice.el (ad-compile-function):
+	Define warning-suppress-types before we let-bind it (bug#6275).
+
 	* vc-dispatcher.el: Rename mode-line-hook to vc-mode-line-hook;
 	declare it, make it buffer-local and permanent-local (bug#6324).
 	(vc-resynch-window): Adjust name.
diff -r 04a1a4b18129 -r b9c2b845f2e6 lisp/emacs-lisp/advice.el
--- a/lisp/emacs-lisp/advice.el	Tue Jun 08 21:12:53 2010 -0400
+++ b/lisp/emacs-lisp/advice.el	Tue Jun 08 21:18:31 2010 -0400
@@ -2684,6 +2684,8 @@
       ;; because `byte-compile' uses `fset':
       (ad-with-auto-activation-disabled
        (require 'bytecomp)
+       (require 'warnings)              ;To define warning-suppress-types
+                                        ;before we let-bind it.
        (let ((symbol (make-symbol "advice-compilation"))
 	     (byte-compile-warnings byte-compile-warnings)
              ;; Don't pop up windows showing byte-compiler warnings.