# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1082574780 0
# Node ID f3cd7742ff364684d6cfc7b962b3364d54919ce5
# Parent  770ebdee721425ba8f34a08ae7835acfc9d50054
Fix previous change.

diff -r 770ebdee7214 -r f3cd7742ff36 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Wed Apr 21 19:12:04 2004 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Wed Apr 21 19:13:00 2004 +0000
@@ -3716,8 +3716,7 @@
 (byte-defop-compiler-1 with-no-warnings byte-compile-no-warnings)
 (defun byte-compile-no-warnings (form)
   (let (byte-compile-warnings)
-    (setcar form 'progn)
-    (byte-compile-form form)))
+    (byte-compile-form (cons 'progn (cdr form)))))
 
 ;;; tags