Browse Source

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
Eric Schulte 15 years ago
parent
commit
becfc8979e
1 changed files with 4 additions and 4 deletions
  1. 4 4
      contrib/babel/lisp/org-babel.el

+ 4 - 4
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))))))