From: Carsten Dominik Date: Fri, 6 Feb 2009 11:47:58 +0000 (+0000) Subject: 2009-02-06 Carsten Dominik X-Git-Tag: emacs-pretest-23.0.91~383 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ee9d4ebe94d9af586fcc71ef3f68f2636e4662f6;p=emacs.git 2009-02-06 Carsten Dominik * 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 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")))