ob: idempotent code block evaluation and result removal

* lisp/ob.el (org-babel-remove-result): Idempotent code block
  evaluation and result removal.
This commit is contained in:
Eric Schulte 2011-08-19 07:50:11 -06:00
parent bf740ba41c
commit 96ad99ba07
1 changed files with 2 additions and 1 deletions

View File

@ -1678,8 +1678,9 @@ code ---- the results are extracted in the syntax of the source
(interactive)
(let ((location (org-babel-where-is-src-block-result nil info)) start)
(when location
(setq start (- location 1))
(save-excursion
(goto-char location) (setq start (point)) (forward-line 1)
(goto-char location) (forward-line 1)
(delete-region start (org-babel-result-end))))))
(defun org-babel-result-end ()