From becfc8979e01d54e3049a59dff78a0a3cdb2949a Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Tue, 15 Jun 2010 18:20:29 -0700 Subject: [PATCH] babel: now using re-search-forward to find the end of source blocks * contrib/babel/lisp/org-babel.el (org-babel-result-end): replacing search-forward with re-search-forward when finding the end of result blocks --- contrib/babel/lisp/org-babel.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/contrib/babel/lisp/org-babel.el b/contrib/babel/lisp/org-babel.el index 545ceace1..1ef10823e 100644 --- a/contrib/babel/lisp/org-babel.el +++ b/contrib/babel/lisp/org-babel.el @@ -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))))))