[Emacs-diffs] emacs/lisp/calc calc-sel.el

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      09/01/27 05:12:29

Modified files:
        lisp/calc      : calc-sel.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calc/calc-sel.el?cvsroot=emacs&r1=1.25&r2=1.26

Patches:
Index: calc-sel.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-sel.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- calc-sel.el 27 Jan 2009 01:20:42 -0000      1.25
+++ calc-sel.el 27 Jan 2009 05:12:28 -0000      1.26
@@ -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))