diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2006-02-28 14:28:42 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2006-02-28 14:28:42 +0000 |
| commit | 29ecdb2212662dd0c73f9338aea8ea8dd0de2df3 (patch) | |
| tree | b6793be34609a82bfe189c08f67d5a89a76ea202 /lisp/calc/calccomp.el | |
| parent | 3ea32d7481523bbb0c54b90606687dcba5c5a405 (diff) | |
| download | emacs-29ecdb2212662dd0c73f9338aea8ea8dd0de2df3.tar.gz | |
(math-compose-tex-matrix): Add a latex option.
(math-compose-expr): Use latex option when calling
math-compose-tex-matrix for latex mode.
Diffstat (limited to 'lisp/calc/calccomp.el')
| -rw-r--r-- | lisp/calc/calccomp.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/calc/calccomp.el b/lisp/calc/calccomp.el index 548fe83882d..9b5eab5b133 100644 --- a/lisp/calc/calccomp.el +++ b/lisp/calc/calccomp.el @@ -286,10 +286,10 @@ (> calc-language-option 1) (< calc-language-option -1))) (append '(vleft 0 "\\begin{pmatrix}") - (math-compose-tex-matrix (cdr a)) + (math-compose-tex-matrix (cdr a) t) '("\\end{pmatrix}")) (append '(horiz "\\begin{pmatrix} ") - (math-compose-tex-matrix (cdr a)) + (math-compose-tex-matrix (cdr a) t) '(" \\end{pmatrix}"))) (if (and (eq calc-language 'eqn) (math-matrixp a)) @@ -1015,10 +1015,11 @@ (math-compose-expr (car a) math-comp-vector-prec) (concat " " math-comp-right-bracket))))) -(defun math-compose-tex-matrix (a) +(defun math-compose-tex-matrix (a &optional ltx) (if (cdr a) - (cons (append (math-compose-vector (cdr (car a)) " & " 0) '(" \\\\ ")) - (math-compose-tex-matrix (cdr a))) + (cons (append (math-compose-vector (cdr (car a)) " & " 0) + (if ltx '(" \\\\ ") '(" \\cr "))) + (math-compose-tex-matrix (cdr a) ltx)) (list (math-compose-vector (cdr (car a)) " & " 0)))) (defun math-compose-eqn-matrix (a) |