diff options
author | Jay Belanger <jay.p.belanger@gmail.com> | 2008-08-25 20:55:05 +0000 |
---|---|---|
committer | Jay Belanger <jay.p.belanger@gmail.com> | 2008-08-25 20:55:05 +0000 |
commit | 518e6a154129710eb6be4009503d77ddfb263b50 (patch) | |
tree | 9f9f06171286de2b100107c81a66efa56d2f2ac8 | |
parent | e827fd3d08f58d16a49cd55a2ed8cb8c3236a513 (diff) | |
download | emacs-518e6a154129710eb6be4009503d77ddfb263b50.tar.gz |
Replace missing exponent.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/calc/calc-units.el | 4 |
2 files changed, 8 insertions, 1 deletions
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 <jay.p.belanger@gmail.com> + + * calc/calc-units.el (math-simplify-units-quotient): Replace + missing exponent. + 2008-08-24 Romain Francoise <romain@orebokech.com> * 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)) |