Mercurial > emacs
changeset 55041:1376729a93a7
(with-no-warnings): Simplify: take all args as &rest arg.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 21 Apr 2004 19:10:29 +0000 |
| parents | 4728f7603f2a |
| children | 770ebdee7214 |
| files | lisp/emacs-lisp/byte-run.el |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-run.el Wed Apr 21 19:09:01 2004 +0000 +++ b/lisp/emacs-lisp/byte-run.el Wed Apr 21 19:10:29 2004 +0000 @@ -134,11 +134,10 @@ ;; Remember, it's magic. (cons 'progn body)) -(defun with-no-warnings (&optional first &rest body) +(defun with-no-warnings (&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)) + (car (last body))) ;;; I nuked this because it's not a good idea for users to think of using it.