[Emacs-diffs] emacs/lisp/org ChangeLog org-exp.el

[Carsten Dominik]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Carsten Dominik <cdominik>      09/02/06 11:47:59

Modified files:
        lisp/org       : ChangeLog org-exp.el 

Log message:
        2009-02-06  Carsten Dominik  <address@hidden>
        
                * org-exp.el (org-export-preprocess-string): Fix bug with 
skipping
                text before first headline.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/ChangeLog?cvsroot=emacs&r1=1.65&r2=1.66
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/org-exp.el?cvsroot=emacs&r1=1.28&r2=1.29

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/ChangeLog,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -b -r1.65 -r1.66
--- ChangeLog   6 Feb 2009 09:42:13 -0000       1.65
+++ ChangeLog   6 Feb 2009 11:47:58 -0000       1.66
@@ -1,5 +1,8 @@
 2009-02-06  Carsten Dominik  <address@hidden>
 
+       * 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.
 

Index: org-exp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/org-exp.el,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -b -r1.28 -r1.29
--- org-exp.el  2 Feb 2009 20:57:15 -0000       1.28
+++ org-exp.el  6 Feb 2009 11:47:58 -0000       1.29
@@ -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")))