|
@@ -3312,9 +3312,12 @@ This function assumes TABLE has `org' as its `:type' property and
|
|
|
;; Environment. Also treat special cases.
|
|
|
(cond ((member env '("array" "tabular"))
|
|
|
;; Make sure cells are always centered while preserving
|
|
|
- ;; vertical separators.
|
|
|
- (let ((align (replace-regexp-in-string
|
|
|
- "[lr]" "c" (org-latex--align-string table info))))
|
|
|
+ ;; vertical separators, unless user provided a special
|
|
|
+ ;; align string.
|
|
|
+ (let ((align
|
|
|
+ (or (org-export-read-attribute :attr_latex table :align)
|
|
|
+ (replace-regexp-in-string
|
|
|
+ "[lr]" "c" (org-latex--align-string table info)))))
|
|
|
(format "\\begin{%s}{%s}\n%s\\end{%s}" env align contents env)))
|
|
|
((assoc env org-latex-table-matrix-macros)
|
|
|
(format "\\%s%s{\n%s}"
|