ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
This commit is contained in:
Eric Schulte 2010-06-15 18:20:29 -07:00
parent 689b51224f
commit becfc8979e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/babel/lisp/org-babel.el
View File

@ -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))))))