[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: |
Tue, 28 Feb 2006 14:27:05 +0000 |
Index: emacs/lisp/calc/calccomp.el
diff -u emacs/lisp/calc/calccomp.el:1.15 emacs/lisp/calc/calccomp.el:1.16
--- emacs/lisp/calc/calccomp.el:1.15 Sun Feb 5 16:30:18 2006
+++ emacs/lisp/calc/calccomp.el Tue Feb 28 14:27:04 2006
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/calc/calccomp.el,
Jay Belanger <=