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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8f1c5574e413a3455eed5d1d32d883fcb9404926..d2cf0e271bf64cc586c8b819f6e315371ef2b271 100644 (file)
--- 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 003f70ea4a5905fba278a5dc910394ca4c548f4e..c8a7ca6a875b63ede9719c71aa476798ea9fcc5b 100644 (file)
--- 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))