From: Jay Belanger Date: Wed, 16 Jun 2010 23:27:20 +0000 (-0500) Subject: calc-poly.el: (math-accum-factors): Make sure that constants aren't distributed X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~52^2~8 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb3e306a4f7d229bce20e36afe8a128146c0932a;p=emacs.git 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 b59e5f2708c..ce2560ffa8e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-06-16 Jay Belanger + + * calc/calc-poly.el: (math-accum-factors): Make sure that + constants aren't distributed after they are factored out. + 2010-06-16 Juri Linkov * 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)