|
@@ -1067,16 +1067,16 @@ relies on `org-babel-insert-result'."
|
|
|
(let ((case-fold-search t))
|
|
|
(cond
|
|
|
((looking-at "[ \t]*#\\+begin_latex")
|
|
|
- (search-forward "[ \t]*#\\+end_latex" nil t)
|
|
|
+ (re-search-forward "[ \t]*#\\+end_latex" nil t)
|
|
|
(forward-line 1))
|
|
|
((looking-at "[ \t]*#\\+begin_html")
|
|
|
- (search-forward "[ \t]*#\\+end_html" nil t)
|
|
|
+ (re-search-forward "[ \t]*#\\+end_html" nil t)
|
|
|
(forward-line 1))
|
|
|
((looking-at "[ \t]*#\\+begin_example")
|
|
|
- (search-forward "[ \t]*#\\+end_example" nil t)
|
|
|
+ (re-search-forward "[ \t]*#\\+end_example" nil t)
|
|
|
(forward-line 1))
|
|
|
((looking-at "[ \t]*#\\+begin_src")
|
|
|
- (search-forward "[ \t]*#\\+end_src" nil t)
|
|
|
+ (re-search-forward "[ \t]*#\\+end_src" nil t)
|
|
|
(forward-line 1))
|
|
|
(t (progn (while (looking-at "[ \t]*\\(: \\|\\[\\[\\)")
|
|
|
(forward-line 1))))))
|