mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 19:37:52 +00:00
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:
parent
65a6f54605
commit
0d7d12ffe6
11
lisp/ox.el
11
lisp/ox.el
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue