Mercurial > emacs

changeset 46196:73cafacdf14f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ad-compile-function): Disable cl-function warnings if cl is loaded.
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 Jul 2002 09:37:09 +0000
parents 7a5696eb36e5
children 7384ea4d758d
files lisp/emacs-lisp/advice.el
diffstat 1 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/advice.el	Sun Jul 07 09:21:52 2002 +0000
+++ b/lisp/emacs-lisp/advice.el	Sun Jul 07 09:37:09 2002 +0000
@@ -2698,7 +2698,14 @@
       ;; Need to turn off auto-activation
       ;; because `byte-compile' uses `fset':
       (ad-with-auto-activation-disabled
-       (let ((symbol (make-symbol "advice-compilation")))
+       (require 'bytecomp)
+       (let ((symbol (make-symbol "advice-compilation"))
+	     (byte-compile-warnings
+	      (if (listp byte-compile-warnings) byte-compile-warnings
+		byte-compile-warning-types)))
+	 (if (featurep 'cl)
+	     (setq byte-compile-warnings
+		   (remq 'cl-functions byte-compile-warnings)))
 	 (fset symbol (symbol-function function))
 	 (byte-compile symbol)
 	 (fset function (symbol-function symbol))))))