Mercurial > emacs
comparison lisp/emacs-lisp/advice.el @ 108944:b9c2b845f2e6
* lisp/emacs-lisp/advice.el (ad-compile-function):
Define warning-suppress-types before we let-bind it.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 08 Jun 2010 21:18:31 -0400 |
| parents | 2c62b10c201b |
| children | 280c8ae2476d 376148b31b5e |
comparison
equal
deleted
inserted
replaced
| 108943:04a1a4b18129 | 108944:b9c2b845f2e6 |
|---|---|
| 2682 (if (ad-is-compilable function) | 2682 (if (ad-is-compilable function) |
| 2683 ;; Need to turn off auto-activation | 2683 ;; Need to turn off auto-activation |
| 2684 ;; because `byte-compile' uses `fset': | 2684 ;; because `byte-compile' uses `fset': |
| 2685 (ad-with-auto-activation-disabled | 2685 (ad-with-auto-activation-disabled |
| 2686 (require 'bytecomp) | 2686 (require 'bytecomp) |
| 2687 (require 'warnings) ;To define warning-suppress-types | |
| 2688 ;before we let-bind it. | |
| 2687 (let ((symbol (make-symbol "advice-compilation")) | 2689 (let ((symbol (make-symbol "advice-compilation")) |
| 2688 (byte-compile-warnings byte-compile-warnings) | 2690 (byte-compile-warnings byte-compile-warnings) |
| 2689 ;; Don't pop up windows showing byte-compiler warnings. | 2691 ;; Don't pop up windows showing byte-compiler warnings. |
| 2690 (warning-suppress-types '((bytecomp)))) | 2692 (warning-suppress-types '((bytecomp)))) |
| 2691 (if (featurep 'cl) | 2693 (if (featurep 'cl) |