From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 25 Nov 2004 02:58:34 +0000 (+0000)
Subject: (byte-optimize-form-code-walker):
X-Git-Tag: ttn-vms-21-2-B4~3688
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4cead7a2061908496ad8faf0fe0db451fa28b57e;p=emacs.git

(byte-optimize-form-code-walker):
Use with-no-warnings around compiler-macroexpand.
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 4ea9398f93d..acb882dd9a3 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -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))