tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Merge branch 'maint'

Browse source
This commit is contained in:
Nicolas Goaziou 2019-06-12 18:22:50 +02:00
parent 85711ba3d9 0d7d12ffe6
commit 439782ae00
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/ox.el
View file

@ -4961,7 +4961,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))
@ -5010,6 +5010,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)