Mercurial > emacs

changeset 85729:bd2837f89a3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ad-compile-function): Use byte-compile-disable-warning.
author Glenn Morris <rgm@gnu.org>
date Sun, 28 Oct 2007 23:52:21 +0000
parents 2797206f47b8
children a1e136978a9a
files lisp/emacs-lisp/advice.el
diffstat 1 files changed, 2 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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))))))