|
@@ -1527,7 +1527,8 @@ code ---- the results are extracted in the syntax of the source
|
|
|
(blocks-re (regexp-opt
|
|
|
(list "latex" "html" "example" "src" "result"))))
|
|
|
(if (looking-at (concat "[ \t]*#\\+begin_" blocks-re))
|
|
|
- (re-search-forward (concat "[ \t]*#\\+end_" blocks-re) nil t)
|
|
|
+ (progn (re-search-forward (concat "[ \t]*#\\+end_" blocks-re) nil t)
|
|
|
+ (forward-char 1))
|
|
|
(while (looking-at "[ \t]*\\(: \\|\\[\\[\\)")
|
|
|
(forward-line 1))))
|
|
|
(point)))))
|