ox: Make `org-export-table-cell-alignment' more robust

* lisp/ox.el (org-export-table-cell-alignment): Make
`org-export-table-cell-alignment' handle tables with rows containing
unequal numbers of cells.

Patch modeled after previous fix for `org-export-table-cell-width'.

TINYCHANGE
This commit is contained in:
Thomas Plass 2019-06-10 13:36:46 +02:00 committed by Nicolas Goaziou
parent 65a6f54605
commit 0d7d12ffe6
1 changed files with 10 additions and 1 deletions

View File

@ -4917,7 +4917,7 @@ same column as TABLE-CELL, or nil."
table)))
(width-vector (or (gethash table cache)
(puthash table (make-vector columns 'empty) cache))))
;; Table may not have the same number of rows. Extend
;; Table rows may not have the same number of cells. Extend
;; WIDTH-VECTOR appropriately if we encounter a row larger than
;; expected.
(when (>= column (length width-vector))
@ -4966,6 +4966,15 @@ Possible values are `left', `right' and `center'."
table)))
(align-vector (or (gethash table cache)
(puthash table (make-vector columns nil) cache))))
;; Table rows may not have the same number of cells. Extend
;; ALIGN-VECTOR appropriately if we encounter a row larger than
;; expected.
(when (>= column (length align-vector))
(setq align-vector
(vconcat align-vector
(make-list (- (1+ column) (length align-vector))
nil)))
(puthash table align-vector cache))
(or (aref align-vector column)
(let ((number-cells 0)
(total-cells 0)