浏览代码

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.
Carsten Dominik 14 年之前
父节点
当前提交
67e34d7eae
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      contrib/lisp/org-special-blocks.el

+ 1 - 1
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")