From ee9d4ebe94d9af586fcc71ef3f68f2636e4662f6 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 6 Feb 2009 11:47:58 +0000 Subject: [PATCH] 2009-02-06 Carsten Dominik * org-exp.el (org-export-preprocess-string): Fix bug with skipping text before first headline. --- lisp/org/ChangeLog | 3 +++ lisp/org/org-exp.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index da098fdba1f..f36f07ae273 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog @@ -1,5 +1,8 @@ 2009-02-06 Carsten Dominik + * 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 e302052a6ec..cf94d5ee433 100644 --- 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"))) -- 2.39.5