[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calccomp.el
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calccomp.el |
Date: |
Sun, 06 Feb 2005 11:20:47 -0500 |
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}"))
- [Emacs-diffs] Changes to emacs/lisp/calc/calccomp.el,
Jay Belanger <=