mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Jay Belanger 2008-11-03 02:16:35 +00:00
parent a336ee5bc0
commit df802986e5
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

2
lisp/calc/calc-alg.el
View File

@ -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),