/[emacs]/emacs/lisp/calc/calc-macs.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-macs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26