diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2009-01-27 05:12:28 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2009-01-27 05:12:28 +0000 |
| commit | 170bc4f7d83b8bce7eddcf1f3c769776b1d6986d (patch) | |
| tree | adec08996e9854bc8f075af7eab276115b71f897 /lisp/calc/calc-sel.el | |
| parent | 7179ce7b35a4e28d4bf6e49508631d074835c9d2 (diff) | |
| download | emacs-170bc4f7d83b8bce7eddcf1f3c769776b1d6986d.tar.gz | |
(calc-sel-expand-formula): Simplify expanded denominator.
Diffstat (limited to 'lisp/calc/calc-sel.el')
| -rw-r--r-- | lisp/calc/calc-sel.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/calc/calc-sel.el b/lisp/calc/calc-sel.el index 62debf5d1e2..42d64475447 100644 --- a/lisp/calc/calc-sel.el +++ b/lisp/calc/calc-sel.el @@ -801,7 +801,8 @@ (unless arg (setq rhs (math-expand-term rhs)))))) (if (and arg (not no-simp)) - (setq rhs (calcFunc-expand rhs (unless (= arg 0) arg)))) + (setq rhs (math-simplify + (calcFunc-expand rhs (unless (= arg 0) arg))))) (setq alg (calc-encase-atoms (calc-normalize (list func lhs rhs))))) (setq rhs (list (if divide '* '/) sel alg)) |