# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1054120243 0
# Node ID 5f08948e8c4bcc503b8370f044885652fc0175f7
# Parent  80973470ed3ece5978cf5b0a5932dc777e26864f
(with-no-warnings): New function.

diff -r 80973470ed3e -r 5f08948e8c4b lisp/byte-run.el
--- a/lisp/byte-run.el	Wed May 28 11:02:52 2003 +0000
+++ b/lisp/byte-run.el	Wed May 28 11:10:43 2003 +0000
@@ -131,6 +131,12 @@
   ;; 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