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 --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index da098fdba1fbc5aa246e4fb072e615832fa745da..f36f07ae273abf13f6629cba602c90bf8fc4e029 100644 (file)
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -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 --git a/lisp/org/org-exp.el b/lisp/org/org-exp.el
index e302052a6ecae771ed55c97816c81cb3857177ab..cf94d5ee4334164d205e9608b4fffc295cf0ce4c 100644 (file)
--- a/lisp/org/org-exp.el
+++ b/lisp/org/org-exp.el
@@ -1538,7 +1538,7 @@ on this string to produce the exported version."
       ;; 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")))