From: Jay Belanger Date: Mon, 25 Aug 2008 20:55:05 +0000 (+0000) Subject: Replace missing exponent. X-Git-Tag: emacs-pretest-22.2.91~8 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=518e6a154129710eb6be4009503d77ddfb263b50;p=emacs.git Replace missing exponent. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dcce8acda17..9d2089c842e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-08-25 Jay Belanger + + * calc/calc-units.el (math-simplify-units-quotient): Replace + missing exponent. + 2008-08-24 Romain Francoise * progmodes/python.el (run-python): Remove '' from sys.path. diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el index f648a37cb7f..e3da2ebd997 100644 --- a/lisp/calc/calc-units.el +++ b/lisp/calc/calc-units.el @@ -1138,7 +1138,9 @@ Entries are (SYMBOL EXPR DOC-STRING TEMP-TYPE BASE-UNITS).") (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))