From b5c0d7d2d1688639a3a8c4ae86ca91a696b53bc6 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <n.goaziou@gmail.com>
Date: Sun, 6 May 2012 20:10:21 +0200
Subject: [PATCH] org-e-latex: Fix table alignment for tables starting with a
 rule

* contrib/lisp/org-e-latex.el (org-e-latex-table--align-string): Fix
  table alignment for tables starting with a rule.
---
 contrib/lisp/org-e-latex.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/contrib/lisp/org-e-latex.el b/contrib/lisp/org-e-latex.el
index 6476db6ec..3cddc9d3e 100644
--- a/contrib/lisp/org-e-latex.el
+++ b/contrib/lisp/org-e-latex.el
@@ -2007,13 +2007,16 @@ a communication channel."
   (let ((attr (mapconcat 'identity
 			 (org-element-property :attr_latex table)
 			 " ")))
-    (if (and attr (string-match "\\<align=\\(\\S-+\\)" attr))
-	(match-string 1 attr)
+    (if (string-match "\\<align=\\(\\S-+\\)" attr) (match-string 1 attr)
       (let (alignment)
 	;; Extract column groups and alignment from first (non-rule)
 	;; row.
 	(org-element-map
-	 (org-element-map table 'table-row 'identity info 'first-match)
+	 (org-element-map
+	  table 'table-row
+	  (lambda (row)
+	    (and (eq (org-element-property :type row) 'standard) row))
+	  info 'first-match)
 	 'table-cell
 	 (lambda (cell)
 	   (let ((borders (org-export-table-cell-borders cell info)))