# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1082574629 0
# Node ID 1376729a93a7a8642ba1d6e381242b04a64b2ec5
# Parent  4728f7603f2abda71ed6dd5453fdbdd0341e3413
(with-no-warnings): Simplify: take all args as &rest arg.

diff -r 4728f7603f2a -r 1376729a93a7 lisp/emacs-lisp/byte-run.el
--- a/lisp/emacs-lisp/byte-run.el	Wed Apr 21 19:09:01 2004 +0000
+++ b/lisp/emacs-lisp/byte-run.el	Wed Apr 21 19:10:29 2004 +0000
@@ -134,11 +134,10 @@
   ;; Remember, it's magic.
   (cons 'progn body))
 
-(defun with-no-warnings (&optional first &rest body)
+(defun with-no-warnings (&rest body)
   "Like `progn', but prevents compiler warnings in the body."
   ;; The implementation for the interpreter is basically trivial.
-  (if body (car (last body))
-    first))
+  (car (last body)))
 
 
 ;;; I nuked this because it's not a good idea for users to think of using it.