[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/advice.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/10/28 23:52:21

Index: advice.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/advice.el,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -b -r1.58 -r1.59
--- advice.el   23 Oct 2007 08:40:53 -0000      1.58
+++ advice.el   28 Oct 2007 23:52:21 -0000      1.59
@@ -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))))))