Browse Source

Merge branch 'maint'

Nicolas Goaziou 5 years ago
parent
commit
439782ae00
1 changed files with 10 additions and 1 deletions
  1. 10 1
      lisp/ox.el

+ 10 - 1
lisp/ox.el

@@ -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)