(calcFunc-collect): Return constant polynomial when appropriate.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7794e110c76..eadc70785d3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-03  Vincent Belaïche  <vincent.b.1@hotmail.fr>
+
+        * calc/calc-alg.el (calcFunc-collect): Return constant polynomial
+        when appropriate.
+
 2008-11-02  Martin Rudalics  <rudalics@gmx.at>
 
         * window.el (save-selected-window-norecord): New macro
diff --git a/lisp/calc/calc-alg.el b/lisp/calc/calc-alg.el
index 20730b91dca..34d2829f2c3 100644
--- a/lisp/calc/calc-alg.el
+++ b/lisp/calc/calc-alg.el
@@ -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),