diff options
| author | Jay Belanger | 2009-01-27 05:12:28 +0000 |
|---|---|---|
| committer | Jay Belanger | 2009-01-27 05:12:28 +0000 |
| commit | 170bc4f7d83b8bce7eddcf1f3c769776b1d6986d (patch) | |
| tree | adec08996e9854bc8f075af7eab276115b71f897 /lisp | |
| parent | 7179ce7b35a4e28d4bf6e49508631d074835c9d2 (diff) | |
| download | emacs-170bc4f7d83b8bce7eddcf1f3c769776b1d6986d.tar.gz emacs-170bc4f7d83b8bce7eddcf1f3c769776b1d6986d.zip | |
(calc-sel-expand-formula): Simplify expanded denominator.
Diffstat (limited to 'lisp')
| -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 @@ | |||
| 801 | (unless arg | 801 | (unless arg |
| 802 | (setq rhs (math-expand-term rhs)))))) | 802 | (setq rhs (math-expand-term rhs)))))) |
| 803 | (if (and arg (not no-simp)) | 803 | (if (and arg (not no-simp)) |
| 804 | (setq rhs (calcFunc-expand rhs (unless (= arg 0) arg)))) | 804 | (setq rhs (math-simplify |
| 805 | (calcFunc-expand rhs (unless (= arg 0) arg))))) | ||
| 805 | (setq alg (calc-encase-atoms | 806 | (setq alg (calc-encase-atoms |
| 806 | (calc-normalize (list func lhs rhs))))) | 807 | (calc-normalize (list func lhs rhs))))) |
| 807 | (setq rhs (list (if divide '* '/) sel alg)) | 808 | (setq rhs (list (if divide '* '/) sel alg)) |