From ae122ad2d485518df1708303fa7fe1556315e916 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 21 Apr 2004 19:10:29 +0000 Subject: [PATCH] (with-no-warnings): Simplify: take all args as &rest arg. --- lisp/emacs-lisp/byte-run.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 9956d5003cc..4ed47129fc9 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -134,11 +134,10 @@ The result of the body appears to the compiler as a quoted constant." ;; 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. -- 2.39.5