Add ability to remove #+begin_example blocks of output.

This commit is contained in:
Dan Davison 2009-07-18 17:47:30 -04:00
parent c2b255e0da
commit bcfa3b95c7
1 changed files with 9 additions and 5 deletions

View File

@ -451,11 +451,15 @@ relies on `org-babel-insert-result'."
(save-excursion
(if (org-at-table-p)
(org-table-end)
(let ((case-fold-search nil))
(if (looking-at-p "#\\+begin_example")
(search-forward "#+end_example" nil t)
(progn
(while (if (looking-at "\\(: \\|\\[\\[\\)")
(progn (while (looking-at "\\(: \\|\\[\\[\\)")
(forward-line 1)) t))
(forward-line 1))
(forward-line -1)
(forward-line -1))))
(point))))
(defun org-babel-result-to-file (result)