diff options
| author | Colin Walters | 2002-02-18 20:05:49 +0000 |
|---|---|---|
| committer | Colin Walters | 2002-02-18 20:05:49 +0000 |
| commit | 061b2cc1e5fc09c512e144a9f9b1d33f0457df28 (patch) | |
| tree | 9b54c9b4566535e315bbdd8d40ac96661fc5da00 | |
| parent | 96cc56b5eb52629701497fd3818742ad0b0bbe62 (diff) | |
| download | emacs-061b2cc1e5fc09c512e144a9f9b1d33f0457df28.tar.gz emacs-061b2cc1e5fc09c512e144a9f9b1d33f0457df28.zip | |
(calc-with-default-simplification): Use &rest for body.
| -rw-r--r-- | lisp/calc/calc-macs.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calc/calc-macs.el b/lisp/calc/calc-macs.el index 08d0247b30b..7d4cd14e76e 100644 --- a/lisp/calc/calc-macs.el +++ b/lisp/calc/calc-macs.el | |||
| @@ -51,7 +51,7 @@ | |||
| 51 | `(if (eq calc-display-working-message 'lots) | 51 | `(if (eq calc-display-working-message 'lots) |
| 52 | (math-do-working ,msg ,arg))) | 52 | (math-do-working ,msg ,arg))) |
| 53 | 53 | ||
| 54 | (defmacro calc-with-default-simplification (body) | 54 | (defmacro calc-with-default-simplification (&rest body) |
| 55 | `(let ((calc-simplify-mode (and (not (memq calc-simplify-mode '(none num))) | 55 | `(let ((calc-simplify-mode (and (not (memq calc-simplify-mode '(none num))) |
| 56 | calc-simplify-mode))) | 56 | calc-simplify-mode))) |
| 57 | ,@body)) | 57 | ,@body)) |