diff options
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 |