diff options
| author | Richard M. Stallman | 2004-04-21 19:10:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-04-21 19:10:29 +0000 |
| commit | ae122ad2d485518df1708303fa7fe1556315e916 (patch) | |
| tree | dc7504175c0619ebd247b3aed16d33ea360a107b | |
| parent | 12148b0e3bb5e197a3e4150fd61cf4c4fcffb1a7 (diff) | |
| download | emacs-ae122ad2d485518df1708303fa7fe1556315e916.tar.gz emacs-ae122ad2d485518df1708303fa7fe1556315e916.zip | |
(with-no-warnings): Simplify: take all args as &rest arg.
| -rw-r--r-- | lisp/emacs-lisp/byte-run.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 9956d5003cc..4ed47129fc9 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el | |||
| @@ -134,11 +134,10 @@ The result of the body appears to the compiler as a quoted constant." | |||
| 134 | ;; Remember, it's magic. | 134 | ;; Remember, it's magic. |
| 135 | (cons 'progn body)) | 135 | (cons 'progn body)) |
| 136 | 136 | ||
| 137 | (defun with-no-warnings (&optional first &rest body) | 137 | (defun with-no-warnings (&rest body) |
| 138 | "Like `progn', but prevents compiler warnings in the body." | 138 | "Like `progn', but prevents compiler warnings in the body." |
| 139 | ;; The implementation for the interpreter is basically trivial. | 139 | ;; The implementation for the interpreter is basically trivial. |
| 140 | (if body (car (last body)) | 140 | (car (last body))) |
| 141 | first)) | ||
| 142 | 141 | ||
| 143 | 142 | ||
| 144 | ;;; I nuked this because it's not a good idea for users to think of using it. | 143 | ;;; I nuked this because it's not a good idea for users to think of using it. |