Browse Source

Export: Fix regular expression for extracting drawers

Reported by Rainer Stengele.
Carsten Dominik 16 years ago
parent
commit
6eed51c304
2 changed files with 4 additions and 1 deletions
  1. 3 0
      lisp/ChangeLog
  2. 1 1
      lisp/org-exp.el

+ 3 - 0
lisp/ChangeLog

@@ -1,5 +1,8 @@
 2009-02-06  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-exp.el (org-export-remove-or-extract-drawers): Fix regexp
+	for finding drawers.
+
 	* org.el (org-do-sort): Also take an inactive timestamp if no
 	active one is found.
 

+ 1 - 1
lisp/org-exp.el

@@ -1751,7 +1751,7 @@ whose content to keep."
 		       (org-delete-all exp-drawers
 				       (copy-sequence all-drawers))
 		       "\\|")
-		      "\\):[ \t]*\n\\([^@]*?\n\\)?[ \t]*:END:[ \t]*\n")))
+		      "\\):[ \t]*\n\\([^\000]*?\n\\)?[ \t]*:END:[ \t]*\n")))
       (while (re-search-forward re nil t)
 	(org-if-unprotected
 	 (replace-match ""))))))