Mercurial > emacs
diff lisp/calc/calccomp.el @ 59965:ca9f30397adc
(math-compose-expr): Allow multiline matrices in TeX mode.
author | Jay Belanger <jay.p.belanger@gmail.com> |
---|---|
date | Sun, 06 Feb 2005 16:20:46 +0000 |
parents | 53059b002005 |
children | 107c288df93f |
line wrap: on
line diff
--- a/lisp/calc/calccomp.el Sun Feb 06 15:59:39 2005 +0000 +++ b/lisp/calc/calccomp.el Sun Feb 06 16:20:46 2005 +0000 @@ -266,12 +266,22 @@ (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 (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 (memq calc-language-option '(-2 0 2)) + (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}"))