From fc237647dc8db86e9595869dd1f485b0d5213823 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 28 May 2003 11:10:43 +0000 Subject: [PATCH] (with-no-warnings): New function. --- lisp/byte-run.el | 6 ++++++ 1 file changed, 6 insertions(+) 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 -- 2.39.2