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

This commit is contained in:
Richard M. Stallman 2004-04-21 19:12:04 +00:00
parent ae122ad2d4
commit 0a0eb031ad

View file

@ -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