[Emacs-diffs] Changes to emacs/lisp/calc/calc-alg.el,v

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      08/11/03 02:14:45

Index: calc-alg.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-alg.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- calc-alg.el 6 May 2008 03:15:35 -0000       1.25
+++ calc-alg.el 3 Nov 2008 02:14:44 -0000       1.26
@@ -1600,7 +1600,7 @@
     (if (cdr p)
        (math-normalize   ; fix selection bug
         (math-build-polynomial-expr p base))
-      expr)))
+      (car p))))
 
 ;;; If expr is of the form "a + bx + cx^2 + ...", return the list (a b c ...),
 ;;; else return nil if not in polynomial form.  If "loose" 
(math-is-poly-loose),