diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2010-08-16 13:59:24 +0200 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-08-16 13:59:24 +0200 |
| commit | 67e34d7eae47796479fdb17e2e77fe1aa8c5b3db (patch) | |
| tree | 876eb810c8d46425197449474d67cee977cecdfd | |
| parent | 3363a7b9952a61b0bc8e9375e3030e54cd824f94 (diff) | |
| download | org-mode-67e34d7eae47796479fdb17e2e77fe1aa8c5b3db.tar.gz | |
Allow special blocks to start with white space before the \begin{}
* contrib/lisp/org-special-blocks.el (org-special-blocks-make-special-cookies):
Allow white space at beginning of line.
| -rw-r--r-- | contrib/lisp/org-special-blocks.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/lisp/org-special-blocks.el b/contrib/lisp/org-special-blocks.el index 11d4c01..80e2b89 100644 --- a/contrib/lisp/org-special-blocks.el +++ b/contrib/lisp/org-special-blocks.el @@ -50,7 +50,7 @@ interpreted by other mechanisms.") seen. This is run after a few special cases are taken care of." (when (or htmlp latexp) (goto-char (point-min)) - (while (re-search-forward "^#\\+\\(begin\\|end\\)_\\(.*\\)$" nil t) + (while (re-search-forward "^[ \t]*#\\+\\(begin\\|end\\)_\\(.*\\)$" nil t) (unless (org-string-match-p org-special-blocks-ignore-regexp (match-string 2)) (replace-match (if (equal (downcase (match-string 1)) "begin") |