diff options
| author | Richard M. Stallman | 2003-05-28 11:10:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-05-28 11:10:43 +0000 |
| commit | fc237647dc8db86e9595869dd1f485b0d5213823 (patch) | |
| tree | 7f1c46e1577633c446c728028f6c0c37f53555b8 | |
| parent | 5af081d53ea36b1fdbf921e20245ad010a0fae9f (diff) | |
| download | emacs-fc237647dc8db86e9595869dd1f485b0d5213823.tar.gz emacs-fc237647dc8db86e9595869dd1f485b0d5213823.zip | |
(with-no-warnings): New function.
| -rw-r--r-- | lisp/byte-run.el | 6 |
1 files changed, 6 insertions, 0 deletions
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." | |||
| 131 | ;; Remember, it's magic. | 131 | ;; Remember, it's magic. |
| 132 | (cons 'progn body)) | 132 | (cons 'progn body)) |
| 133 | 133 | ||
| 134 | (defun with-no-warnings (&optional first &rest body) | ||
| 135 | "Like `progn', but prevents compiler warnings in the body." | ||
| 136 | ;; The implementation for the interpreter is basically trivial. | ||
| 137 | (if body (car (last body)) | ||
| 138 | first)) | ||
| 139 | |||
| 134 | 140 | ||
| 135 | ;;; I nuked this because it's not a good idea for users to think of using it. | 141 | ;;; I nuked this because it's not a good idea for users to think of using it. |
| 136 | ;;; These options are a matter of installation preference, and have nothing to | 142 | ;;; These options are a matter of installation preference, and have nothing to |