# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1193615541 0
# Node ID bd2837f89a3b03cb5fdb8338c7e854bdf832723c
# Parent  2797206f47b83676945a311f4ebf03a40531c16a
(ad-compile-function): Use byte-compile-disable-warning.

diff -r 2797206f47b8 -r bd2837f89a3b lisp/emacs-lisp/advice.el
--- a/lisp/emacs-lisp/advice.el	Sun Oct 28 23:51:52 2007 +0000
+++ b/lisp/emacs-lisp/advice.el	Sun Oct 28 23:52:21 2007 +0000
@@ -2675,12 +2675,9 @@
       (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))))))