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

org-exp-blocks.el: Fix regexp for matching the end of a block. 

* org-exp-blocks.el (org-export-blocks-preprocess): Fix regexp
for matching the end of a block.

Thanks to Robert Lupton the Good for reporting this and to Nick
Dokos for digging the issue further.
This commit is contained in:
Bastien Guerry 2011-12-23 17:40:37 +01:00
parent 26d54bbc80
commit 090f802003
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -178,7 +178,7 @@ which defaults to the value of `org-export-blocks-witheld'."
(let* ((match-start (copy-marker (match-beginning 0)))
(body-start (copy-marker (match-end 0)))
(indentation (length (match-string 1)))
(inner-re (format "[\r\n][ \t]*#\\+\\(begin\\|end\\)_%s"
(inner-re (format "^[ \t]*#\\+\\(begin\\|end\\)_%s"
(regexp-quote (downcase (match-string 2)))))
(type (intern (downcase (match-string 2))))
(headers (save-match-data