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

Require a newline and spaces before a code block.

Browse source 
* lisp/org-exp-blocks.el (org-export-blocks-preprocess): Require a
  newline and spaces before a code block.
This commit is contained in:
Eric Schulte 2011-11-11 14:17:19 -07:00
parent 67a26e0141
commit f48321a9ac
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))) (let* ((match-start (copy-marker (match-beginning 0)))
(body-start (copy-marker (match-end 0))) (body-start (copy-marker (match-end 0)))
(indentation (length (match-string 1))) (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))))) (regexp-quote (downcase (match-string 2)))))
(type (intern (downcase (match-string 2)))) (type (intern (downcase (match-string 2))))
(headers (save-match-data (headers (save-match-data