From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Apr 2004 19:12:04 +0000 (+0000)
Subject: (byte-compile-no-warnings): Handle multiple args: compile like progn.
X-Git-Tag: ttn-vms-21-2-B4~6685
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a0eb031ad22316fc25b80afbf1595e5bcdb59ac;p=emacs.git

(byte-compile-no-warnings): Handle multiple args: compile like progn.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 43e0732104f..224fd366a41 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -3716,7 +3716,8 @@ 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)
-    (byte-compile-form (cadr form))))
+    (setcar form 'progn)
+    (byte-compile-form form)))
 
 ;;; tags