From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Fri, 7 Oct 2005 21:18:47 +0000 (+0000)
Subject: (calc-set-mode-line): Add square matrix option.
X-Git-Tag: emacs-pretest-22.0.90~6764
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8868c48e5a318283d6bd873d12922d21cd758d0c;p=emacs.git

(calc-set-mode-line): Add square matrix option.
---

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index c53e7971956..2220376904f 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -654,6 +654,7 @@ If nil, computations on numbers always yield numbers where possible.")
 (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 @@ See calc-keypad for details."
 		     (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 " "")