diff lisp/emacs-lisp/byte-run.el @ 55041:1376729a93a7

(with-no-warnings): Simplify: take all args as &rest arg.

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