[Emacs-diffs] Changes to emacs/lisp/byte-run.el

[Richard M. Stallman]

Index: emacs/lisp/byte-run.el
diff -c emacs/lisp/byte-run.el:1.9 emacs/lisp/byte-run.el:1.10
*** emacs/lisp/byte-run.el:1.9  Tue Feb  4 06:02:03 2003
--- emacs/lisp/byte-run.el      Wed May 28 07:10:43 2003
***************
*** 131,136 ****
--- 131,142 ----
    ;; 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