Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 59964:b45f0570ca5c | 59965:ca9f30397adc |
|---|---|
| 264 (cdr a) | 264 (cdr a) |
| 265 (if full rows 3) t))))) | 265 (if full rows 3) t))))) |
| 266 (if (or calc-full-vectors (< (length a) 7)) | 266 (if (or calc-full-vectors (< (length a) 7)) |
| 267 (if (and (eq calc-language 'tex) | 267 (if (and (eq calc-language 'tex) |
| 268 (math-matrixp a)) | 268 (math-matrixp a)) |
| 269 (append '(horiz "\\matrix{ ") | 269 (if (and (integerp calc-language-option) |
| 270 (math-compose-tex-matrix (cdr a)) | 270 (or (= calc-language-option 0) |
| 271 '(" }")) | 271 (> calc-language-option 1) |
| 272 (< calc-language-option -1))) | |
| 273 (append '(vleft 0 "\\matrix{") | |
| 274 (math-compose-tex-matrix (cdr a)) | |
| 275 '("}")) | |
| 276 (append '(horiz "\\matrix{ ") | |
| 277 (math-compose-tex-matrix (cdr a)) | |
| 278 '(" }"))) | |
| 272 (if (and (eq calc-language 'latex) | 279 (if (and (eq calc-language 'latex) |
| 273 (math-matrixp a)) | 280 (math-matrixp a)) |
| 274 (if (memq calc-language-option '(-2 0 2)) | 281 (if (and (integerp calc-language-option) |
| 282 (or (= calc-language-option 0) | |
| 283 (> calc-language-option 1) | |
| 284 (< calc-language-option -1))) | |
| 275 (append '(vleft 0 "\\begin{pmatrix}") | 285 (append '(vleft 0 "\\begin{pmatrix}") |
| 276 (math-compose-tex-matrix (cdr a)) | 286 (math-compose-tex-matrix (cdr a)) |
| 277 '("\\end{pmatrix}")) | 287 '("\\end{pmatrix}")) |
| 278 (append '(horiz "\\begin{pmatrix} ") | 288 (append '(horiz "\\begin{pmatrix} ") |
| 279 (math-compose-tex-matrix (cdr a)) | 289 (math-compose-tex-matrix (cdr a)) |