tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ditaa export: Improve a regular expression.

This commit is contained in:
Carsten Dominik 2009-04-17 17:26:53 +02:00
parent 931e13d800
commit f86ce238d7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/lisp/org-exp-blocks.el
View File

@ -137,7 +137,7 @@ specified in BLOCKS which default to the value of
(goto-char (point-min))
(setf start (point))
(while (re-search-forward
"^#\\+begin_\\(\\S-+\\)[ \t]*\\(.*\\)?[\r\n]\\([^\000]*?\\)#\\+end_\\S-*[\r\n]" nil t)
"^#\\+begin_\\(\\S-+\\)[ \t]*\\(.*\\)?[\r\n]\\([^\000]*?\\)#\\+end_\\S-+.*" nil t)
(save-match-data (setf type (intern (match-string 1))))
(unless (memq type types) (setf types (cons type types)))
(setf end (save-match-data (match-beginning 0)))