[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 16:17:57

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

Log message:
        2009-02-06  Carsten Dominik  <address@hidden>
        
                * org-exp.el (org-export-remove-or-extract-drawers): Fix
                regular expression for extracting drawers.

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

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/ChangeLog,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -b -r1.66 -r1.67
--- ChangeLog   6 Feb 2009 11:47:58 -0000       1.66
+++ ChangeLog   6 Feb 2009 16:17:56 -0000       1.67
@@ -2,6 +2,8 @@
 
        * org-exp.el (org-export-preprocess-string): Fix bug with skipping
        text before first headline.
+       (org-export-remove-or-extract-drawers): Fix regular expression for
+       extracting drawers.
 
        * 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.29
retrieving revision 1.30
diff -u -b -r1.29 -r1.30
--- org-exp.el  6 Feb 2009 11:47:58 -0000       1.29
+++ org-exp.el  6 Feb 2009 16:17:56 -0000       1.30
@@ -1751,7 +1751,7 @@
                       (org-delete-all exp-drawers
                                       (copy-sequence all-drawers))
                       "\\|")
-                     "\\):[ \t]*\n\\(address@hidden)?[ \t]*:END:[ \t]*\n")))
+                     "\\):[ \t]*\n\\([^\000]*?\n\\)?[ \t]*:END:[ \t]*\n")))
       (while (re-search-forward re nil t)
        (org-if-unprotected
         (replace-match ""))))))