Fix previous change.

2004-04-21 19:13:00 +00:00
parent 0a0eb031ad
commit a4f6653194
1 changed files with 1 additions and 2 deletions
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -3716,8 +3716,7 @@ being undefined will be suppressed."
 (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