diff options
author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-10-28 03:52:08 +0000 |
---|---|---|
committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-10-28 03:52:08 +0000 |
commit | 5c0e273a4c333afc812218c88cea0415f4ebeed3 (patch) | |
tree | 9e599363166bca0f73d60370121802937aa995b3 /lisp/calc/calc-misc.el | |
parent | 7199ddd28ea6c24170119687f24dc7bc5653af29 (diff) | |
download | emacs-5c0e273a4c333afc812218c88cea0415f4ebeed3.tar.gz |
(calcFunc-inv): Check for symbolic matrices.
Diffstat (limited to 'lisp/calc/calc-misc.el')
-rw-r--r-- | lisp/calc/calc-misc.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el index e8c0ea4b658..ba80f455b4f 100644 --- a/lisp/calc/calc-misc.el +++ b/lisp/calc/calc-misc.el @@ -646,8 +646,11 @@ loaded and the keystroke automatically re-typed." (or (math-with-extra-prec 2 (math-matrix-inv-raw m)) (math-reject-arg m "*Singular matrix")) (math-reject-arg m 'square-matrixp))) - (math-div 1 m))) - + (if (and + (require 'calc-arith) + (math-known-matrixp m)) + (math-pow m -1) + (math-div 1 m)))) (defun math-do-working (msg arg) (or executing-kbd-macro |