diff options
| author | Jay Belanger | 2005-10-28 03:52:08 +0000 |
|---|---|---|
| committer | Jay Belanger | 2005-10-28 03:52:08 +0000 |
| commit | 5c0e273a4c333afc812218c88cea0415f4ebeed3 (patch) | |
| tree | 9e599363166bca0f73d60370121802937aa995b3 /lisp | |
| parent | 7199ddd28ea6c24170119687f24dc7bc5653af29 (diff) | |
| download | emacs-5c0e273a4c333afc812218c88cea0415f4ebeed3.tar.gz emacs-5c0e273a4c333afc812218c88cea0415f4ebeed3.zip | |
(calcFunc-inv): Check for symbolic matrices.
Diffstat (limited to 'lisp')
| -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." | |||
| 646 | (or (math-with-extra-prec 2 (math-matrix-inv-raw m)) | 646 | (or (math-with-extra-prec 2 (math-matrix-inv-raw m)) |
| 647 | (math-reject-arg m "*Singular matrix")) | 647 | (math-reject-arg m "*Singular matrix")) |
| 648 | (math-reject-arg m 'square-matrixp))) | 648 | (math-reject-arg m 'square-matrixp))) |
| 649 | (math-div 1 m))) | 649 | (if (and |
| 650 | 650 | (require 'calc-arith) | |
| 651 | (math-known-matrixp m)) | ||
| 652 | (math-pow m -1) | ||
| 653 | (math-div 1 m)))) | ||
| 651 | 654 | ||
| 652 | (defun math-do-working (msg arg) | 655 | (defun math-do-working (msg arg) |
| 653 | (or executing-kbd-macro | 656 | (or executing-kbd-macro |