procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(math-simplify-units-quotient): Replace missing exponent.

Browse source
This commit is contained in:
Jay Belanger 2007-10-24 01:51:40 +00:00
parent eb3d6c677b
commit 0317ca7890
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/calc/calc-units.el
View file

@ -1222,7 +1222,9 @@ If EXPR is nil, return nil."
(and un ud
(if (and (equal (nth 4 un) (nth 4 ud))
(eq pow1 pow2))
(math-to-standard-units (list '/ n d) nil)
(if (eq pow1 1)
(math-to-standard-units (list '/ n d) nil)
(list '^ (math-to-standard-units (list '/ n d) nil) pow1))
(let (ud1)
(setq un (nth 4 un)
ud (nth 4 ud))