andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(calc-sel-expand-formula): Simplify expanded denominator.

Browse source
This commit is contained in:
Jay Belanger 2009-01-27 05:12:28 +00:00
parent 7179ce7b35
commit 170bc4f7d8
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/calc/calc-sel.el
View file

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