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

after they are factored out.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b59e5f2708c..ce2560ffa8e 100644
--- 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 a994ace6fb6..f268a032d14 100644
--- 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)