[Emacs-diffs] /srv/bzr/emacs/trunk r100609: calc-poly.el: (math-accum-factors): Make sure that constants aren't distributed

[Jay Belanger]

------------------------------------------------------------
revno: 100609
committer: Jay Belanger <address@hidden>
branch nick: trunk
timestamp: Wed 2010-06-16 18:27:20 -0500
message:
  calc-poly.el: (math-accum-factors):  Make sure that constants aren't 
distributed
  after they are factored out.
modified:
  lisp/ChangeLog
  lisp/calc/calc-poly.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-06-16 21:33:54 +0000
+++ b/lisp/ChangeLog    2010-06-16 23:27:20 +0000
@@ -1,3 +1,8 @@
+2010-06-16  Jay Belanger  <address@hidden>
+
+       * calc/calc-poly.el: (math-accum-factors):  Make sure that
+       constants aren't distributed after they are factored out.
+
 2010-06-16  Juri Linkov  <address@hidden>
 
        * facemenu.el (list-colors-display): Call `pop-to-buffer' before

=== modified file 'lisp/calc/calc-poly.el'
--- a/lisp/calc/calc-poly.el    2010-01-13 08:35:10 +0000
+++ b/lisp/calc/calc-poly.el    2010-06-16 23:27:20 +0000
@@ -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)