# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1100032240 0
# Node ID a8b2ccf9b0ee111d6d62e6b0ff561c11c39852e7
# Parent  5fb84c291168e8a54cea49bd37090dba79ee8c16
(math-expand-form):  Use declared variable math-mt-many.

diff -r 5fb84c291168 -r a8b2ccf9b0ee lisp/calc/calc-poly.el
--- a/lisp/calc/calc-poly.el	Tue Nov 09 20:30:10 2004 +0000
+++ b/lisp/calc/calc-poly.el	Tue Nov 09 20:30:40 2004 +0000
@@ -1040,7 +1040,7 @@
 	      (memq (car-safe (nth 1 expr)) '(+ -))
 	      (integerp (nth 2 expr))
 	      (if (> (nth 2 expr) 0)
-		  (or (and (or (> mmt-many 500000) (< mmt-many -500000))
+		  (or (and (or (> math-mt-many 500000) (< math-mt-many -500000))
 			   (math-expand-power (nth 1 expr) (nth 2 expr)
 					      nil t))
 		      (list '*