diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-10-10 19:59:18 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-10-10 19:59:18 +0000 |
| commit | 16d661843e858435b4f51500cac2616222adb59b (patch) | |
| tree | c851ef46e423ce6c0a14299093a6b92c5b97fc98 /lisp/calc/calc-arith.el | |
| parent | 9c40111a84759fb7e57625a6b8f39e83a4ec40b9 (diff) | |
(math-check-known-square-matrixp): Change order in which value is checked.
Diffstat (limited to 'lisp/calc/calc-arith.el')
| -rw-r--r-- | lisp/calc/calc-arith.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el index 810ed7bdd9..feb3c9d25a 100644 --- a/lisp/calc/calc-arith.el +++ b/lisp/calc/calc-arith.el @@ -383,8 +383,6 @@ (cond ((memq 'sqmatrix (nth 1 decl)) t) - ((memq 'matrix (nth 1 decl)) - nil) ((and (eq (car a) 'var) (boundp (nth 2 a)) (setq val (symbol-value (nth 2 a)))) @@ -394,6 +392,8 @@ (eq calc-matrix-mode 'sqmatrix)) (eq (car-safe a) 'var)) t) + ((memq 'matrix (nth 1 decl)) + nil) (t nil)))))) |