Просмотр исходного кода

(org-block-regexp): Now also match dynamic blocks.

Bastien Guerry 14 лет назад
Родитель
Сommit
16b408bd06
1 измененных файлов с 1 добавлено и 2 удалено
  1. 1 2
      lisp/org.el

+ 1 - 2
lisp/org.el

@@ -6353,8 +6353,7 @@ DATA should have been made by `org-outline-overlay-data'."
 ;;; Folding of blocks
 
 (defconst org-block-regexp
-
-  "^[ \t]*#\\+begin_\\([^ \n]+\\)\\(\\([^\n]+\\)\\)?\n\\([^\000]+?\\)#\\+end_\\1[ \t]*$"
+  "^[ \t]*#\\+begin_?\\([^ \n]+\\)\\(\\([^\n]+\\)\\)?\n\\([^\000]+?\\)#\\+end_?\\1[ \t]*$"
   "Regular expression for hiding blocks.")
 
 (defvar org-hide-block-overlays nil