[Emacs-diffs] Changes to emacs/lisp/calc/calc-poly.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-poly.el
diff -c emacs/lisp/calc/calc-poly.el:1.12 emacs/lisp/calc/calc-poly.el:1.13
*** emacs/lisp/calc/calc-poly.el:1.12   Tue May 17 18:57:41 2005
--- emacs/lisp/calc/calc-poly.el        Wed May 18 12:34:30 2005
***************
*** 692,703 ****
  
          ;; 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)))))))
  
          ;; If symbolic coefficients, use FactorRules.
          ((let ((pp p))
--- 692,704 ----
  
          ;; Check if linear in math-fet-x.
          ((not (cdr (cdr 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))