From 0317ca7890ac8d703b0e167454fbee5cd0dbf696 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Wed, 24 Oct 2007 01:51:40 +0000 Subject: [PATCH] (math-simplify-units-quotient): Replace missing exponent. --- lisp/calc/calc-units.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el index 839bac77581..a7c4b20e30d 100644 --- a/lisp/calc/calc-units.el +++ b/lisp/calc/calc-units.el @@ -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)) -- 2.39.2