[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99844: * lisp/emacs-lisp/advice.el (ad-compile-function):

[Stefan Monnier]

------------------------------------------------------------
revno: 99844
committer: Stefan Monnier <address@hidden>
branch nick: emacs-23
timestamp: Tue 2010-06-08 21:18:31 -0400
message:
  * lisp/emacs-lisp/advice.el (ad-compile-function):
  Define warning-suppress-types before we let-bind it.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/advice.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-06-09 01:12:53 +0000
+++ b/lisp/ChangeLog    2010-06-09 01:18:31 +0000
@@ -1,5 +1,8 @@
 2010-06-09  Stefan Monnier  <address@hidden>
 
+       * 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.

=== modified file 'lisp/emacs-lisp/advice.el'
--- a/lisp/emacs-lisp/advice.el 2010-02-15 20:03:22 +0000
+++ b/lisp/emacs-lisp/advice.el 2010-06-09 01:18:31 +0000
@@ -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.