[Emacs-diffs] Changes to emacs/lisp/calc/calc-misc.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-misc.el
diff -c emacs/lisp/calc/calc-misc.el:1.22 emacs/lisp/calc/calc-misc.el:1.23
*** emacs/lisp/calc/calc-misc.el:1.22   Thu Jul 14 19:44:17 2005
--- emacs/lisp/calc/calc-misc.el        Fri Oct 28 03:52:08 2005
***************
*** 646,653 ****
            (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)))
! 
  
  (defun math-do-working (msg arg)
    (or executing-kbd-macro
--- 646,656 ----
            (or (math-with-extra-prec 2 (math-matrix-inv-raw m))
                (math-reject-arg m "*Singular matrix"))
          (math-reject-arg m 'square-matrixp)))
!     (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