From 5c0e273a4c333afc812218c88cea0415f4ebeed3 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Fri, 28 Oct 2005 03:52:08 +0000 Subject: [PATCH] (calcFunc-inv): Check for symbolic matrices. --- lisp/calc/calc-misc.el | 7 +++++-- 1 file 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 -- 2.39.5