From: Glenn Morris <rgm@gnu.org>
Date: Sun, 28 Oct 2007 23:52:21 +0000 (+0000)
Subject: (ad-compile-function): Use byte-compile-disable-warning.
X-Git-Tag: emacs-pretest-23.0.90~10011
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e92d2ff73148df56fe4dc57b10480b73c56b184e;p=emacs.git

(ad-compile-function): Use byte-compile-disable-warning.
---

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 21136721e60..f9c778443b4 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2675,12 +2675,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
-	      (if (listp byte-compile-warnings) byte-compile-warnings
-		byte-compile-warning-types)))
+	     (byte-compile-warnings byte-compile-warnings))
 	 (if (featurep 'cl)
-	     (setq byte-compile-warnings
-		   (remq 'cl-functions byte-compile-warnings)))
+	     (byte-compile-disable-warning 'cl-functions))
 	 (fset symbol (symbol-function function))
 	 (byte-compile symbol)
 	 (fset function (symbol-function symbol))))))