mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(math-compose-tex-matrix): Add a latex option.

Browse source 
(math-compose-expr):  Use latex option when calling
math-compose-tex-matrix for latex mode.
This commit is contained in:
Jay Belanger 2006-02-28 14:28:42 +00:00
parent 3ea32d7481
commit 29ecdb2212
2 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2006-02-28 Jay Belanger <belanger@truman.edu>
* calc/calccomp.el: (math-compose-tex-matrix): Add a latex option.
(math-compose-expr): Use latex option when calling
`math-compose-tex-matrix' for latex mode.
2006-02-28 Nick Roberts <nickrob@snap.net.nz>
* speedbar.el: Re-instate comments about developing for speedbar

11
lisp/calc/calccomp.el
View file

@ -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)