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

[Jay Belanger]

Index: emacs/lisp/calc/calccomp.el
diff -c emacs/lisp/calc/calccomp.el:1.9 emacs/lisp/calc/calccomp.el:1.10
*** emacs/lisp/calc/calccomp.el:1.9     Mon Jan 31 06:30:37 2005
--- emacs/lisp/calc/calccomp.el Sun Feb  6 16:20:46 2005
***************
*** 266,277 ****
              (if (or calc-full-vectors (< (length a) 7))
                  (if (and (eq calc-language 'tex)
                           (math-matrixp a))
!                     (append '(horiz "\\matrix{ ")
!                             (math-compose-tex-matrix (cdr a))
!                             '(" }"))
                      (if (and (eq calc-language 'latex)
                               (math-matrixp a))
!                         (if (memq calc-language-option '(-2 0 2))
                              (append '(vleft 0 "\\begin{pmatrix}")
                                      (math-compose-tex-matrix (cdr a))
                                      '("\\end{pmatrix}"))
--- 266,287 ----
              (if (or calc-full-vectors (< (length a) 7))
                  (if (and (eq calc-language 'tex)
                           (math-matrixp a))
!                       (if (and (integerp calc-language-option)
!                                (or (= calc-language-option 0)
!                                    (> calc-language-option 1)
!                                    (< calc-language-option -1)))
!                           (append '(vleft 0 "\\matrix{")
!                                   (math-compose-tex-matrix (cdr a))
!                                   '("}"))
!                         (append '(horiz "\\matrix{ ")
!                                 (math-compose-tex-matrix (cdr a))
!                                 '(" }")))
                      (if (and (eq calc-language 'latex)
                               (math-matrixp a))
!                         (if (and (integerp calc-language-option)
!                                  (or (= calc-language-option 0)
!                                      (> calc-language-option 1)
!                                      (< calc-language-option -1)))
                              (append '(vleft 0 "\\begin{pmatrix}")
                                      (math-compose-tex-matrix (cdr a))
                                      '("\\end{pmatrix}"))