Commit 1db165f0 authored by Jay Belanger's avatar Jay Belanger
Browse files

* calc/calc-units.el (math-extract-units): Preserve powers of units.

parent c7a8fcac
2013-05-17 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc-units.el (math-extract-units): Preserve powers
of units.
2013-05-17 Leo Liu <sdl.web@gmail.com>
 
* subr.el (delete-consecutive-dups): New function.
......
......@@ -1497,10 +1497,8 @@ If COMP or STD is non-nil, put that in the units table instead."
((memq (car-safe expr) '(* /))
(cons (car expr)
(mapcar 'math-extract-units (cdr expr))))
((and
(eq (car-safe expr) '^)
(math-check-unit-name (nth 1 expr)))
expr)
((eq (car-safe expr) '^)
(list '^ (math-extract-units (nth 1 expr)) (nth 2 expr)))
((math-check-unit-name expr) expr)
(t 1)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment