/[emacs]/emacs/lisp/calc/calc-mode.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by deego, Sun Sep 18 12:42:35 2005 UTC revision 1.16 by jpb, Fri Oct 7 21:18:01 2005 UTC
# Line 352  Line 352 
352          (if (eq calc-complex-mode 'polar) 1 0)          (if (eq calc-complex-mode 'polar) 1 0)
353          (cond ((eq calc-matrix-mode 'scalar) 0)          (cond ((eq calc-matrix-mode 'scalar) 0)
354                ((eq calc-matrix-mode 'matrix) -2)                ((eq calc-matrix-mode 'matrix) -2)
355                  ((eq calc-matrix-mode 'square) -3)
356                (calc-matrix-mode)                (calc-matrix-mode)
357                (t -1))                (t -1))
358          (cond ((eq calc-simplify-mode 'none) -1)          (cond ((eq calc-simplify-mode 'none) -1)
# Line 476  Line 477 
477                       (cond ((eq arg 0) 'scalar)                       (cond ((eq arg 0) 'scalar)
478                             ((< (prefix-numeric-value arg) 1)                             ((< (prefix-numeric-value arg) 1)
479                              (and (< (prefix-numeric-value arg) -1) 'matrix))                              (and (< (prefix-numeric-value arg) -1) 'matrix))
480                             (arg (prefix-numeric-value arg))                             (arg
481                                (if (consp arg) 'square
482                                  (prefix-numeric-value arg)))
483                             ((eq calc-matrix-mode 'matrix) 'scalar)                             ((eq calc-matrix-mode 'matrix) 'scalar)
484                             ((eq calc-matrix-mode 'scalar) nil)                             ((eq calc-matrix-mode 'scalar) nil)
485                             (t 'matrix)))                             (t 'matrix)))
# Line 485  Line 488 
488                  calc-matrix-mode calc-matrix-mode)                  calc-matrix-mode calc-matrix-mode)
489       (message (if (eq calc-matrix-mode 'matrix)       (message (if (eq calc-matrix-mode 'matrix)
490                    "Variables are assumed to be matrices"                    "Variables are assumed to be matrices"
491                  (if calc-matrix-mode                  (if (eq calc-matrix-mode 'square)
492                      "Variables are assumed to be scalars (non-matrices)"                      "Variables are assumed to be square matrices"
493                    "Variables are not assumed to be matrix or scalar"))))))                    (if calc-matrix-mode
494                          "Variables are assumed to be scalars (non-matrices)"
495                        "Variables are not assumed to be matrix or scalar")))))))
496    
497  (defun calc-set-simplify-mode (mode arg msg)  (defun calc-set-simplify-mode (mode arg msg)
498    (calc-change-mode 'calc-simplify-mode    (calc-change-mode 'calc-simplify-mode

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26