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

calc-alg.el (math-simplify-divide): Don't cross multiply

Browse source 
in an equation when the lhs is a variable.
This commit is contained in:
Jay Belanger 2012-07-24 21:38:36 -05:00
parent b7af7f62e4
commit 3cc5a3a871
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2012-07-25 Jay Belanger <jay.p.belanger@gmail.com>
* calc-alg.el (math-simplify-divide): Don't cross multiply
in an equation when the lhs is a variable.
2012-07-24 Julien Danjou <julien@danjou.info>
* net/netrc.el (netrc-find-service-number, netrc-store-data):

5
lisp/calc/calc-alg.el
View file

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