diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-10-10 19:38:02 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-10-10 19:38:02 +0000 |
| commit | 91f4e5461608eda157fe4fbd034bef206edfc440 (patch) | |
| tree | 777d2b97396c570f106e1e0b133b597e7d0de8fe /lisp | |
| parent | 3208fa650e0023ed27c111e4365ac661593eda10 (diff) | |
| download | emacs-91f4e5461608eda157fe4fbd034bef206edfc440.tar.gz | |
(calc-matrix-mode, math-get-modes-vec): Change the mode name `square'
to 'sqmatrix'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calc/calc-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/calc/calc-mode.el b/lisp/calc/calc-mode.el index 7782b7a1f83..d04a95831ef 100644 --- a/lisp/calc/calc-mode.el +++ b/lisp/calc/calc-mode.el @@ -352,7 +352,7 @@ (if (eq calc-complex-mode 'polar) 1 0) (cond ((eq calc-matrix-mode 'scalar) 0) ((eq calc-matrix-mode 'matrix) -2) - ((eq calc-matrix-mode 'square) -3) + ((eq calc-matrix-mode 'sqmatrix) -3) (calc-matrix-mode) (t -1)) (cond ((eq calc-simplify-mode 'none) -1) @@ -478,7 +478,7 @@ ((< (prefix-numeric-value arg) 1) (and (< (prefix-numeric-value arg) -1) 'matrix)) (arg - (if (consp arg) 'square + (if (consp arg) 'sqmatrix (prefix-numeric-value arg))) ((eq calc-matrix-mode 'matrix) 'scalar) ((eq calc-matrix-mode 'scalar) nil) @@ -488,7 +488,7 @@ calc-matrix-mode calc-matrix-mode) (message (if (eq calc-matrix-mode 'matrix) "Variables are assumed to be matrices" - (if (eq calc-matrix-mode 'square) + (if (eq calc-matrix-mode 'sqmatrix) "Variables are assumed to be square matrices" (if calc-matrix-mode "Variables are assumed to be scalars (non-matrices)" |