From 4c9e95500fc913ad934e65c6625114e3f5532078 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Fri, 19 Oct 2012 23:14:32 -0500 Subject: [PATCH] calc/calc-units.el (math-extract-units): Properly extract powers of units. --- lisp/ChangeLog | 5 +++++ lisp/calc/calc-units.el | 14 ++++++++++---- 2 files changed, 15 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 690aaa70ea..7830f8312d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-10-20 Jay Belanger + + * calc/calc-units.el (math-extract-units): Properly extract powers + of units. + 2012-10-20 Daniel Colascione * frame.el (make-frame): Set x-display-name as we used to in order diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el index 39f710f832..58646ea114 100644 --- a/lisp/calc/calc-units.el +++ b/lisp/calc/calc-units.el @@ -1481,10 +1481,16 @@ If COMP or STD is non-nil, put that in the units table instead." (mapcar 'math-remove-units (cdr expr)))))) (defun math-extract-units (expr) - (if (memq (car-safe expr) '(* /)) - (cons (car expr) - (mapcar 'math-extract-units (cdr expr))) - (if (math-check-unit-name expr) expr 1))) + (cond + ((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) + ((math-check-unit-name expr) expr) + (t 1))) (defun math-build-units-table-buffer (enter-buffer) (if (not (and math-units-table math-units-table-buffer-valid -- 2.20.1