From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Wed, 18 May 2005 12:34:30 +0000 (+0000)
Subject: (math-factor-poly-coefs): Make sure the terms in linear factors in proper
X-Git-Tag: ttn-vms-21-2-B4~189
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bfdb6aebd9bbe95ba454a9a8adcf8e8276defd59;p=emacs.git

(math-factor-poly-coefs): Make sure the terms in linear factors in proper
order.
---

diff --git a/lisp/calc/calc-poly.el b/lisp/calc/calc-poly.el
index e2b434be109..89d8273d6d6 100644
--- a/lisp/calc/calc-poly.el
+++ b/lisp/calc/calc-poly.el
@@ -692,12 +692,13 @@
 
 	  ;; Check if linear in math-fet-x.
 	  ((not (cdr (cdr p)))
-	   (math-add (math-factor-protect
-		      (math-sort-terms
-		       (math-factor-expr (car p))))
-		     (math-mul math-fet-x (math-factor-protect
-				  (math-sort-terms
-				   (math-factor-expr (nth 1 p)))))))
+           (math-sort-terms
+            (math-add (math-factor-protect
+                       (math-sort-terms
+                        (math-factor-expr (car p))))
+                      (math-mul math-fet-x (math-factor-protect
+                                            (math-sort-terms
+                                             (math-factor-expr (nth 1 p))))))))
 
 	  ;; If symbolic coefficients, use FactorRules.
 	  ((let ((pp p))