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)))))) |