From ac4b117bcc497acc4db09f7032d32bb781ce8c02 Mon Sep 17 00:00:00 2001 From: Jambunathan K Date: Thu, 1 Sep 2011 01:12:15 +0530 Subject: [PATCH] org-lparse.el: Fix earlier checkin * contrib/lisp/org-lparse.el (org-lparse-do-format-org-table): Modified. Delete some local variables and move it to `org-lparse-do-format-list-table' (org-lparse-do-format-list-table): Modified as above. --- contrib/lisp/org-lparse.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/contrib/lisp/org-lparse.el b/contrib/lisp/org-lparse.el index 97fb90cff..529d4d40a 100755 --- a/contrib/lisp/org-lparse.el +++ b/contrib/lisp/org-lparse.el @@ -1371,9 +1371,16 @@ for formatting. This is required for the DocBook exporter." (head (and org-export-highlight-first-table-line (delq nil (mapcar (lambda (x) (string-match "^[ \t]*|-" x)) - (cdr lines))))) - (org-lparse-table-rownum -1) org-lparse-table-ncols i (cnt 0) - tbopen fields + (cdr lines)))))) + (setq lines (org-lparse-org-table-to-list-table lines splice)) + (org-lparse-do-format-list-table + lines splice caption label attributes head org-lparse-table-colalign-info))) + +(defun org-lparse-do-format-list-table (lines &optional splice + caption label attributes head + org-lparse-table-colalign-info) + (let* ((org-lparse-table-rownum -1) org-lparse-table-ncols i (cnt 0) + tbopen fields line org-lparse-table-cur-rowgrp-is-hdr org-lparse-table-rowgrp-open org-lparse-table-num-numeric-items-per-column @@ -1382,13 +1389,6 @@ for formatting. This is required for the DocBook exporter." org-lparse-table-begin-marker (org-lparse-table-style 'org-table) org-lparse-table-is-styled) - (setq lines (org-lparse-org-table-to-list-table lines splice)) - - (org-lparse-do-format-list-table lines splice caption label attributes head))) - -(defun org-lparse-do-format-list-table (lines &optional splice - caption label attributes head) - (let (line) (cond (splice (setq org-lparse-table-is-styled nil) -- 2.11.4.GIT