# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1101351514 0
# Node ID 2176686c8a1950bb994fd56dc607896dd82f78d6
# Parent  5df4ac03694d1285340e83207e9b51d0bd51c218
(byte-optimize-form-code-walker):
Use with-no-warnings around compiler-macroexpand.

diff -r 5df4ac03694d -r 2176686c8a19 lisp/emacs-lisp/byte-opt.el
--- a/lisp/emacs-lisp/byte-opt.el	Thu Nov 25 02:57:47 2004 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Thu Nov 25 02:58:34 2004 +0000
@@ -520,7 +520,8 @@
 		(symbolp (car-safe form))
 		(get (car-safe form) 'cl-compiler-macro)
 	        (not (eq form
-		         (setq form (compiler-macroexpand form)))))
+			 (with-no-warnings
+			  (setq form (compiler-macroexpand form))))))
 	   (byte-optimize-form form for-effect))
 
 	  ((not (symbolp fn))