Mercurial > emacs

comparison lisp/calc/calc-macs.el @ 43402:b7527fba7b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-with-default-simplification): Use &rest for body.
author Colin Walters <walters@gnu.org>
date Mon, 18 Feb 2002 20:05:49 +0000
parents 374bc275366a
children f4d68f97221e
comparison
equal deleted inserted replaced
43401:bec15ab7a002 43402:b7527fba7b15
49 49
50 (defmacro math-working (msg arg) ; [Public] 50 (defmacro math-working (msg arg) ; [Public]
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))
58 58
59 (defmacro calc-with-trail-buffer (&rest body) 59 (defmacro calc-with-trail-buffer (&rest body)