[Emacs-diffs] Changes to emacs/lisp/calc/calc-poly.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-poly.el
diff -c emacs/lisp/calc/calc-poly.el:1.6 emacs/lisp/calc/calc-poly.el:1.7
*** emacs/lisp/calc/calc-poly.el:1.6    Mon Sep  1 15:45:18 2003
--- emacs/lisp/calc/calc-poly.el        Tue Nov  9 20:30:40 2004
***************
*** 1040,1046 ****
              (memq (car-safe (nth 1 expr)) '(+ -))
              (integerp (nth 2 expr))
              (if (> (nth 2 expr) 0)
!                 (or (and (or (> mmt-many 500000) (< mmt-many -500000))
                           (math-expand-power (nth 1 expr) (nth 2 expr)
                                              nil t))
                      (list '*
--- 1040,1046 ----
              (memq (car-safe (nth 1 expr)) '(+ -))
              (integerp (nth 2 expr))
              (if (> (nth 2 expr) 0)
!                 (or (and (or (> math-mt-many 500000) (< math-mt-many -500000))
                           (math-expand-power (nth 1 expr) (nth 2 expr)
                                              nil t))
                      (list '*