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

Replace missing exponent.

Browse source
This commit is contained in:
Jay Belanger 2008-08-25 20:55:05 +00:00
parent e827fd3d08
commit 518e6a1541
2 changed files with 8 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 @@
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.

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

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