ob: fixed issue with ":results replace org"

* lisp/ob.el (org-babel-result-end): Now recognizes "#+begin_org"
  blocks for removal.
This commit is contained in:
Eric Schulte 2011-01-25 09:15:06 -07:00
parent 8d00354704
commit db0e815a4c

View file

@ -1547,7 +1547,7 @@ code ---- the results are extracted in the syntax of the source
(t
(let ((case-fold-search t)
(blocks-re (regexp-opt
(list "latex" "html" "example" "src" "result"))))
(list "latex" "html" "example" "src" "result" "org"))))
(if (looking-at (concat "[ \t]*#\\+begin_" blocks-re))
(progn (re-search-forward (concat "[ \t]*#\\+end_" blocks-re) nil t)
(forward-char 1))