From d6ffd3f84f561dd8dd5f1e874a7ba1299bde8d02 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Fri, 4 Mar 2011 00:35:49 -0600 Subject: * calc/calc-units.el (math-to-standard-rec): Don't treat subscripted variables as units. --- lisp/calc/calc-units.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lisp/calc/calc-units.el') diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el index e6a6fb01132..0d58bc757f2 100644 --- a/lisp/calc/calc-units.el +++ b/lisp/calc/calc-units.el @@ -960,7 +960,10 @@ If EXPR is nil, return nil." (if (eq base 'pi) (math-pi) expr))) - (if (Math-primp expr) + (if (or + (Math-primp expr) + (and (eq (car-safe expr) 'calcFunc-subscr) + (eq (car-safe (nth 1 expr)) 'var))) expr (cons (car expr) (mapcar 'math-to-standard-rec (cdr expr)))))) -- cgit v1.2.1