[Emacs-diffs] /srv/bzr/emacs/trunk r99499: (ad-compile-function): Suppress byte-compiler warnings, since it is annoying

[Stefan Monnier]

------------------------------------------------------------
revno: 99499
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2010-02-15 14:55:51 -0500
message:
  (ad-compile-function): Suppress byte-compiler warnings, since it is annoying
  for the user to see them each time he runs the code.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/advice.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-02-15 15:04:53 +0000
+++ b/lisp/ChangeLog    2010-02-15 19:55:51 +0000
@@ -1,3 +1,9 @@
+2010-02-15  Stefan Monnier  <address@hidden>
+
+       * 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  <address@hidden>
 
        * 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  <address@hidden>
 

=== modified file 'lisp/emacs-lisp/advice.el'
--- a/lisp/emacs-lisp/advice.el 2010-01-23 23:05:16 +0000
+++ b/lisp/emacs-lisp/advice.el 2010-02-15 19:55:51 +0000
@@ -2685,7 +2685,9 @@
       (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))