Mercurial > emacs
changeset 109014:8020ce418135
calc-poly.el: (math-accum-factors): Make sure that constants aren't distributed
after they are factored out.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Wed, 16 Jun 2010 18:27:20 -0500 |
| parents | d94083f6e4e9 |
| children | 6807b98d5522 |
| files | lisp/ChangeLog lisp/calc/calc-poly.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jun 17 00:33:54 2010 +0300 +++ b/lisp/ChangeLog Wed Jun 16 18:27:20 2010 -0500 @@ -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
--- a/lisp/calc/calc-poly.el Thu Jun 17 00:33:54 2010 +0300 +++ b/lisp/calc/calc-poly.el Wed Jun 16 18:27:20 2010 -0500 @@ -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)