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))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
