(ad-compile-function): Suppress byte-compiler warnings, since it is annoying

for the user to see them each time he runs the code.

2 files changed, 11 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8f1c5574e41..d2cf0e271bf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2010-02-15  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * emacs-lisp/advice.el (ad-compile-function): Suppress byte-compiler
+        warnings, since it is annoying for the user to see them each time he
+        runs the code.
+
 2010-02-15  Michael Albinus  <michael.albinus@gmx.de>
 
         * net/tramp.el (tramp-process-actions, tramp-read-passwd):
@@ -5,8 +11,8 @@
         instead of PROC for caching "first-password-request".  Otherwise,
         new processes would not profit from passwords already entered.
 
-        * net/tramp-cache.el (tramp-dump-connection-properties): Don't
-        save "first-password-request" property.
+        * net/tramp-cache.el (tramp-dump-connection-properties):
+        Don't save "first-password-request" property.
 
 2010-02-14  Juanma Barranquero  <lekktu@gmail.com>
 
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 003f70ea4a5..c8a7ca6a875 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2685,7 +2685,9 @@ For that it has to be fbound with a non-autoload definition."
       (ad-with-auto-activation-disabled
        (require 'bytecomp)
        (let ((symbol (make-symbol "advice-compilation"))
-             (byte-compile-warnings byte-compile-warnings))
+             (byte-compile-warnings byte-compile-warnings)
+             ;; Don't pop up windows showing byte-compiler warnings.
+             (warning-suppress-types '(bytecomp)))
          (if (featurep 'cl)
              (byte-compile-disable-warning 'cl-functions))
          (fset symbol (symbol-function function))