From 989bc97f04f8143a7ab51088f9861da8d5df45f1 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 8 Jun 2010 21:18:31 -0400 Subject: [PATCH] * lisp/emacs-lisp/advice.el (ad-compile-function): Define warning-suppress-types before we let-bind it. Fixes: debbugs:6275 --- lisp/ChangeLog | 3 +++ lisp/emacs-lisp/advice.el | 2 ++ 2 files changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 57115bba40..d193663ed0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-06-09 Stefan Monnier + * 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 17f2ed53ba..9267bc8ac9 100644 --- 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. -- 2.20.1