diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2012-07-24 21:38:36 -0500 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2012-07-24 21:38:36 -0500 |
| commit | 3cc5a3a8718bf0d9c06562a01fd86c22ff9840c0 (patch) | |
| tree | 30fb0faabd4afa906ae42a122e57fa58d86842e8 /lisp/calc/calc-alg.el | |
| parent | b7af7f62e4b269d1e5ed6e85660a169b3a075232 (diff) | |
| download | emacs-3cc5a3a8718bf0d9c06562a01fd86c22ff9840c0.tar.gz | |
calc-alg.el (math-simplify-divide): Don't cross multiply
in an equation when the lhs is a variable.
Diffstat (limited to 'lisp/calc/calc-alg.el')
| -rw-r--r-- | lisp/calc/calc-alg.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/calc/calc-alg.el b/lisp/calc/calc-alg.el index 8e41b175321..50b31400a6a 100644 --- a/lisp/calc/calc-alg.el +++ b/lisp/calc/calc-alg.el @@ -530,7 +530,10 @@ (not (Math-realp (nth 1 math-simplify-expr)))) (math-common-constant-factor (nth 1 math-simplify-expr)))) (if (and (eq (car-safe nn) 'frac) (eq (nth 1 nn) 1) (not n)) - (progn + (unless (and (eq (car-safe math-simplify-expr) 'calcFunc-eq) + (eq (car-safe (nth 1 math-simplify-expr)) 'var) + (not (math-expr-contains (nth 2 math-simplify-expr) + (nth 1 math-simplify-expr)))) (setcar (cdr math-simplify-expr) (math-mul (nth 2 nn) (nth 1 math-simplify-expr))) (setcar (cdr (cdr math-simplify-expr)) |