# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1128719927 0
# Node ID 451fee57852004c648d9612de54adcfca77b948f
# Parent  a15a1dd65d9e333f567b1fb5d315d9311659094b
(calc-set-mode-line): Add square matrix option.

diff -r a15a1dd65d9e -r 451fee578520 lisp/calc/calc.el
--- a/lisp/calc/calc.el	Fri Oct 07 21:18:22 2005 +0000
+++ b/lisp/calc/calc.el	Fri Oct 07 21:18:47 2005 +0000
@@ -654,6 +654,7 @@
 (defcalcmodevar calc-matrix-mode nil
   "If `matrix', variables are assumed to be matrix-valued.
 If a number, variables are assumed to be NxN matrices.
+If `square', variables are assumed to be square matrices of an unspecified size.
 If `scalar', variables are assumed to be scalar-valued.
 If nil, symbolic math routines make no assumptions about variables.")
 
@@ -1551,6 +1552,7 @@
 		     (cond ((eq calc-matrix-mode 'matrix) "Matrix ")
 			   ((integerp calc-matrix-mode)
 			    (format "Matrix%d " calc-matrix-mode))
+			   ((eq calc-matrix-mode 'square) "SqMatrix ")
 			   ((eq calc-matrix-mode 'scalar) "Scalar ")
 			   (t ""))
 		     (if (eq calc-complex-mode 'polar) "Polar " "")