From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Fri, 28 Oct 2005 03:52:08 +0000 (+0000)
Subject: (calcFunc-inv): Check for symbolic matrices.
X-Git-Tag: emacs-pretest-22.0.90~6258
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c0e273a4c333afc812218c88cea0415f4ebeed3;p=emacs.git

(calcFunc-inv): Check for symbolic matrices.
---

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