Mercurial > emacs
comparison lisp/emacs-lisp/advice.el @ 107153:2c62b10c201b
(ad-compile-function): Fix last change.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 15 Feb 2010 15:03:22 -0500 |
| parents | 34e2c3832e08 |
| children | b9c2b845f2e6 |
comparison
equal
deleted
inserted
replaced
| 107152:34e2c3832e08 | 107153:2c62b10c201b |
|---|---|
| 2685 (ad-with-auto-activation-disabled | 2685 (ad-with-auto-activation-disabled |
| 2686 (require 'bytecomp) | 2686 (require 'bytecomp) |
| 2687 (let ((symbol (make-symbol "advice-compilation")) | 2687 (let ((symbol (make-symbol "advice-compilation")) |
| 2688 (byte-compile-warnings byte-compile-warnings) | 2688 (byte-compile-warnings byte-compile-warnings) |
| 2689 ;; Don't pop up windows showing byte-compiler warnings. | 2689 ;; Don't pop up windows showing byte-compiler warnings. |
| 2690 (warning-suppress-types '(bytecomp))) | 2690 (warning-suppress-types '((bytecomp)))) |
| 2691 (if (featurep 'cl) | 2691 (if (featurep 'cl) |
| 2692 (byte-compile-disable-warning 'cl-functions)) | 2692 (byte-compile-disable-warning 'cl-functions)) |
| 2693 (fset symbol (symbol-function function)) | 2693 (fset symbol (symbol-function function)) |
| 2694 (byte-compile symbol) | 2694 (byte-compile symbol) |
| 2695 (fset function (symbol-function symbol)))))) | 2695 (fset function (symbol-function symbol)))))) |