From d85635306b11e4a5549303cce9eea3dc91c83d11 Mon Sep 17 00:00:00 2001 From: Jambunathan K Date: Fri, 2 Sep 2011 14:27:31 +0530 Subject: [PATCH] org-lparse.el: Abort export if list-tables are malformed * contrib/lisp/org-lparse.el (org-lparse-format-table-row): In list-tables, require that the header row be a row with max number of columns. Abort export if this condition is not met. --- contrib/lisp/org-lparse.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/contrib/lisp/org-lparse.el b/contrib/lisp/org-lparse.el index 56af33ea1..9a33cb92b 100755 --- a/contrib/lisp/org-lparse.el +++ b/contrib/lisp/org-lparse.el @@ -2049,7 +2049,12 @@ See `org-xhtml-entity-format-callbacks-alist' for more information." lines) (defun org-lparse-format-table-row (fields &optional text-for-empty-fields) - (unless org-lparse-table-ncols + (if org-lparse-table-ncols + ;; second and subsequent rows of the table + (when (and org-lparse-list-table-p + (> (length fields) org-lparse-table-ncols)) + (error "Table row has %d columns but header row claims %d columns" + (length fields) org-lparse-table-ncols)) ;; first row of the table (setq org-lparse-table-ncols (length fields)) (when org-lparse-table-is-styled