Parent Directory | Revision Log | Patch
revision 1.6 by pj, Fri Nov 23 06:05:33 2001 UTC | revision 1.7 by walters, Mon Feb 18 20:05:49 2002 UTC | |
---|---|---|
# | Line 51 | Line 51 |
51 | `(if (eq calc-display-working-message 'lots) | `(if (eq calc-display-working-message 'lots) |
52 | (math-do-working ,msg ,arg))) | (math-do-working ,msg ,arg))) |
53 | ||
54 | (defmacro calc-with-default-simplification (body) | (defmacro calc-with-default-simplification (&rest body) |
55 | `(let ((calc-simplify-mode (and (not (memq calc-simplify-mode '(none num))) | `(let ((calc-simplify-mode (and (not (memq calc-simplify-mode '(none num))) |
56 | calc-simplify-mode))) | calc-simplify-mode))) |
57 | ,@body)) | ,@body)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |