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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/org-babel.el
View File

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