diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2011-03-04 00:35:49 -0600 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2011-03-04 00:35:49 -0600 |
| commit | d6ffd3f84f561dd8dd5f1e874a7ba1299bde8d02 (patch) | |
| tree | 4ed14d30ed656a5bed27d99ec6883d3ebfa74783 /lisp/calc/calc-units.el | |
| parent | a918ed9b8ec6fcfc3e88747b07651549cdbe1e32 (diff) | |
| download | emacs-d6ffd3f84f561dd8dd5f1e874a7ba1299bde8d02.tar.gz | |
* calc/calc-units.el (math-to-standard-rec): Don't treat subscripted
variables as units.
Diffstat (limited to 'lisp/calc/calc-units.el')
| -rw-r--r-- | lisp/calc/calc-units.el | 5 |
1 files changed, 4 insertions, 1 deletions
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)))))) |