[Emacs-diffs] emacs/lisp/calc calc-alg.el

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      08/11/26 02:38:39

Modified files:
        lisp/calc      : calc-alg.el 

Log message:
        (calcFunc-collect): Normalize the coefficients of the
        polynomial rather than the whole polynomial.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calc/calc-alg.el?cvsroot=emacs&r1=1.26&r2=1.27

Patches:
Index: calc-alg.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-alg.el,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -b -r1.26 -r1.27
--- calc-alg.el 3 Nov 2008 02:14:44 -0000       1.26
+++ calc-alg.el 26 Nov 2008 02:38:39 -0000      1.27
@@ -1598,8 +1598,7 @@
 (defun calcFunc-collect (expr base)
   (let ((p (math-is-polynomial expr base 50 t)))
     (if (cdr p)
-       (math-normalize   ; fix selection bug
-        (math-build-polynomial-expr p base))
+        (math-build-polynomial-expr (mapcar 'math-normalize p) base)
       (car p))))
 
 ;;; If expr is of the form "a + bx + cx^2 + ...", return the list (a b c ...),