* lisp/emacs-lisp/advice.el (ad-compile-function):

Define warning-suppress-types before we let-bind it.

Fixes: debbugs:6275

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 57115bba4000568661197120d718a3af7d099c7d..d193663ed09e57152917eb13a5c94d4345cd1768 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 17f2ed53ba5465b1bf4f8966bbab90725b7ec09e..9267bc8ac91fc0e1cecd84dcbc42c7e35760f274 100644 (file)
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2684,6 +2684,8 @@ For that it has to be fbound with a non-autoload definition."
       ;; 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.