diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-02-15 14:55:51 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-02-15 14:55:51 -0500 |
| commit | 2b8c974a6f6bcfb9b2df3bcf760127841227ed66 (patch) | |
| tree | f8d0c32eaca4d40178aa72a1f8c33bb7d974d4e5 /lisp/emacs-lisp/advice.el | |
| parent | 7540f029959d8e67882d1304419171424143e494 (diff) | |
| download | emacs-2b8c974a6f6bcfb9b2df3bcf760127841227ed66.tar.gz | |
(ad-compile-function): Suppress byte-compiler warnings, since it is annoying
for the user to see them each time he runs the code.
Diffstat (limited to 'lisp/emacs-lisp/advice.el')
| -rw-r--r-- | lisp/emacs-lisp/advice.el | 4 |
1 files changed, 3 insertions, 1 deletions
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)) |