From fdb83958860163624138783117c30a6603301531 Mon Sep 17 00:00:00 2001
From: Jambunathan K <kjambunathan@gmail.com>
Date: Wed, 31 Aug 2011 23:35:29 +0530
Subject: [PATCH] Introduced org-lparse-do-format-list-table

* contrib/lisp/org-lparse.el
(org-lparse-do-format-list-table): New. Factored out from
`org-lparse-do-format-org-table'.
(org-lparse-do-format-org-table): Use above function.
(org-lparse-format-list-table): New.  Wrapper for
`org-lparse-do-format-list-table'. For future use.
---
 contrib/lisp/org-lparse.el | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/contrib/lisp/org-lparse.el b/contrib/lisp/org-lparse.el
index 2c9a172a5..97fb90cff 100755
--- a/contrib/lisp/org-lparse.el
+++ b/contrib/lisp/org-lparse.el
@@ -1373,7 +1373,7 @@ for formatting.  This is required for the DocBook exporter."
 			       (lambda (x) (string-match "^[ \t]*|-" x))
 			       (cdr lines)))))
 	 (org-lparse-table-rownum -1) org-lparse-table-ncols i (cnt 0)
-	 tbopen line fields
+	 tbopen fields
 	 org-lparse-table-cur-rowgrp-is-hdr
 	 org-lparse-table-rowgrp-open
 	 org-lparse-table-num-numeric-items-per-column
@@ -1383,6 +1383,12 @@ for formatting.  This is required for the DocBook exporter."
 	 (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)
@@ -1407,6 +1413,11 @@ for formatting.  This is required for the DocBook exporter."
     (org-lparse-do-format-org-table lines splice)
     (buffer-substring-no-properties (point-min) (point-max))))
 
+(defun org-lparse-format-list-table (lines &optional splice)
+  (with-temp-buffer
+    (org-lparse-do-format-list-table lines splice)
+    (buffer-substring-no-properties (point-min) (point-max))))
+
 (defun org-lparse-do-format-table-table (lines)
   "Format a table generated by table.el into backend-specific code.
 This conversion does *not* use `table-generate-source' from table.el.