aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2010-02-15 15:03:22 -0500
committerStefan Monnier2010-02-15 15:03:22 -0500
commitad10faa16fbe7bcd99973d4b05d53896fbbb0bad (patch)
tree8d964c3fbc2d55ca9634f859b3cc936abc81beef
parent2b8c974a6f6bcfb9b2df3bcf760127841227ed66 (diff)
downloademacs-ad10faa16fbe7bcd99973d4b05d53896fbbb0bad.tar.gz
emacs-ad10faa16fbe7bcd99973d4b05d53896fbbb0bad.zip
(ad-compile-function): Fix last change.
-rw-r--r--lisp/emacs-lisp/advice.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index c8a7ca6a875..17f2ed53ba5 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2687,7 +2687,7 @@ For that it has to be fbound with a non-autoload definition."
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))