diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2011-11-11 14:17:19 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2011-11-11 14:17:57 -0700 |
commit | f48321a9ac0620949703a37b1da6aae02542ca2b (patch) | |
tree | 8d1f0f44d64273cd60d422fb5d7dbf075aee6912 | |
parent | 67a26e0141c147c22d76482e96770a81432d2f7b (diff) | |
download | org-mode-f48321a9ac0620949703a37b1da6aae02542ca2b.tar.gz |
Require a newline and spaces before a code block.
* lisp/org-exp-blocks.el (org-export-blocks-preprocess): Require a
newline and spaces before a code block.
-rw-r--r-- | lisp/org-exp-blocks.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-exp-blocks.el b/lisp/org-exp-blocks.el index 4c1a6b5..940068a 100644 --- a/lisp/org-exp-blocks.el +++ b/lisp/org-exp-blocks.el @@ -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 "[\r\n][ \t]*#\\+\\(begin\\|end\\)_%s" (regexp-quote (downcase (match-string 2))))) (type (intern (downcase (match-string 2)))) (headers (save-match-data |