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

[Jay Belanger]

Index: emacs/lisp/calc/calc-arith.el
diff -c emacs/lisp/calc/calc-arith.el:1.19 emacs/lisp/calc/calc-arith.el:1.20
*** emacs/lisp/calc/calc-arith.el:1.19  Fri Oct 28 03:51:36 2005
--- emacs/lisp/calc/calc-arith.el       Wed Nov  9 19:27:29 2005
***************
*** 374,379 ****
--- 374,386 ----
           t)
          ((eq (car-safe a) '^)
           (math-check-known-square-matrixp (nth 1 a)))
+         ((or
+           (eq (car-safe a) '*)
+           (eq (car-safe a) '+)
+           (eq (car-safe a) '-))
+          (and
+           (math-check-known-square-matrixp (nth 1 a))
+           (math-check-known-square-matrixp (nth 2 a))))
          (t
           (let ((decl (if (eq (car a) 'var)
                           (or (assq (nth 2 a) math-decls-cache)
***************
*** 1960,1966 ****
                    (if (and (= b -1)
                             (math-known-square-matrixp (nth 1 a))
                             (math-known-square-matrixp (nth 2 a)))
!                       (list '* (list '^ (nth 2 a) -1) (list '^ (nth 1 a) -1))
                      (list '^ a b)))
                 ((and (eq (car-safe a) '*)
                       (or (math-known-num-integerp b)
--- 1967,1974 ----
                    (if (and (= b -1)
                             (math-known-square-matrixp (nth 1 a))
                             (math-known-square-matrixp (nth 2 a)))
!                       (math-mul (math-pow-fancy (nth 2 a) -1) 
!                                 (math-pow-fancy (nth 1 a) -1))
                      (list '^ a b)))
                 ((and (eq (car-safe a) '*)
                       (or (math-known-num-integerp b)