calc-poly.el: (math-accum-factors): Make sure that constants aren't distributed

after they are factored out.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b59e5f2708cbf0e7b9a2a86cede652ba55f558e6..ce2560ffa8e0a4aec7e1ada2f5be37d859e8a941 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-06-16  Jay Belanger  <jay.p.belanger@gmail.com>
+
+       * calc/calc-poly.el: (math-accum-factors):  Make sure that
+       constants aren't distributed after they are factored out.
+
 2010-06-16  Juri Linkov  <juri@jurta.org>
 
        * facemenu.el (list-colors-display): Call `pop-to-buffer' before

diff --git a/lisp/calc/calc-poly.el b/lisp/calc/calc-poly.el
index a994ace6fb60913c1e353fccd5b3bdac48f7beaa..f268a032d147d70ef643673c112aeae27f8668d1 100644 (file)
--- a/lisp/calc/calc-poly.el
+++ b/lisp/calc/calc-poly.el
@@ -663,7 +663,7 @@
                  (cons 'vec (cons (nth 1 facs) (cons (list 'vec fac pow)
                                                      (cdr (cdr facs)))))
                (cons 'vec (cons (list 'vec fac pow) (cdr facs))))))))
-    (math-mul (math-pow fac pow) facs)))
+    (math-mul (math-pow fac pow) (math-factor-protect facs))))
 
 (defun math-factor-poly-coefs (p &optional square-free)    ; uses "x"
   (let (t1 t2 temp)