# HG changeset patch
# User Carsten Dominik <dominik@science.uva.nl>
# Date 1233920878 0
# Node ID 97ed2489367d449a9572875121e4a7320cd2e831
# Parent  aa61f808aca452ff468ea2bff982476d1882c0d6
2009-02-06  Carsten Dominik  <dominik@science.uva.nl>

	* org-exp.el (org-export-preprocess-string): Fix bug with skipping
	text before first headline.

diff -r aa61f808aca4 -r 97ed2489367d lisp/org/ChangeLog
--- a/lisp/org/ChangeLog	Fri Feb 06 10:13:59 2009 +0000
+++ b/lisp/org/ChangeLog	Fri Feb 06 11:47:58 2009 +0000
@@ -1,5 +1,8 @@
 2009-02-06  Carsten Dominik  <dominik@science.uva.nl>
 
+	* org-exp.el (org-export-preprocess-string): Fix bug with skipping
+	text before first headline.
+
 	* org.el (org-format-latex): Stop LaTeX fragment processing in
 	protected examples.
 
diff -r aa61f808aca4 -r 97ed2489367d lisp/org/org-exp.el
--- a/lisp/org/org-exp.el	Fri Feb 06 10:13:59 2009 +0000
+++ b/lisp/org/org-exp.el	Fri Feb 06 11:47:58 2009 +0000
@@ -1538,7 +1538,7 @@
       ;; Get the correct stuff before the first headline
       (when (plist-get parameters :skip-before-1st-heading)
 	(goto-char (point-min))
-	(when (re-search-forward "\\(^#.*\n\\)^\\*+[ \t]" nil t)
+	(when (re-search-forward "^\\(#.*\n\\)?\\*+[ \t]" nil t)
 	  (delete-region (point-min) (match-beginning 0))
 	  (goto-char (point-min))
 	  (insert "\n")))