Moved to obsolete/.

[bpt/emacs.git] / lisp / byte-run.el

diff --git a/lisp/byte-run.el b/lisp/byte-run.el
index 09c5981..a28f89c 100644 (file)
--- 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))
+
 \f
 ;;; 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
@@ -144,19 +150,19 @@ The result of the body appears to the compiler as a quoted constant."
 ;;   "Set some compilation-parameters for this file.  This will affect only the
 ;; file in which it appears; this does nothing when evaluated, and when loaded
 ;; from a .el file.
-;; 
+;;
 ;; Each argument to this macro must be a list of a key and a value.
-;; 
+;;
 ;;   Keys:               Values:               Corresponding variable:
-;; 
+;;
 ;;   verbose     t, nil                byte-compile-verbose
 ;;   optimize    t, nil, source, byte  byte-compile-optimize
 ;;   warnings    list of warnings      byte-compile-warnings
 ;;                   Legal elements: (callargs redefine free-vars unresolved)
 ;;   file-format         emacs18, emacs19      byte-compile-compatibility
-;; 
+;;
 ;; For example, this might appear at the top of a source file:
-;; 
+;;
 ;;     (byte-compiler-options
 ;;       (optimize t)
 ;;       (warnings (- free-vars))              ; Don't warn about free variables