From 170bc4f7d83b8bce7eddcf1f3c769776b1d6986d Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Tue, 27 Jan 2009 05:12:28 +0000 Subject: [PATCH] (calc-sel-expand-formula): Simplify expanded denominator. --- lisp/calc/calc-sel.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)) -- 2.39.5