[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/calc calc-sel.el
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] emacs/lisp/calc calc-sel.el |
Date: |
Tue, 27 Jan 2009 05:12:29 +0000 |
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))