diff options
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)) |