mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-23 07:18:53 +00:00
Code

Add ability to remove #+begin_example blocks of output.

Browse Source
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
(if (org-at-table-p)
(org-table-end)
(while (if (looking-at "\\(: \\|\\[\\[\\)")
(progn (while (looking-at "\\(: \\|\\[\\[\\)")
(forward-line 1)) t))
(forward-line 1))
(forward-line -1)
(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))))
(point))))
(defun org-babel-result-to-file (result)