From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 28 May 2003 11:10:43 +0000 (+0000)
Subject: (with-no-warnings): New function.
X-Git-Tag: ttn-vms-21-2-B4~9908
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc237647dc8db86e9595869dd1f485b0d5213823;p=emacs.git

(with-no-warnings): New function.
---

diff --git a/lisp/byte-run.el b/lisp/byte-run.el
index 538214b7093..a28f89cd91a 100644
--- a/lisp/byte-run.el
+++ b/lisp/byte-run.el
@@ -131,6 +131,12 @@ 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)
+  "Like `progn', but prevents compiler warnings in the body."
+  ;; The implementation for the interpreter is basically trivial.
+  (if body (car (last body))
+    first))
+
 
 ;;; I nuked this because it's not a good idea for users to think of using it.
 ;;; These options are a matter of installation preference, and have nothing to