Mercurial > emacs

changeset 99335:91df9fb880c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calcFunc-collect): Return constant polynomial when appropriate.
author Jay Belanger <jay.p.belanger@gmail.com>
date Mon, 03 Nov 2008 02:14:44 +0000
parents e6ec0b2ebf47
children 3c9df7e90cc8
files lisp/calc/calc-alg.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-alg.el	Sun Nov 02 23:16:33 2008 +0000
+++ b/lisp/calc/calc-alg.el	Mon Nov 03 02:14:44 2008 +0000
@@ -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),