Speedup table export which was slow

lisp/ChangeLog

@@ -1,3 +1,8 @@
+2009-09-07  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org-exp.el (org-export-remove-special-table-lines): Remove bad
+	slow regexp match.
+
 2009-09-06  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org-latex.el (org-export-latex-preprocess): Do not protect in

lisp/org-exp.el

@@ -1840,9 +1840,7 @@ When it is nil, all comments will be removed."
   (goto-char (point-min))
   (while (re-search-forward "^[ \t]*|" nil t)
     (beginning-of-line 1)
-    (if (or (looking-at "[ \t]*| *[!_^] *|")
-	    (and (looking-at "[ \t]*|\\( *\\(<[0-9]+>\\|<[rl]>\\|<[rl][0-9]+>\\)? *|\\)+[ \t]*$")
-		 (not (looking-at ".*?| *[^ <|\n]"))))
+    (if (looking-at "[ \t]*| *[!_^] *|")
 	(delete-region (max (point-min) (1- (point-at-bol)))
 		       (point-at-eol))
       (end-of-line 1))))